Data commit

Task/Input-loop/Oberon-2/input-loop.oberon

@@ -0,0 +1,18 @@
+MODULE InputLoop;
+IMPORT
+  StdChannels,
+  Channel;
+VAR
+  reader: Channel.Reader;
+  writer: Channel.Writer;
+  c: CHAR;
+BEGIN
+  reader := StdChannels.stdin.NewReader();
+  writer := StdChannels.stdout.NewWriter();
+
+  reader.ReadByte(c);
+  WHILE reader.res = Channel.done DO
+    writer.WriteByte(c);
+    reader.ReadByte(c)
+  END
+END InputLoop.