1 CCCCCC EINSTELLUNGEN EINLESEN
4 INTEGER MAXI,WIDTH,CR,LF
5 COMMON /PARAM2/MAXI,WIDTH,CR,LF
6 REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
7 COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
9 REAL XIN1,XIN2,YIN1,YIN2
22 11 FORMAT(14H X FROM : )
24 13 FORMAT(14H Y FROM : )
26 15 FORMAT(14H MAXIT (I3): )
33 CCCCCC EVENTUELL STARTWERTE TAUSCHEN:
34 CCCCCC WENN XIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
35 150 I F(XIN2.GT.XIN1) GO TO 200
40 CCCCCC WENN YIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
41 200 IF(YIN2.GT.YIN1) GO TO 201
46 CCCCCC WERTE UEBERNEHMEN
52 CCCCCC SCHRITTWEITEN AUSRECHNEN
53 XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)