*** 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 42a36caeb17ebea3f219c9ef7c76dbf3e4bfdb23..0e52e0395601de3545aaeb9c9179c2bc028ae6f2 100644 (file)
--- a/programs/plotter/src/sinus.f
+++ b/programs/plotter/src/sinus.f
@@ -4,7 +4,9 @@ C
       INTEGER X,Y
 C
 C
- 1000 CALL PL$RST
+C
+ 1000 CALL PL$INI
+      CALL PL$SCL(2.54)
 C
       CALL GITTER
       CALL PL$PU
@@ -54,7 +56,8 @@ C
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
 C
       SUBROUTINE GITTER
-      INTEGER X,Y
+      INTEGER X,Y,STAK(400)
+      CALL S$INIT(STAK,400)
       DO 2000 X=0,600,50
          CALL LINE(X,-100,X,100)
  2000 CONTINUE
@@ -71,6 +74,9 @@ C
       CALL LINE (0,-1,600,-1)
       CALL LINE (-1,-100,-1,100)
       CALL LINE (1,-100,1,100)
+      CALL PL$PU
+      CALL PL$MV(0,110)
+      CALL PL$TXT(STAK,37HSinus-Demo, 08.11.2008, Ph. Hachtmann,37)
 C
       RETURN
       END