C -+-+-+-+-+  H A E C C H . F T  -+-+-+-+-+ C C CHANGES THE CHANNEL OF THE SAMPLE IN THE BUFFER C SUBROUTINE CCHNEL INCLUDE HAEPTI.FI INCLUDE HAEBUF.FI INCLUDE HAETTY.FI C COMP=.FALSE. @ RESET THE COMPUTATION FLAG IF (OPTION.EQ.0) GOTO 15 @ NO SPECIAL COMMAND, READ CHANNEL NUMBER OPTION=OPTION-1 @ CH1 --> 1, CH0 --> 0 IF (OPTION.GE.0 .AND. OPTION.LE.CHNLS-1) GOTO 10 @ TEST FOR VALID CHANNEL NUMBER WRITE (TTO,1) OPTION @ PRINT ERROR MSG (MAY BE INCORRECT FOR * - ETC.) RETURN 15 WRITE (TTO,2) @ CHANNELNUMBER? READ (TTI,3) OPTION @ I1 FORMAT IF (SAMCNT.EQ.0 .AND. OPTION.GT.0) GOTO 20 @ NO SAMPLE ONLY CHANNEL 0 ALLOWED! IF (OPTION.GE.0 .AND. OPTION.LE.CHNLS-1) GOTO 10 @ TEST FOR VALID CHANNELNUMBER WRITE (TTO,1) OPTION @ CHANNELNUMBER IS NOT VALID GOTO 15 10 IF (SAMCNT.EQ.0 .AND. OPTION.GT.0) GOTO 20 CHANEL=OPTION @ SET THE CORRECT INDEX USED BY ESAM RETURN 20 WRITE (TTO,4) @ NO SAMPLE: ONLY CHANNEL # 0 ALLOWED! GOTO 15 1 FORMAT (' KANALBEZEICHNUNG',I3,' UNZULAESSIG.') 2 FORMAT (' KANALNUMMER? (I1) ',$) 3 FORMAT (I1) 4 FORMAT (' SOLANGE KEIN DATENSATZ GELESEN IST NUR KANAL ', * '# 0 ERLAUBT.') END