--- /dev/null
+C PLOTTER TEST PROGRAM
+C
+C
+ CALL PL$RST
+
+ CALL PL$PD
+ CALL PL$MV(610,0)
+ CALL PL$MV(610,95)
+ CALL PL$MV(0,95)
+ CALL PL$MV(0,0)
+ CALL PL$MV(1,1)
+ CALL PL$MV(609,1)
+ CALL PL$MV(609,94)
+ CALL PL$MV(1,94)
+ CALL PL$MV(1,1)
+ CALL PL$PU
+ CALL PL$MV(10,10)
+
+ DO 1000 I=1,10
+ CALL PL$RST
+ CALL PL$PD
+ CALL PL$MV(0,50)
+ CALL PL$MV(25,75)
+ CALL PL$MV(50,50)
+ CALL PL$MV(0,50)
+ CALL PL$MV(50,0)
+ CALL PL$MV(50,50)
+ CALL PL$MV(0,0)
+ CALL PL$MV(50,0)
+ CALL PL$PU
+ CALL PL$MV(60,0)
+ 1000 CONTINUE
+ CALL PL$MV(-540,-10)
+C
+C
+10000 CALL REBOOT
+ END
+$0