Add extracted sources from floppy disk images

Some files have no textual representation (yet) and were added as raw
dataspaces.

1 files changed, 19 insertions, 0 deletions

diff --git a/eudas/pos.173 b/eudas/pos.173
new file mode 100644
index 0000000..a9706a3
--- /dev/null
+++ b/eudas/pos.173
@@ -0,0 +1,19 @@
+PACKET xpos DEFINES x pos : 
+INT PROC x pos (TEXT CONST a, b, INT CONST c, d) : 
+  pos (a, b, c, d) 
+END PROC x pos; 
+END PACKET x pos; 
+PACKET pos 173 DEFINES pos: 
+INT PROC pos (TEXT CONST a, b, INT CONST c, d) : 
+  x pos (a, b, c, d+1) 
+END PROC pos; 
+END PACKET pos 173; 
+PACKET add 173 DEFINES split line, reserve : 
+PROC split line (FILE VAR f, INT CONST spalte, BOOL CONST dummy) : 
+  split line (f, spalte) 
+END PROC split line; 
+PROC reserve (TEXT CONST modus, TASK CONST task) : 
+  call (19, modus, task) 
+END PROC reserve; 
+END PACKET add 173; 
+