Keyboard input/Obtain a Y or N response: Difference between revisions
Keyboard input/Obtain a Y or N response (view source)
Revision as of 17:31, 3 July 2020
, 3 years ago→{{header|GWBASIC}}
(Added Wren) |
|||
Line 131:
80 WEND
90 PRINT "The response was "; T$
</lang>
===={{header|GWBASIC variant}}====
<lang gwbasic>
10 DEF FNUP$(C$)=CHR$(ASC(C$)-32*(ASC(C$)>96)*(ASC(C$)<123))
20 CLS: PRINT "Press Y or N to continue."
30 WHILE T$<>"Y" AND T$<>"N"
40 T$=FNUP$(INPUT$(1))
50 IF T$<>"Y" AND T$<>"N" THEN BEEP
60 WEND
70 PRINT "The response was: "; T$
</lang>
| |||