Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Input-loop/XPL0/input-loop.xpl0
+++ b/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;
+]