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

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