programs/plotter/src/stern.f

   1 C PLOTTER TEST PROGRAM
   2 C
   3       INTEGER PHI
   4       REAL PHIR
   5       INTEGER XI,YI
   6 C
   7 C
   8  1000 CALL PL$RST
   9 C
  10 C
  11       DO 2000 PHI=0,360,15
  12          CALL PL$MV(0,0)
  13          PHIR=PHI
  14          X=COS(PHIR)*100.0
  15          Y=SIN(PHIR)*100.0
  16          XI=X
  17          YI=Y
  18          CALL PL$PD
  19          CALL PL$MV(XI,YI)
  20          CALL PL$PU
  21  2000    CONTINUE
  22          CALL PL$MV(0,0)
  23
  24 C
  25 C
  26 10000 CALL REBOOT
  27       CALL LIBLOK
  28       END
  29 $0
  30