Time for an 2014 update…

Task/Input-loop/BASIC/input-loop-1.basic

@@ -0,0 +1,14 @@
+100 INPUT "FILENAME:";F$
+110 D$ = CHR$(4)
+120 PRINT D$"VERIFY"F$
+130 PRINT D$"OPEN"F$
+140 PRINT D$"READ"F$
+150 ONERR GOTO 190
+
+160 GET C$
+170 PRINT CHR$(0)C$;
+180 GOTO 160
+
+190 POKE 216,0
+200 IF PEEK(222) <> 5 THEN RESUME
+210 PRINT D$"CLOSE"F$

Task/Input-loop/BASIC/input-loop-2.basic

@@ -0,0 +1,11 @@
+      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