*** empty log message ***

[h316.git] / programs / plotter / src / stern.f

C PLOTTER TEST PROGRAM
C
      INTEGER PHI
      REAL PHIR
      INTEGER XI,YI
C
C
 1000 CALL PL$RST
C
C      
      DO 2000 PHI=0,360,15
         CALL PL$MV(0,0)
         PHIR=PHI
         X=COS(PHIR)*100.0
         Y=SIN(PHIR)*100.0
         XI=X
         YI=Y
         CALL PL$PD
         CALL PL$MV(XI,YI)
         CALL PL$PU
 2000    CONTINUE
         CALL PL$MV(0,0)
         
C
C
10000 CALL REBOOT     
      CALL LIBLOK
      END
$0