--- /dev/null
+C
+C
+C
+C
+ INTEGER X,Y
+ INTEGER RADIUS
+ REAL RADIUR,RADF
+C
+ RADIUS=100
+ RADIUR=RADIUS
+ PI=3.14159265
+ RADF=(2.0*PI)/360.0
+C
+ CALL PL$RST
+ CALL PL$MV(RADIUS,RADIUS)
+ CALL PL$RST
+C
+
+ DO 2000 I=0,362,1
+ P=I
+ PHI=P*RADF
+ X=COS(PHI)*RADIUR
+ Y=SIN(PHI)*RADIUR
+ CALL PL$MV(X,Y)
+ IF (I.EQ.0) CALL PL$PD
+ 2000 CONTINUE
+ CALL PL$PU
+ DO 1000 I=0,720,144
+ P=I-18
+ PHI=P*RADF
+ X=COS(PHI)*RADIUR
+ Y=SIN(PHI)*RADIUR
+ CALL PL$MV(X,Y)
+ IF (I.EQ.0) CALL PL$PD
+ 1000 CONTINUE
+
+ CALL PL$PU
+ CALL PL$MV(-RADIUS,-RADIUS)
+ CALL PL$RST
+C
+C
+ CALL REBOOT
+ END
+$0