PROGRAM QA7
      DIMENSION XARRAY(20),YARRAY(20)
      DATA XARRAY/0.0,2.5,5.0,10.0,16.0,20.0,23.0,28.0,35.0,40.0,
     $ 44.0,51.0,60.0,64.0,69.0,75.0,82.0,88.0,00.0,00.0/
      DATA YARRAY/0.0,-20.0,-48.0,-70.0,-98.0,-110.0,-125.0,-142.0,
     $ -130.0,-115.0,-80.0,-35.0,-10.0,5.0,22.0,35.0,42.0,58.0,00.0,
     $ 000.0/
C    CHECK RELATIVE FRAME SIZING
C    USING 1 AND 2 MAKE SURE MAXIMUM VALUE BECOMES UPPER LEFT CORNER
C    OF PLOT AND USING 3 MAKE SURE LARGE ORIGIN OFFSETS ARE WORKING
      CALL C_PLOTS (0,0,0)
      DO 10 I=1,3
      CALL C_PLOT (0.5,0.5,-3)
      CALL C_SCALE (XARRAY,5.0,18,1)
      CALL C_SCALE (YARRAY,6.0,18,1)
      IF(I.LE.2)THEN
        IF(I.EQ.1)THEN
           X=6.0
           Y=7.0
        ELSE
           X=8.0
           Y=9.5
        ENDIF
        CALL C_PLOT (X,0.0,2)
        CALL C_PLOT (X,Y,2)
        CALL C_PLOT (0.0,Y,2)
        CALL C_PLOT (0.0,0.0,2)
      ELSE
        CALL C_PLOT(22.5,13.5,-3)
      ENDIF
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CALL C_AXIS(0.0,0.0,'TIME IN MILLISECONDS',-20,5.0,0.0,XARRAY(19),
     $ XARRAY(20))
      CALL C_AXIS (0.0,0.0,'VOLTAGE',7,6.0,90.0,YARRAY(19),YARRAY(20))
      CALL C_LINE (XARRAY,YARRAY,18,1,2,4)
      CALL C_SYMBOL (0.5,5.6,0.21,'PERFORMANCE TST1',999,0.0,16)
      CALL C_SYMBOL (0.5,5.2,0.14,'REF. NO. 1623-46',999,0.0,16)
      CALL C_NFRAME
10    CONTINUE
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CHECK OUT INTENSITY SETTINGS WITH HARDWARE CHARACTERS
      CALL MSET("HARD")
      CALL MSET("XLAR")
      Y=.25
      CALL C_PLOT(0.,0.,-3)
      CALL C_PLOT(10.,0.,2)
      CALL C_PLOT(10.,10.,2)
      CALL C_PLOT(0.,10.,2)
      CALL C_PLOT(0.,0.,2)
      DO 20 K=1,100,13
      CALL SETPAR('INTE',K)
      CALL C_PLOT(.5,Y,3)
      CALL C_PLOT(5.,Y,2)
      CALL C_SYMBOL(5.1,Y,7.0,3HAMR,999,0.,3)
      Y=Y+.5
20    CONTINUE
      CALL C_NFRAME
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     TEST HARDWARE TEXT SIZES
C
      CALL MSET("HARD")
      CALL MSET("MEDI")
      CALL C_PLOT(0.0,0.0,-3)
      CALL C_PLOT(28.,0.0,2)
      CALL C_PLOT(28.,20.,2)
      CALL C_PLOT(0.,20.,2)
      CALL C_PLOT(0.,0.,2)
C
      Y=0.
      DO 30 I=19,30
      CALL MPSET('TSIZ',FLOAT(I))
      CALL C_SYMBOL(1.,Y,.2,20HTEST @@@@@\\\\\ END ,999,0.,20)
      Y=Y+.31
30      CONTINUE
      CALL MSET("SOFT")
      CALL C_SYMBOL(1.,10.,.50,'.50 INCH CHARACTERS ',-1,0.0,20)
      CALL C_SYMBOL(1.,11.,.50,'.50 INCH CHARACTERS ',999,0.0,20)
      CALL C_NFRAME
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C        A COMPILED COPY OF THE FR80 DUMPER IS AVAILABLE; JUST MAKE
C        PLTOUT BY USING THE NODISP OPTION ON THE COM PROCEDURES AND
C        THEN RUN THE FOLLOWING JCL: 
C
C        REWIND,DN=PLTOUT.
C        COPYF,I=PLTOUT,O=FT01.
C        REWIND,DN=FT01.
C        ATTACH,DN=DUMP,PDN=CR80DMP,ID=OSCRI.
C        DUMP.
C     TEST THE USE OF HARDWARE CHARACTERS ON THE COM UNITS
C
      CALL MSET("HARD")
      CALL MSET("MEDI")
      CALL C_PLOT(0.0,0.0,-3)
      CALL C_PLOT(28.,0.0,2)
      CALL C_PLOT(28.,20.,2)
      CALL C_PLOT(0.,20.,2)
      CALL C_PLOT(0.,0.,2)
C
      Y=0.
      DO 40 I=1,64
      CALL MPSET('TSIZ',FLOAT(I))
      CALL C_SYMBOL(1.,Y,.2,20HTEST @@@@@\\\\\ END ,999,0.,20)
      Y=Y+.31
40    CONTINUE
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CALL C_PLOT (0.0,0.0,999)
      END