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

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