CipherLab 8200 - Page 67

55
Chapter 4 BASIC Commands
Example (3)
REM Parse key codes in subroutine
ON KEY(256+255) GOSUB KeyEvent
KeyEvent:
KeyData$ = INKEY$
A% = ASC(KeyData$)
IF A% = 144 THEN
PRINT “KEY_F13 is pressed.”
ELSE IF A% = 145 THEN
PRINT “KEY_F14 is pressed.”
END IF
RETURN