Tektronix 2714, Руководство программиста

Страница: 206 / 308

Programming
6–8
2714 & 2715 Programmer Manual
' waveform transfer and any other response from the 2714 or 2715.
*
' Binary transfers can contain embedded cr/lf characters so *
' must ignore them until get past the binary data *
' *
'****************************************************************
'
IF func% <> 5 THEN 'use first cr/lf
' encounter for EOF
IF INSTR(rd$, CHR$(10)) THEN 'on everything but
' binary files
IF INSTR(rd$, CHR$(13)) THEN 'insure that read
end.of.read$ = "Y" 'EOF (cr/lf)
buffer$ = "Y" 'then set buffer flag
' on to indicate
END IF 'successful read
END IF
ELSE
IF LEN(rd$) > 523 THEN 'insure have read past
' binary data
IF INSTR(524, rd$, CHR$(13)) THEN 'before checking for
' cr/lf
IF INSTR(525, rd$, CHR$(10)) THEN
end.of.read$ = "Y"
buffer$ = "Y" 'set buffer flag on
END IF
END IF
END IF
END IF
'
RETURN
'
'****************************************************************
' PROCEDURE to perform a number of tasks: *
' 1) format the screen to accept operator input *
' 2) open communication link with 2714 or 2715
*
' (func%=1,call RS232.CALLS) *
' 3) accept input *
' 4) link to procedure which sends input to 2714 or 2715
*
' (SENDCOMMAND) *
' *
' Procedure continues looping until the ESCape key is pressed *
' The ESCape key ends program execution and returns operator *
' to DOS. *
'****************************************************************