off kbd Example
10 CLEAR SCREEN
20 PRINT "Type ""A"""
30 ON KBD ALL GOSUB Keyhit ! defines event branch for keyboard input
40 REPEAT
50 IF Buf$="x" THEN ! Type x to use OFF KBD.
60 OFF KBD
70 Disabled=500
80 PRINT "OFF KBD."
90 Buf$="A"
100 ELSE
110 DISP Buf$
120 END IF
130 UNTIL Buf$="A"
140 STOP
150 Keyhit: ! Branch taken upon key press
160 Buf$=KBD$ ! KBD$ returns key to Buf$
170 IF Buf$="A" THEN PRINT "Thank You"
180 RETURN
190 END
