Fluke 54200 - Page 257

Remote Control
Programming Examples
6
6-49
WR$ = "*cls" + CHR$(10) 'clear status register
PRINT #1, WR$ 'output command string
END IF
END SUB
FUNCTION TestCmd (A$)
RESTORE
Cmd% = 100
i% = 0
DO UNTIL Cmd% < 100 OR i% > 17
READ b$
IF A$ = b$ THEN
Cmd% = i% \ 2
END IF
i% = i% + 1
LOOP
TestCmd = Cmd%
END FUNCTION