From 724cc003460ec67eda269911da85c9f9e40aa6cf Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Fri, 30 Sep 2016 16:57:23 +0200
Subject: Add extracted sources from floppy disk images

Some files have no textual representation (yet) and were added as raw
dataspaces.
---
 doc/eudas/bildergenerator | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 doc/eudas/bildergenerator

(limited to 'doc/eudas/bildergenerator')

diff --git a/doc/eudas/bildergenerator b/doc/eudas/bildergenerator
new file mode 100644
index 0000000..8129476
--- /dev/null
+++ b/doc/eudas/bildergenerator
@@ -0,0 +1,25 @@
+PROC starten : 
+ 
+  command dialogue (FALSE); 
+  disable stop; 
+  fetch (name, /"DGS NEC"); 
+  run (name); 
+  save (name + ".p", /"DGS NEC"); 
+  end (myself) 
+ 
+END PROC starten; 
+ 
+TEXT VAR name; 
+ 
+PROC gen (TEXT CONST t) : 
+ 
+  name := t; 
+  begin ("p", PROC starten, a); 
+  TASK VAR a; 
+  WHILE exists (a) REP pause (100) END REP 
+ 
+END PROC gen; 
+ 
+gen ("abb.4-2"); 
+gen ("abb.6-1");
+
-- 
cgit v1.2.3