Input loop: Difference between revisions
m
Put Commodore BASIC in alphabetical order for the examples listed under BASIC.
(Tidy up some capitalization since the program runs in lower-case mode.) |
m (Put Commodore BASIC in alphabetical order for the examples listed under BASIC.) |
||
Line 489:
200 IF PEEK(222) <> 5 THEN RESUME
210 PRINT D$"CLOSE"F$</lang>
==={{header|BBC BASIC}}===▼
{{works with|BBC BASIC for Windows}}▼
This specifically relates to console input (stdin).▼
<lang bbcbasic> STD_INPUT_HANDLE = -10▼
STD_OUTPUT_HANDLE = -11▼
SYS "GetStdHandle", STD_INPUT_HANDLE TO @hfile%(1)▼
SYS "GetStdHandle", STD_OUTPUT_HANDLE TO @hfile%(2)▼
SYS "SetConsoleMode", @hfile%(1), 0▼
*INPUT 13▼
*OUTPUT 14▼
REPEAT▼
INPUT A$▼
PRINT A$▼
UNTIL FALSE</lang>▼
==={{header|Commodore BASIC}}===
Line 518 ⟶ 533:
</lang>
▲==={{header|BBC BASIC}}===
▲{{works with|BBC BASIC for Windows}}
▲This specifically relates to console input (stdin).
▲<lang bbcbasic> STD_INPUT_HANDLE = -10
▲ STD_OUTPUT_HANDLE = -11
▲ SYS "GetStdHandle", STD_INPUT_HANDLE TO @hfile%(1)
▲ SYS "GetStdHandle", STD_OUTPUT_HANDLE TO @hfile%(2)
▲ SYS "SetConsoleMode", @hfile%(1), 0
▲ *INPUT 13
▲ *OUTPUT 14
▲ REPEAT
▲ INPUT A$
▲ PRINT A$
▲ UNTIL FALSE</lang>
==={{header|IS-BASIC}}===
| |||