on kbd1 Example10 CONTROL KBD,203;1
20 CONTROL KBD,204;1
30 ON KBD ALL GOSUB Keyhit ! defines event branch for keyboard input
40 CLEAR SCREEN
50 PRINT "Type A"
60 REPEAT
70 UNTIL Buf$="A"
80 STOP
90 Keyhit: ! Branch taken upon key press
100 Buf$=KBD$ ! KBD$ returns key to Buf$
110 IF Buf$="A" THEN
120 PRINT "Thank You"
130 DISP "Test complete."
140 RETURN
150 ELSE
160 BEEP
170 DISP Buf$
180 RETURN
190 END IF
200 END
|