1 files changed, 28 insertions, 0 deletions
diff --git a/packages/numlib/examples/iomremex.pas b/packages/numlib/examples/iomremex.pas
new file mode 100644
index 0000000000..1263464f68
--- /dev/null
+++ b/packages/numlib/examples/iomremex.pas
@@ -0,0 +1,28 @@
+program iomremex;
+
+uses
+  typ, iom;
+
+const
+  m = 3;
+  n = 2;
+  
+var
+  a: array[1..m, 1..n] of ArbFloat;
+  
+begin
+  Assign(input, ParamStr(1));
+  reset(input);
+  Assign(output, ParamStr(2));
+  rewrite(output);
+  {inlezen van de matrix}
+  iomrem(input, a[1, 1], m, n, n);
+  writeln('program results iomremex');
+  writeln;
+  writeln('A=');
+  writeln;
+  {afdrukken van de matrix}
+  iomwrm(output, a[1, 1], m, n, n, 12);
+  Close(input);
+  Close(output);
+end.