A-M baby

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

@@ -0,0 +1,3 @@
+do while stream(stdin, "State") <> "NOTREADY"
+  call charout ,charin(stdin)
+end

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

@@ -0,0 +1,5 @@
+/* -- AREXX -- */
+do until eof(stdin)
+  l = readln(stdin)
+  say l
+end

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

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