programs/plotter/src/nikolaussiedlung.f

   1 C PLOTTER TEST PROGRAM
   2 C
   3 C
   4       CALL PL$RST
   5       CALL PL$SCI(100)
   6       CALL PL$ROI(30)
   7       CALL PL$PD
   8       CALL PL$MV(605,0)
   9       CALL PL$MV(605,95)
  10       CALL PL$MV(0,95)
  11       CALL PL$MV(0,0)
  12       CALL PL$MV(1,1)
  13       CALL PL$MV(604,1)
  14       CALL PL$MV(604,94)
  15       CALL PL$MV(1,94)
  16       CALL PL$MV(1,1)
  17       CALL PL$PU
  18       CALL PL$MV(10,10)
  19
  20       DO 1000 I=1,10
  21       CALL PL$RST
  22       CALL PL$PD
  23       CALL PL$MV(0,50)
  24       CALL PL$MV(25,75)
  25       CALL PL$MV(50,50)
  26       CALL PL$MV(0,50)
  27       CALL PL$MV(50,0)
  28       CALL PL$MV(50,50)
  29       CALL PL$MV(0,0)
  30       CALL PL$MV(50,0)
  31       CALL PL$PU
  32       CALL PL$MV(55,0)
  33  1000 CONTINUE
  34       CALL PL$MV(-595,-10)
  35 C
  36 C
  37 10000 CALL REBOOT
  38       END
  39 $0