瀏覽代碼

* File move to tests directory.

daniel 27 年之前
父節點
當前提交
e0ab74277c
共有 1 個文件被更改,包括 15 次插入0 次删除
  1. 15 0
      rtl/os2/tests/atx.pas

+ 15 - 0
rtl/os2/tests/atx.pas

@@ -0,0 +1,15 @@
+program atx;
+
+var f:text;
+    s:string;
+
+begin
+    assign(f,'c:\autoexec.bat');
+    reset(f);
+    while not eof(f) do
+        begin
+            readln(f,s);
+            writeln(s);
+        end;
+    close(f);
+end.