--- /dev/null
+C ACH JA, DAS AUCH
+C
+C
+ INTEGER X,Y
+C
+C
+ 1000 CALL PL$RST
+ DO 2000 X=0,600,50
+ CALL LINE(X,-100,X,100)
+ 2000 CONTINUE
+
+ 1500 DO 1600 Y=0,200,50
+ CALL LINE(0,Y-100,600,Y-100)
+ 1600 CONTINUE
+ CALL LINE (0,1,600,1)
+ CALL LINE (0,-1,600,-1)
+C
+ CALL PL$MV(0,0)
+ CALL PL$PD
+ DO 3000 X=0,600
+ TMP=X
+ PHI=(3.141/180.0)*TMP
+ Y=SIN(PHI)*90.0
+ CALL PL$MV(X,Y)
+ 3000 CONTINUE
+ CALL PL$PU
+C
+C
+C
+ CALL PL$MV(0,0)
+ CALL REBOOT
+ END
+C
+C
+C
+ SUBROUTINE LINE(X1,Y1,X2,Y2)
+ INTEGER X1,Y1,X2,Y2
+ CALL PL$MV(X1,Y1)
+ CALL PL$PD
+ CALL PL$MV(X2,Y2)
+ CALL PL$PU
+ RETURN
+ END
+$0
+
+