X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fplottest2.f;fp=programs%2Fplotter%2Fsrc%2Fplottest2.f;h=9a45c5e47df5b2fe993f5e8d5459f707d12443cc;hb=fcb7b340c0c50feddfd0b1a4b2df25e41c374a12;hp=0000000000000000000000000000000000000000;hpb=31074970a727e80618c11cb3af64f15cb069ac3d;p=h316.git

diff --git a/programs/plotter/src/plottest2.f b/programs/plotter/src/plottest2.f
new file mode 100644
index 0000000..9a45c5e
--- /dev/null
+++ b/programs/plotter/src/plottest2.f
@@ -0,0 +1,38 @@
+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