Keyboard input/Obtain a Y or N response: Difference between revisions
Content added Content deleted
(Added Wren) |
|||
Line 131: | Line 131: | ||
80 WEND |
80 WEND |
||
90 PRINT "The response was "; T$ |
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> |
</lang> |
||