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

diff --git a/programs/plotter/src/sinus.f b/programs/plotter/src/sinus.f
index b721b01..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
@@ -75,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