langs a-z

Task/Input-loop/NetRexx/input-loop-1.netrexx

@@ -0,0 +1,21 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+-- Read from default input stream (console) until end of data
+lines = ''
+lines[0] = 0
+lineNo = 0
+
+loop label ioloop forever
+  inLine = ask
+  if inLine =  null  then leave ioloop -- stop on EOF
+  lineNo = lineNo + 1
+  lines[0] = lineNo
+  lines[lineNo] = inLine
+  end ioloop
+
+loop l_ = 1 to lines[0]
+  say l_.right(4)':' lines[l_]
+  end l_
+
+return

Task/Input-loop/NetRexx/input-loop-2.netrexx

@@ -0,0 +1,20 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+-- Read from default input stream (console) until end of data
+lines = ''
+lines[0] = 0
+
+inScanner = Scanner(System.in)
+loop l_ = 1 while inScanner.hasNext()
+  inLine = inScanner.nextLine()
+  lines[0] = l_
+  lines[l_] = inLine
+  end l_
+inScanner.close()
+
+loop l_ = 1 to lines[0]
+  say l_.right(4)':' lines[l_]
+  end l_
+
+return