60 FORMAT (5HREADY)
C
CCCCCC BREAK WITH 7 in A REG, THEN START OVER
+C CALL PWAIT
PAUSE 7
GO TO 100
END
C
CCCCCC PUNKT FERTIG
410 NOUT=32
+C IF (COUNT.GE.8) NOUT=46
+C IF (COUNT.GE.23) NOUT=43
+C IF (COUNT.EQ.MAXI) NOUT=64
IF (COUNT.GE.8) NOUT=46
IF (COUNT.GE.23) NOUT=43
IF (COUNT.EQ.MAXI) NOUT=64
-C NOUT=46
+
411 CALL PCHAR(NOUT)
GO TO 500
C
C
CR = 13
LF = 10
- WIDTH = 70
+ WIDTH = 68
MAXI = 60
MAXVAL = 2.0
- LOWX =-1.45
- HIGHX = 0.45
- LOWY =-1.00
- HIGHY = 1.00
+ LOWX =-1.48
+ HIGHX = 0.5
+ LOWY =-1.2
+ HIGHY = 1.2
INIT = 1
C
CCCCCC SCHRITTWEITEN AUSRECHNEN