1 C -+-+-+-+-+
\ e H A E S I Z . F T
\ e -+-+-+-+-+
3 C SWITCHES THE SIZE OF THE PLOTS FROM A4 TO A3 AND V.V.
4 C CHANGES THE PLOTTER UNIT NUMBER PLOTNO
18 IF (OPTION.EQ.1) GOTO 10 @ SUPER 8 FORMAT
19 IF (OPTION.EQ.4) GOTO 30 @ A3 FORMAT
20 IF (OPTION.EQ.5) GOTO 40 @ A4 FORMAT
27 WRITE(TTO,4) PLOTNO @ LESE PLOTTER NUMMER EIN
29 PLOTNO=NCOND(I,I,PLOTNO) @ ERLAUBE ERST MAL ALLE PLOTTER NUMMERN
53 1 FORMAT (' LAENGE DER ABZISSE [CM] (',F5.1,') ? ',$)
55 3 FORMAT (' LAENGE DER ORDINATE [CM](',F5.1,') ? ',$)
56 4 FORMAT (' PLOTTER NUMMER? (',I2,') ? ',$)