Family Day update

2020-02-17 23:21:07 -08:00 · 2020-02-17 23:21:07 -08:00 · 9ad63ea473
commit 9ad63ea473
parent aac6731f2c
2442 changed files with 39761 additions and 8255 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;
+]