Tektronix 2714, Programmer'S Manual

Page: 210 / 308

Programming
6–12
2714 & 2715 Programmer Manual
'
IF x = 8 AND y = 11 TH EN '
BEEP 'cannot backspace beyond
' area of window
RETURN '
ELSEIF x = 8 TH EN
y = y - 1 'backspace to end of
' previous line
LOCATE y, 73 'and locate cursor
ELSE
LOCATE y, x - 1 'locate cursor one position
' back
END IF
'
PRINT " " + CHR$(29); 'erase the character and then
' back up
wrt$ = LEFT$(wrt$, LEN(wrt$) - 1) 'remove one character from the
' string of saved input
'
RETURN
END SUB
'****************************************************************
' This procedure performs all RS232 calls. All information *
' needed has been defined as global variables: *
' rd$ = returned info from RS232 call *
' wrt$ = info to send to device *
' func% = identifies which RS232 function to perform *
' wfm% = array to hold waveform *
'****************************************************************
SUB RS232.CALLS
'
IF func% = 1 TH EN
GOTO SELECT.DEVICE
ELSEIF func% = 3 TH EN
GOTO SEND.MESSAGE.TO.DEVICE
ELSEIF func% = 5 TH EN
GOTO GET.BINARY.WAVEFORM
END IF
'
'****************************************************************
' This routine opens COM PORT 1 for communication via RS232, *
' opened for random so can handle both input and output *
'****************************************************************
' SPEED = 9600 (bits per second-also called BAUD RATE) *
' PARITY = NONE (parity bit not used) *
' DATA = 8 (number of data bits per byte) *
' STOP = 1 (number of stop bits) *