langs a-z

Task/Input-loop/Objeck/input-loop.objeck

@@ -0,0 +1,17 @@
+use IO;
+
+bundle Default {
+  class Test {
+    function : Main(args : System.String[]) ~ Nil {
+      f := FileReader->New("in.txt");
+      if(f->IsOpen()) {
+        string := f->ReadString();
+        while(string->Size() > 0) {
+          string->PrintLine();
+          string := f->ReadString();
+        };
+        f->Close();
+      };
+    }
+  }
+}