kbd1 Example
10 !While the program is running, type a key and its # will be returned to you.
20 CONTROL KBD,203;1
30 CONTROL KBD,204;1
40 PRINT "to quit type q"
50 ON KBD GOSUB Printit
60 LOOP
70 WAIT .01
80 END LOOP
90 Printit: !
100 K$=KBD
110 IF K$="q" THEN STOP
120 PRINT NUM(K$) !Prints out the # of the key pressed.
130 RETURN
140 END
