C TEST OF HCSGEN C BYTE LINE(80) 10 WRITE (5,20) 20 FORMAT (' Enter height, X, Y, angle, ICENTR: ', $) READ (5,30) H, X, Y, A, ICENTR 30 FORMAT (4F15.0, I10) IF (X.EQ.0.0) X=0.5 IF (Y.EQ.0.0) Y=1.0 IF (H.EQ.0.0) H=1.0 WRITE (5,40) 40 FORMAT (' Enter string: ', $) READ (5,50) LLINE, LINE 50 FORMAT (Q, 80A1) CALL PLOTS CALL SYMBOC (X, Y, H, LINE, A, LLINE, ICENTR) CALL PLOTF GO TO 10 END