1 files changed, 32 insertions, 0 deletions
diff --git a/engines/avalanche/initxf.cpp b/engines/avalanche/initxf.cpp
new file mode 100644
index 0000000000..964aa51422
--- /dev/null
+++ b/engines/avalanche/initxf.cpp
@@ -0,0 +1,32 @@
+#include "ptoc.h"
+
+
+/*#include "Crt.h"*/
+
+struct inirex {
+          varying_string<12> a;
+          word num;
+};
+
+text i;
+file<inirex> o;
+inirex x;
+
+int main(int argc, const char* argv[])
+{pio_initialize(argc, argv);
+;
+ assign(i,"v:init0.dat"); reset(i);
+ assign(o,"v:init.avd"); rewrite(o);
+
+ while (! eof(i)) 
+ {;
+  i >> x.a >> NL;
+  i >> x.num >> NL;
+  o << x;
+  output << '.';
+ }
+
+ close(i); close(o);
+ output << NL;
+return EXIT_SUCCESS;
+}
+\ No newline at end of file