11 lines
314 B
Text
11 lines
314 B
Text
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
|