programs/plotter/src/plottest.f

   1 C PLOTTER TEST PROGRAM
   2 C
   3 C
   4 C
   5  1000 WRITE (1,1001)
   6  1001 FORMAT (13HPLOTTER TEST!)
   7 C
   8  1005 DO 6000 J=1,300
   9 C
  10  1010 CALL PL$U
  11  1011 CALL PL$U
  12  1050 CALL PL$PD
  13 C
  14  1100 DO 2000 I=1,50
  15  1200 CALL PL$R
  16  2000 CONTINUE
  17 C
  18  2050 CALL PL$PU
  19  2100 CALL PL$U
  20  2150 CALL PL$U
  21  2170 CALL PL$PD
  22 C
  23  2200 DO 3000 N=1,50
  24  2300 CALL PL$L
  25  3000 CONTINUE
  26 C
  27  3100 CALL PL$PU
  28 C
  29  6000 CONTINUE
  30 CCCCCCCCCC
  31 CCCCCCCCCC
  32 11005 DO 16000 J=1,10
  33 C
  34 11010     CALL PL$R
  35 11011     CALL PL$R
  36 11050     CALL PL$PD
  37 C
  38 11100     DO 12000 I=1,40
  39 11200        CALL PL$D
  40 12000     CONTINUE
  41 C
  42 12050     CALL PL$PU
  43 12100     CALL PL$R
  44 12150     CALL PL$R
  45 12170     CALL PL$PD
  46 C
  47 12200     DO 13000 N=1,40
  48 12300        CALL PL$U
  49 13000     CONTINUE
  50 C
  51 13100     CALL PL$PU
  52 C
  53 16000     CONTINUE
  54 C
  55  6500     CALL REBOOT
  56  6600     GO TO 1005
  57 C
  58  7000     END
  59 $0