RosettaCodeData/Task/Keyboard-input-Keypress-check/QBasic/keyboard-input-keypress-che...

3 lines
46 B
Plaintext

DO: k$ = INKEY$: LOOP UNTIL k$ <> ""
PRINT k$