*** empty log message ***

[h316.git] / programs / plotter / src / nikolaussiedlung.f

diff --git a/programs/plotter/src/nikolaussiedlung.f b/programs/plotter/src/nikolaussiedlung.f
index 7020a1a1d2847e9d4d6c6b0f75c1120daf602673..66433c3a5da3bdaae79202fb445a53d43af752f2 100644 (file)
--- a/programs/plotter/src/nikolaussiedlung.f
+++ b/programs/plotter/src/nikolaussiedlung.f
@@ -2,14 +2,16 @@ C PLOTTER TEST PROGRAM
 C
 C
       CALL PL$RST
+      CALL PL$SCI(100)
+      CALL PL$ROI(30)
       CALL PL$PD
-      CALL PL$MV(550,0)
-      CALL PL$MV(550,95)
+      CALL PL$MV(605,0)
+      CALL PL$MV(605,95)
       CALL PL$MV(0,95)
       CALL PL$MV(0,0)
       CALL PL$MV(1,1)
-      CALL PL$MV(549,1)
-      CALL PL$MV(549,94)
+      CALL PL$MV(604,1)
+      CALL PL$MV(604,94)
       CALL PL$MV(1,94)
       CALL PL$MV(1,1)
       CALL PL$PU
@@ -29,7 +31,7 @@ C
       CALL PL$PU
       CALL PL$MV(55,0)
  1000 CONTINUE
-      CALL PL$MV(-540,-10)
+      CALL PL$MV(-595,-10)
 C
 C
 10000 CALL REBOOT