Keyboard input/Obtain a Y or N response: Difference between revisions
Keyboard input/Obtain a Y or N response (view source)
Revision as of 21:11, 13 May 2019
, 5 years ago→{{header|Vedit macro language}}: Wee Basic has been added, placed below.
Childishbeat (talk | contribs) m (→{{header|Vedit macro language}}: Wee Basic has been added, placed below.) |
|||
Line 1,716:
#1 &= 0xdf // to upper case
} while (#1 != 'Y' && #1 != 'N') </lang>
=={{header|Wee Basic}}==
<lang Wee Basic>print 1 "Enter Y for yes, or N for no. (not case sensitive)
let loop=0
let keycode=0
while loop=0
let keycode=key()
if keycode=121
let response$="y"
let loop=1
endif
if keycode=89
let response$="Y"
let loop=1
endif
if keycode=110
let response$="n"
let loop=1
endif
if keycode=78
let response$="N"
let loop=1
endif
wend
print 1 "You entered"+response$
end</lang>
=={{header|XPL0}}==
| |||