+C
+ CALL GITTER
+ CALL PL$PU
+C
+ CALL PL$MV(0,0)
+ CALL DOWN
+ DO 3000 X=0,600
+ XR=X
+ PHI=(3.141/180.0)*XR
+ Y=SIN(PHI)*90.0
+ CALL DODOT(X,Y)
+ 3000 CONTINUE
+ CALL UP
+C
+ CALL PL$MV(0,0)
+ DO 4001 X=0,600
+ XR=X
+ PHI=(3.141/180.0)*XR
+ Y=COS(PHI)*55.0+SIN(PHI*12.0)*40.0
+ CALL DODOT(X,Y)
+ 4001 CONTINUE
+ CALL UP
+C
+C
+ CALL PL$MV(0,0)
+C CALL REBOOT
+ CALL PL$MV (0,-250)
+ PAUSE 7
+ GO TO 1000
+ END
+C
+C
+C
+ SUBROUTINE DODOT(X,Y)
+ INTEGER X,Y
+ IF (Y.LE.100) GO TO 444
+ CALL UP
+ GO TO 3001
+ 444 IF (Y.GE.-100) GO TO 555
+ CALL UP
+ GO TO 3001
+ 555 CALL PL$MV(X,Y)
+ CALL DOWN
+ 3001 RETURN
+ END
+C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C
+ SUBROUTINE GITTER
+ INTEGER X,Y