Keyboard input/Obtain a Y or N response: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}: add a prompt line) |
(Keyboard input/Obtain a Y or N response in True BASIC) |
||
| Line 356: | Line 356: | ||
70 PRINT "Try again" |
70 PRINT "Try again" |
||
80 GOTO 30</syntaxhighlight> |
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}}=== |
==={{header|Yabasic}}=== |
||