CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C EINGABEN ANNEHMEN
C
- N=1
- CALL SSWTCH(N,I)
- IF(I.EQ.1) GO TO 150
+ CALL SSWTCH(1,I)
+ IF(I.NE.1) GO TO 150
C
WRITE(1,11)
READ (1,16) XIN1
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C STARTWERTE AUSGEBEN
C
- N=2
- CALL SSWTCH(N,I)
+ CALL SSWTCH(2,I)
IF(I.EQ.1) GO TO 299
WRITE (1,20)
20 FORMAT (9HSETTINGS:)