PROGRAM QA2
CALCOMP  TABLE PROGRAM FOR FORTRAN 77 INCH VERSION
CALCOMP HCBS FOR 906 CONTROLLER                            SEPT, 1981 *
C             PROPRIETARY SOFTWARE NOTIFICATION
C  THIS SOFTWARE IS THE PROPRIETARY AND CONFIDENTIAL PROPERTY OF
C    CALIFORNIA COMPUTER PRODUCTS, INC. AND IS LICENSED FOR USE ON THE
C    DESIGNATED EQUIPMENT ON WHICH IT WAS ORIGINALLY INSTALLED AND
C    CANNOT BE MODIFIED, DUPLICATED OR COPIED IN ANY FORM WITHOUT PRIOR
C    WRITTEN CONSENT OF CALIFORNIA COMPUTER PRODUCTS, INC.
C  IF SUPPLIED UNDER A GOVERNMENT CONTRACT, THE FOLLOWING APPLIES: 
C                 RESTRICTED RIGHTS LEGEND
C  USE, DUPLICATION OR DISCLOSURE BY THE GOVERNMENT IS SUBJECT TO
C    RESTRICTIONS AS SET FORTH IN PARAGRAPH (B)(3)(B) OF THE RIGHTS
C    IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE IN DAR 7-104.9
C    (A).  CALIFORNIA COMPUTER PRODUCTS, INC., 2411 WEST LAPALMA
C    AVENUE, ANAHEIM, CALIFORNIA 92803.
C
C     THIS ROUTINE PRODUCES A SYMBOL TABLE, WHICH SHOWS THE CHARACTERS
C     AVAILABLE IN THE SYMBOL ROUTINE.
C
      CHARACTER * 38 ICHR1,ICHR2
      CHARACTER * 60 ICHR3
      CHARACTER * 28 ICHR4
      CHARACTER * 1 IBCD
      DIMENSION ZNUM(4)
      DATA ZNUM /10293.84756,193.75,-204.86,-12345.6789/
      DATA LDEV /40 /
      ICHR1='CHARACTERS AVAILABLE IN SYMBOL ROUTINE'
      ICHR2='  FOR CALCOMP ON THE CRAY COMPUTER    '
      ICHR3='INTEGER FOR USE IN SYMBOL CALL SHOWN TO LEFT OF EACH SYMBOL'
     &'
      ICHR4='EXAMPLE OF NUMBER SUBROUTINE'
      CALL C_PLOTS(0,0,LDEV)
      CALL C_PLOT(0.8,0.8,1001)
      CALL C_PLOT(0.0,11.0,2)
      CALL C_PLOT (8.5,11.0,2)
      CALL C_PLOT (8.5,0.0,2)
      CALL C_PLOT (0.0,0.0,2)
      CALL C_SYMBOL(0.4,10.50,.2,ICHR1,INTEQ,0.0,38)
      CALL C_SYMBOL(0.4,10.25,.2,ICHR2,INTEQ,0.0,38)
      CALL C_PLOT(8.1,10.0,3)
      CALL C_PLOT(0.4,10.0,2)
      CALL C_PLOT(0.4, 0.5,2)
      CALL C_PLOT(8.1, 0.5,2)
      Z=0.0
      M=0
      XS=0.85
      YS=0.25
      X=0.4
      Y=9.5
      DO 20 IA=1,6
         DO 10 IB=1,15
            CALL C_NUMBER(X+.10,Y+.18,.14,Z,0.0,-1)
            CALL C_SYMBOL(X+XS,Y+YS ,.4 ,IBCD,M,0.0,-1)
            Z=Z+1.0
            M=M+1
            Y=Y-0.6
 10      CONTINUE  
         IF (IA.EQ.6) CALL C_NUMBER (X+.10,Y+.18,.14,Z,0.0,-1)
         IF (IA.EQ.6) CALL C_SYMBOL (X+XS,Y+YS,.4,IBCD,M,0.0,-1)
         X=X+1.283
         CALL C_PLOT(X,0.5,3)
         CALL C_PLOT(X,10.,2)
         Y=9.5
         XS=.65
         YS=.05
 20   CONTINUE 
      CALL C_SYMBOL(0.6,.25,.12,ICHR3,INTEQ,0.0,60)
C     CALL C_PLOT(10.0,0.0,-3)
      CALL C_NFRAME
C THE FOLLOWING TESTS THE C_NUMBER SUBROUTINE FOR PRECISION
      CALL C_SYMBOL(0.5,2.5,.20,ICHR4,INTEQ,90.0,28)
      Y=10.0
      DO 40 IA=1,4
         DO 30 IB=1,11
            CALL C_NUMBER(1.0,Y,.14,ZNUM(IA),0.0,IB-6)
            Y=Y-0.2
 30      CONTINUE
         Y=Y-0.3
 40   CONTINUE
C     CALL C_PLOT ( 5.0,0.0,-3)
      CALL C_NFRAME
      CALL C_PLOT(0.0,0.0,999)
      STOP
      END