*** empty log message ***

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

diff --git a/programs/plotter/src/sinus.f b/programs/plotter/src/sinus.f
index e6bf809688232b2e77b4f598431fe73cd6b8b623..42a36caeb17ebea3f219c9ef7c76dbf3e4bfdb23 100644 (file)
--- a/programs/plotter/src/sinus.f
+++ b/programs/plotter/src/sinus.f
@@ -7,6 +7,7 @@ C
  1000 CALL PL$RST
 C
       CALL GITTER
+      CALL PL$PU
 C
       CALL PL$MV(0,0)
       CALL DOWN
@@ -29,7 +30,10 @@ C
 C     
 C
       CALL PL$MV(0,0)
-      CALL REBOOT
+C      CALL REBOOT
+       CALL PL$MV (0,-250)
+       PAUSE 7
+       GO TO 1000
       END
 C
 C
@@ -72,14 +76,13 @@ C
       END
 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
+C      SUBROUTINE LINE(X1,Y1,X2,Y2)
+C      CALL PL$MV(X1,Y1)
+C      CALL PL$PD
+C      CALL PL$MV(X2,Y2)
+C      CALL PL$PU
+C      RETURN
+C      END
 CCCCCCCCCC
 C
       SUBROUTINE DOWN