

Task

Obtain a valid   Y   or   N   response from the keyboard.

The keyboard should be flushed, so that any outstanding key-presses are removed, preventing any existing   Y   or   N   key-press from being evaluated.

The response should be obtained as soon as   Y   or   N   are pressed, and there should be no need to press an   enter   key.




WHILE INKEY$ <> "": WEND '                                  Flushes keyboard buffer.
PRINT "Do you want to continue? (Y/N)"
DO
    k$ = UCASE$(INKEY$) '                                   Forces key response to upper case.
LOOP UNTIL k$ = "Y" OR k$ = "N"
PRINT "You pressed " + CHR$(34) + k$ + CHR$(34) + "." '     CHR$(34) prints quotation marks.