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