Family Day update

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

@@ -2,9 +2,11 @@ import system'io;
 
 public program()
 {
-    var reader := File.assign:"file.txt".textreader();
-    while (reader.Available)
+    using(var reader := File.assign:"file.txt".textreader())
     {
-       console.writeLine(reader.readLine())
+        while (reader.Available)
+        {
+           console.writeLine(reader.readLine())
+        }
     }
 }

Task/Input-loop/XPL0/input-loop.xpl0

@@ -0,0 +1,9 @@
+int C;
+[repeat                                 \read file
+        repeat                          \read line
+                repeat  C:= ChIn(1);    \read word
+                        ChOut(0, C);
+                until   (C<^A ! C>^z) & (C<^0 ! C>^9);  \non-alphanumeric
+        until   C < $20;                \CR, LF, or EOF
+until   C = \EOF\ $1A;
+]