$STORAGE: 4
$DO66
      SUBROUTINE ACHN
C                     PRINTS THE SECOND PART OF LOWER-CASE 'H' AND 'N'.
C
      DIMENSION KLINE(30)
      COMMON /LINES/ LINE(132),LINEX(132)
	CHARACTER*1 LINE,LINEX
      COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7
61    FORMAT(1X,132A1)
62    FORMAT(1H+,132A1)
      DATA KLINE/123849,94249,84651,74753,64854,64955,50550000,51560000,
     *    51560000,51570000,51570000,51570000,65057,64957,74857,  84757,
     *       94656, 124156, 550000, 530000, 520000, 500000, 480000,
     *      440000, 120000,  90000,  80000,  70000,  60000,  60000/
      DO 20 K=1,30
      CALL BAXX(1,1)
      KLK = KLINE(K)
      NA = KLK/I6
      NB = KLK/I4 - NA*I2
      NC = KLK/I2 - NB*I2 - NA*I4
      ND = KLK    - NC*I2 - NB*I4 - NA*I6
      CALL FRNT(NA,NB)
      IF(NC.EQ.0) GO TO 10
      CALL FRNT(NC,ND)
10    WRITE(2,61) LINE
20    WRITE(2,62) LINEX
      RETURN
      END

