PROGRAM QA5
C...COPYRIGHT 1968 CALIFORNIA COMPUTER PRODUCTS
C........10 CHAR   PLOT      BCD       INCHES
      DIMENSION IBUF(2000)
      DIMENSION XAR(10), YAR(10)
      DIMENSION R(19),ANGLE(19)
      CHARACTER*50 IBCD
  100 FORMAT (A40,A2)
  200 FORMAT(2F4.2)
C
C
      KIN = 5
      LDEV = 14
      CALL C_PLOTS(IBUF,2000,LDEV)
      CALL C_PLOT(0.0,-11.0,3)
C     CALL C_PLOT(0.0,-10.5,-3)
      CALL C_NFRAME
C DRAW FRAME
      CALL C_PLOT(7.0,0.0,2)
      CALL C_PLOT(7.0,9.0,2)
      CALL C_PLOT(0.0,9.0,2)
      CALL C_PLOT(0.0,0.0,2)
C COMMENTS ARE INSERTED
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (0.7,8.5,0.14,IBCD,INTEQ,0.0,40)
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (0.7,4.25,0.14,IBCD,INTEQ,0.0,23)
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (0.7,8.25,0.14,IBCD,INTEQ,0.0,23)
C TWO PAIRS OF AXES ARE DRAWN
      READ (KIN ,100)IBCD
      CALL C_AXIS  (1.0,4.75,IBCD,-1,5.0,0.0,0.0,1.0)
      CALL C_AXIS  (1.0,4.75,IBCD, 1,3.0,90.0,0.0,1.0)
      CALL C_AXIS  (1.0,0.75,IBCD,-1,5.0,0.0,0.0,1.0)
      CALL C_AXIS  (1.0,0.75,IBCD, 1,3.0,90.0,0.0,1.0)
C C_CURVX IS DRAWN
      CALL C_PLOT(1.0,4.75,-3)
      CALL C_CURVX (0.1,5.0,2.40,0.0,0.75,2.0,-0.525,3.0,0.075,4.0)
      CALL C_PLOT(-1.0,-4.75,-3)
C C_CURVY IS DRAWN
      CALL C_PLOT(1.0,0.75,-3)
      CALL C_CURVY (0.1,3.0,9.0,1.26,-6.0,2.52,1.0,3.78,0.0,0.0)
      CALL C_PLOT(-1.0,-0.75,-3)
C EQUATIONS ARE DRAWN
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (3.0,7.75,0.09,IBCD,INTEQ,0.0,35)
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (3.0,3.90,0.09,IBCD,INTEQ,0.0,27)
C     CALL C_PLOT(11.0,0.0,-3)
      CALL C_NFRAME
C     DRAW FRAME
      CALL C_PLOT(7.0,0.0,2)
      CALL C_PLOT(7.0,9.0,2)
      CALL C_PLOT(0.0,9.0,2)
      CALL C_PLOT(0.0,0.0,2)
C     READ AXIS TITLES
C     DRAW AXIS
      READ (KIN ,100)IBCD
      CALL C_AXIS  (0.75,0.75,IBCD,-12,5.0,0.0,5.0,1.0)
      READ (KIN ,100)IBCD
      CALL C_AXIS  (0.75,0.75,IBCD, 9,7.0,90.0,0.0,100.0)
C     DRAW COMMENTS
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (0.7,8.25,0.14,IBCD,INTEQ,0.0,34)
      CALL C_PLOT(5.0,7.8,3)
      CALL C_PLOT(5.1,7.8,2)
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (5.2,7.80,0.09,IBCD,INTEQ,0.0, 6)
      INTEQ = 1
      CALL C_SYMBOL (5.0,7.60,0.10,IBCD,INTEQ,0.0,-1)
      INTEQ=999
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (5.2,7.60,0.09,IBCD,INTEQ,0.0, 5)
C SMOOTHING
      CALL C_SMOOT (0.75,3.75,0)
      CALL C_SMOOT (1.75,2.5,-2)
      CALL C_SMOOT (2.25,5.75,-2)
      CALL C_SMOOT (2.75,7.0,-2)
      CALL C_SMOOT (3.25,7.25,-2)
      CALL C_SMOOT (4.25,6.75,-2)
      CALL C_SMOOT (4.75,3.75,-2)
      CALL C_SMOOT (5.75,4.75,-24)
C C_FLINE IS USED
      READ (KIN ,200)(XAR  (I),YAR  (I),I=1,8)
      XAR  (9)=0.0
      XAR  (10)=1.0
      YAR  (9)=0.0
      YAR  (10)=1.0
      CALL C_PLOT(0.75,3.25,3)
      CALL C_FLINE(XAR  ,YAR  ,-8,1,1,1)
C     CALL C_PLOT(11.0,0.0,-3)
      CALL C_NFRAME
C DRAW FRAME
      CALL C_PLOT(7.0,0.0,2)
      CALL C_PLOT(7.0,9.0,2)
      CALL C_PLOT(0.0,9.0,2)
      CALL C_PLOT(0.0,0.0,2)
C DRAW COMMENTS
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (0.7,8.25,0.14,IBCD,INTEQ,0.0,42)
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (0.7,3.80,0.14,IBCD,INTEQ,0.0,22)
C C_AXIS IS DRAWN
      READ (KIN ,100)IBCD
      CALL C_AXIS  (1.0,4.75,IBCD,-8,5.0,0.0,0.0,25.0)
      READ (KIN ,40)(XAR(I),YAR(I),I=1,6)
   40 FORMAT(F4.2,F4.0)
      CALL C_SCALG (YAR,3.0,6,1)
      READ (KIN ,100)IBCD
      CALL C_LGAXS (1.0,4.75,IBCD,11,3.0,90.0,YAR(7),YAR(8))
      CALL C_SCALE(XAR,5.0,6,1)
      CALL C_PLOT(1.0,4.75,-3)
      CALL C_LGLIN (XAR,YAR,6,1,0,1,1)
      CALL C_PLOT(-1.0,-4.75,-3)
C C_POLAR SUBROUTINE IS USED
      X=0.0
      DO 90 K=1,19
      THETA=X*0.0174533
      R(K)=2.0*(1.0-COS(THETA))
      ANGLE(K)=THETA
   90 X=X+10.0
      CALL C_PLOT(5.0,0.75,-3)
      CALL C_POLAR(R,ANGLE,19,1,0,1,0.0,1.0)
      ANGL =30.0
      A=1.0
      DO  95 I=1,5
      THETA=ANGL *0.0174533
      XA=COS(THETA)
      YA=SIN(THETA)
      CALL C_PLOT(XA,YA,3)
      XB=1.1*XA
      YB=1.1*YA
      CALL C_PLOT(XB,YB,2)
      XC=XB+0.05*XA
      YC=YB+0.05*YA
      IF(I-3)50,50,60
   60 A=1.5
   50 BETA=1.570797-THETA
      XD=XC-0.105*A*COS(BETA)
      YD=YC+0.105*A*SIN(BETA)
      BANG=270.0+ANGL
      CALL C_NUMBER(XD,YD,0.105,ANGL ,BANG,-1)
  95  ANGL =ANGL +30.0
      XX=0.0
      DO 400 I=1,19
      ANGLE(I) = XX*0.0174533
      R (I) = 1.0
 400  XX=XX+10.0
      CALL C_POLAR (R,ANGLE,19,1,0,1,0.0,1.0)
      CALL C_PLOT(-5.0,-0.75,-3)
C C_AXIS IS DRAWN
      READ (KIN ,100)IBCD
      CALL C_AXIS  (1.0,0.75,IBCD,-1,4.0,0.0,4.0,-1.0)
      CALL C_AXIS  (5.0,0.75,IBCD,-1,1.0,0.0,0.0,1.0)
      READ (KIN ,100)IBCD
      CALL C_SYMBOL (3.75,3.5,0.09,IBCD,INTEQ,0.0,23)
      CALL C_PLOT(11.0,0.0,999)
      STOP
      END