Keyboard input/Obtain a Y or N response: Difference between revisions
Keyboard input/Obtain a Y or N response (view source)
Revision as of 20:52, 14 March 2023
, 1 year agoKeyboard input/Obtain a Y or N response in True BASIC
m (→{{header|RPL}}: add a prompt line) |
(Keyboard input/Obtain a Y or N response in True BASIC) |
||
Line 356:
70 PRINT "Try again"
80 GOTO 30</syntaxhighlight>
==={{header|True BASIC}}===
<syntaxhighlight lang="qbasic">LIBRARY "DefLib.trc"
DECLARE DEF INKEY$
PRINT "Press Y or N to continue."
DO
LET kbd$ = ""
DO WHILE kbd$ = ""
LET kbd$ = UCASE$(INKEY$)
LOOP
IF kbd$ <> "Y" AND kbd$ <> "N" THEN SOUND 800, .25
LOOP UNTIL kbd$ = "Y" OR kbd$ = "N"
PRINT "The response was "; kbd$
END</syntaxhighlight>
==={{header|Yabasic}}===
| |||