PROGRAM QA4
C...PROGRAM        GENRL     V068A     07/30/69  PRODUCT NUMBER 90010
C...COPYRIGHT 1968 CALIFORNIA COMPUTER PRODUCTS
C........10 CHAR   PLOT      BCD       INCHES
      DIMENSION LOB(2020), X(104), Y(104)
      CHARACTER*40 MSG
      EQUIVALENCE(X(1),XL),(Y(1),YL)
 9001 FORMAT(2(1X,I2,7X),A40)
 9007 FORMAT(7(1X,F9.3),F7.1)
 9009 FORMAT(2(1X,F9.3),1X,I3,7X,I1)
 9012 FORMAT(7(1X,F9.3),1X,I1)
 9014 FORMAT(4(1X,F9.3),2(1X,I2,7X))
 9016 FORMAT(3(1X,F9.3), A40,1X,I3)
 9017 FORMAT(1X,F9.3,1X,I2)
 9021 FORMAT(5(1X,F9.3),1X,I2)
C
C
      KIN = 5
      LDEV = 14
      F = 1.
      IPN = 2
      CALL C_PLOTS(LOB,2020,LDEV)
C-----------------------------------------------------------------------
    1 CONTINUE
      READ(KIN,9001) KLAS,NREC, MSG
   20 IF(KLAS) 1,100,40
   40 GO TO (200,300,400,500,600,700,800,900,1000,1100,1200,1,
     11400,1500,1) , KLAS
C-----------------------------------------------------------------------
  100 DO 199 I = 1,NREC
      READ(KIN,9007) X(1),Y(1),X(2),Y(2),X(3),Y(3),X(4),Y(4)
  110   DO 150 J = 1,4
          IF(X(J)) 140,120,140
  120     IF(Y(J)) 140,130,140
  130     IPN = 3
          GO TO 150
  140     CALL C_PLOT(X(J),Y(J),IPN)
          IPN = 2
  150     CONTINUE
  199   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
  200 DO 299 I = 1,NREC
      READ(KIN,9007) XL,YL,THO,THF,RO,RF,DI
  210   CALL C_CIRCL(XL,YL,THO,THF,RO,RF,DI)
  299   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
  300 DO 399 I = 1,NREC
      READ(KIN,9009) X(1),Y(1),NPTS,INC
  320   J1 = INC+1
        J2 = INC*NPTS+1-INC
        DO 330 J = J1,J2,INC
      READ(KIN,9007) X(J),Y(J)
  330     CONTINUE
        J = J2+INC
        X(J) = 0.
        Y(J) = 0.
      J = J+INC
        X(J) = 1.
        Y(J) = 1.
        CALL C_DASHL(X,Y,NPTS,INC)
  399   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
  400 DO 499 I = 1,NREC
      READ(KIN,9007) XL,YL,D
  410   CALL C_DASHP(XL,YL,D)
  499   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
  500 DO 599 I = 1,NREC
      READ(KIN,9012) XL,YL,RMA,RMI,A,TH0,THF,IPEN
  510   CALL C_ELIPS(XL,YL,RMA,RMI,A,THO,THF,IPEN)
  599   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
  600 DO 699 I = 1,NREC
      READ(KIN,9007) X(1),Y(1),X(2),Y(2),X(3),Y(3)
  610   CALL C_FIT(X(1),Y(1),X(2),Y(2),X(3),Y(3))
  699   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
  700 DO 799 I = 1,NREC
      READ(KIN,9014) XL,YL,DX,DY,NX,NY
  710   CALL C_GRID(XL,YL,DX,DY,NX,NY)
  799   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
  800 DO 899 I = 1,NREC
      READ(KIN,9007) XL,YL,SL,SN,A
  810   CALL C_POLY(XL,YL,SL,SN,A)
  899   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
  900 DO 999 I = 1,NREC
      READ(KIN,9021) XL,YL,H,W,A,IPEN
  910   CALL C_RECT(XL,YL,H,W,A,IPEN)
  999   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
 1000 DO 1099 I = 1,NREC
         READ(KIN,9016) XL,YL,H,MSG,INC
         READ(KIN,9017) A,NC
 1020    IF(INC) 1,1030,1040
 1040       CONTINUE
 1030       CONTINUE
            CALL C_SYMBOL(XL,YL,H,MSG,INC,A,NC)
 1099 CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
 1100 DO 1199 I = 1,NREC
      READ(KIN,9007) XL,YL
        CALL C_PLOT(XL,YL,-3)
 1199   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
 1200 DO 1299 I = 1,NREC
        READ(KIN,9007) F
        CALL C_FACTOR(F)
 1299   CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
 1400 CALL C_FACTOR(1.)
      CALL C_PLOT(20.,0.,999)
      STOP
 1500 DO 1599 I = 1,NREC
 1599    CONTINUE
      GO TO 1
C-----------------------------------------------------------------------
       END