Data commit

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,4 @@
+Do Until input=''
+  input=linein(stdin)
+  Call lineout ,input
+  End

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

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

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

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

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

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