*** 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 b721b01ca2b0a85a018761b21776010592cf8a70..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
@@ -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