programs/plotter/src/nikolaussiedlung.f

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