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