This module is part of the original MMBasic library. It is reproduced here with kind permission of Hugh Buckle and Geoff Graham. Be aware it may reference functionality which has changed or is deprecated in the latest versions of MMBasic.¶
Note: Any required file(s) are available in the attachments tab (top right).
KEYBOARD.BAS
100 PRINT "This program will print the characters received from"
110 PRINT "the keyboard (directly or connected via USB)."
120 PRINT "Use CTRL-C to exit the program."
130 '
140 DO
150 TIMER = 0 ' used to detect a group of keys
160 '
170 ' this loop will get a character from the keyboard
180 ' also it will print a blank line between groups of
190 ' characters received at high speed (ie, via USB)
200 DO
210 a$ = INKEY$ ' get the character
220 IF TIMER = 100 THEN TIMER = 101 : PRINT
230 LOOP WHILE a$ = ""
240 '
250 ' print the character in an easy to read format
260 PRINT "DECIMAL = "; FORMAT$(ASC(a$), "%3g");
270 PRINT " ASCII = ";
280 IF a$ >= " " AND a$ <= "~" THEN PRINT a$;
290 PRINT
300 '
310 LOOP