X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fsinus.f;h=42a36caeb17ebea3f219c9ef7c76dbf3e4bfdb23;hb=bf9d30c535b51bcb9841e98dc7bd6a5007f84014;hp=e6bf809688232b2e77b4f598431fe73cd6b8b623;hpb=34bd95b6c92b130c18e1a7867a4caca1bca516ad;p=h316.git

diff --git a/programs/plotter/src/sinus.f b/programs/plotter/src/sinus.f
index e6bf809..42a36ca 100644
--- 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