September Morn Update

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

@@ -0,0 +1,15 @@
+100 PROGRAM "Type.bas"
+110 TEXT 80
+120 INPUT PROMPT "File name: ":F$
+130 WHEN EXCEPTION USE IOERROR
+140   OPEN #1:F$ ACCESS INPUT
+150   DO
+160     LINE INPUT #1,IF MISSING EXIT DO:F$
+170     PRINT F$
+180   LOOP
+190   CLOSE #1
+200 END WHEN
+210 HANDLER IOERROR
+220   PRINT EXSTRING$(EXTYPE)
+230   END
+240 END HANDLER

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

@@ -0,0 +1,11 @@
+100 PROGRAM "Type.bas"
+110 INPUT PROMPT "File name: ":F$
+120 WHEN EXCEPTION USE IOERROR
+130   OPEN #1:F$
+140   COPY FROM #1 TO #0
+150   CLOSE #1
+160 END WHEN
+170 HANDLER IOERROR
+180   PRINT EXSTRING$(EXTYPE)
+190   CLOSE #1
+200 END HANDLER

Task/Input-loop/Elena/input-loop-1.elena

@@ -1,8 +1,8 @@
-import system'routines.
-import system'io.
-import extensions'routines.
+import system'routines;
+import system'io;
+import extensions'routines;
 
-program =
-[
-    ReaderEnumerator new(File new:"file.txt"); forEach:printingLn.
-].
+public program()
+{
+    ReaderEnumerator.new(File.assign:"file.txt").forEach(printingLn)
+}

Task/Input-loop/Elena/input-loop-2.elena

@@ -1,10 +1,10 @@
-import system'io.
+import system'io;
 
-program =
-[
-    var reader := File new:"file.txt"; textreader.
-    while (reader available)
-    [
-       console writeLine(reader readLiteral).
-    ].
-].
+public program()
+{
+    var reader := File.assign:"file.txt".textreader();
+    while (reader.Available)
+    {
+       console.writeLine(reader.readLine())
+    }
+}

Task/Input-loop/OCaml/input-loop-4.ocaml

@@ -0,0 +1,7 @@
+let rec input_caller () =
+  let input = read_line() in
+  your_function input ;
+  input_caller() ;
+;;
+
+let () = input_caller()

Task/Input-loop/REXX/input-loop-4.rexx

@@ -1,6 +1,4 @@
 /*REXX program reads from the (console) default input stream until null*/
-
        do  until _==''
        parse pull _
-       end   /*until ...*/
-exit                                   /*stick a fork in it, we're done.*/
+       end   /*until*/                 /*stick a fork in it, we're done.*/

Task/Input-loop/REXX/input-loop-5.rexx

@@ -1,6 +1,4 @@
 /*REXX program reads from the (console) default input stream until null*/
-
        do  until _==''
-       _=linein()
-       end   /*until ...*/
-exit                                   /*stick a fork in it, we're done.*/
+       _= linein()
+       end   /*until*/                 /*stick a fork in it, we're done.*/

Task/Input-loop/VBA/input-loop.vba

@@ -0,0 +1,10 @@
+Public Sub test()
+    Dim filesystem As Object, stream As Object, line As String
+    Set filesystem = CreateObject("Scripting.FileSystemObject")
+    Set stream = filesystem.OpenTextFile("D:\test.txt")
+    Do While stream.AtEndOfStream <> True
+        line = stream.ReadLine
+        Debug.Print line
+    Loop
+    stream.Close
+End Sub