$STORAGE: 4
$DO66
      SUBROUTINE OHAV(KSTEP)
C                       PRINTS THE LEFT (KSTEP=1) OR RIGHT (KSTEP=-1)
C     HALF OF LOWER-CASE 'O' FOR LOWER-CASE 'B','C','D','O','P' AND 'Q'.
C
      DIMENSION KLINE(17)
      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/20370000,16410000,13440000,11460000, 9480000,7500000,
     *     6510000,5203752,4164153,3144354,2124555,1104756,1094856,
     *     1084956,  75057,  75057,  65157/
      IF(KSTEP.EQ.1) K = 0
      IF(KSTEP.EQ.-1) K = 18
      DO 20 I=1,17
      CALL BAXX(1,1)
      K = K + KSTEP
      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

