1 C -+-+-+-+-+
\ e H A E C C H . F T
\ e -+-+-+-+-+
3 C CHANGES THE CHANNEL OF THE SAMPLE IN THE BUFFER
10 \f COMP=.FALSE. @ RESET THE COMPUTATION FLAG
11 IF (OPTION.EQ.0) GOTO 15 @ NO SPECIAL COMMAND, READ CHANNEL NUMBER
12 OPTION=OPTION-1 @ CH1 --> 1, CH0 --> 0
13 IF (OPTION.GE.0 .AND. OPTION.LE.CHNLS-1) GOTO 10 @ TEST FOR VALID CHANNEL NUMBER
14 WRITE (TTO,1) OPTION @ PRINT ERROR MSG (MAY BE INCORRECT FOR * - ETC.)
16 15 WRITE (TTO,2) @ CHANNELNUMBER?
17 READ (TTI,3) OPTION @ I1 FORMAT
18 IF (SAMCNT.EQ.0 .AND. OPTION.GT.0) GOTO 20 @ NO SAMPLE ONLY CHANNEL 0 ALLOWED!
19 IF (OPTION.GE.0 .AND. OPTION.LE.CHNLS-1) GOTO 10 @ TEST FOR VALID CHANNELNUMBER
20 WRITE (TTO,1) OPTION @ CHANNELNUMBER IS NOT VALID
22 10 IF (SAMCNT.EQ.0 .AND. OPTION.GT.0) GOTO 20
23 CHANEL=OPTION @ SET THE CORRECT INDEX USED BY ESAM
25 20 WRITE (TTO,4) @ NO SAMPLE: ONLY CHANNEL # 0 ALLOWED!
27 1 FORMAT (' KANALBEZEICHNUNG',I3,' UNZULAESSIG.')
28 2 FORMAT (' KANALNUMMER? (I1) ',$)
30 4 FORMAT (' SOLANGE KEIN DATENSATZ GELESEN IST NUR KANAL ',