programs/plotter/src/nikolaussiedlung.f

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