Tektronix 2714, Programmer'S Manual

Page: 221 / 308

Programming
2714 & 2715 Programmer Manual
6–23
END IF
'
LOCATE display.line% + 19, 8, 0
PRINT rd1$;
rd$ = RIGHT$(rd$, LEN(rd$) - LEN(rd1$))
'
IFLEN(rd$) >= 3 THEN
display.line% = display.line% + 1
ELSE
display.line% = 6
END IF
LOOP'
IFLEN(rd$) >= 3 THEN
GOSUB TEMP.STOP
END IF'
RETURN
'
DISPLAY.WAVE:
'
'======================================
' routine to display the data on screen
'======================================
x = 20: y = 8
F OR IX% = 0 TO 511
LOCATE x, y
PRINT wfm%(IX%);
y = y + 5
IFy > 70 THEN
y = 8
x = x + 1
END IF
IFx > 24 THEN
x = 20
GOSUB TEMP.STOP
END IF
NEXT
'
RETURN
'
'===============================================
' routine invoked to control display of response
'===============================================
'TEMP.STOP:
'
COLOR 0, 7
LOCATE 25, 9, 0: PRINT "Press {Enter} to continue the list";
DO WHILE INKEY$ <> CHR$(13)LOOPCOLOR 9, 9