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/abb.1-1 | 94 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 94 insertions(+)
 create mode 100644 doc/eudas/abb.1-1

(limited to 'doc/eudas/abb.1-1')

diff --git a/doc/eudas/abb.1-1 b/doc/eudas/abb.1-1
new file mode 100644
index 0000000..06c27fd
--- /dev/null
+++ b/doc/eudas/abb.1-1
@@ -0,0 +1,94 @@
+init dgs; 
+window (0.0, 0.0, 13.5, 7.1); (*viewport (0.0,0.0,13.5,7.1); *) 
+scale (1.0,1.0,0.0,0.0);
+(*clear pixels;*)
+ 
+karteikasten (1.0, 3.5, "Kartei A", "Wegner", "Herbert"); 
+karteikasten (5.0, 0.5, "Kartei B", "Regmann", "Karin"); 
+   
+LET myname = "abb.1-1";
+save pixels (myname + ".p"); 
+FILE VAR f := sequential file (modify, myname + ".p"); 
+to line (f, 1); insert record (f); 
+write record (f, "#linefeed (0.8)#"); 
+insert record (f); write record (f, myname); 
+to eof (f); insert record (f); write record (f, myname); 
+to line (f, 1);
+(* 
+pause (10000);
+*)
+PROC karteikasten (REAL CONST x, y, TEXT CONST name, t name, t vorname) : 
+ 
+  move (x - 0.1, y); 
+  draw (x + 3.6, y); 
+  draw (x + 3.6, y + 1.0); 
+  draw (x - 0.1, y + 1.0); 
+  draw (x - 0.1, y); 
+ 
+  move (x + 0.1, y + 1.1); 
+  draw (x + 0.5, y + 1.5); 
+  move (x + 0.1, y + 1.1); 
+  draw (x + 3.6, y + 1.1);
+  move (x - 0.1, y + 1.0); 
+  draw (x + 0.5, y + 1.6); 
+ 
+  move (x + 3.6, y); 
+  draw (x + 5.2, y + 1.6); 
+  draw (x + 5.2, y + 2.6); 
+  draw (x + 3.6, y + 1.0); 
+    move (x + 3.6, y + 1.1); draw (x + 5.0, y + 2.5); 
+    move (x + 5.2, y + 2.6); draw (x + 5.0, y + 2.6); 
+ 
+  move (x + 0.5, y + 1.1); 
+  draw (x + 0.5, y + 2.5); 
+  draw (x + 4.0, y + 2.5); 
+  draw (x + 4.0, y + 1.5); 
+  move (x + 0.5, y + 2.5); 
+  draw (x + 1.5, y + 3.5); 
+  draw (x + 5.0, y + 3.5); 
+  draw (x + 5.0, y + 2.5); 
+  move (x + 5.0, y + 3.5); 
+  draw (x + 4.0, y + 2.5); 
+  REAL VAR x off := 0.1; 
+  WHILE x off < 1.0 REP 
+    move (x + 0.5 + xoff, y + 2.5 + x off); 
+    draw (x + 4.0 + xoff, y + 2.5 + xoff); 
+    draw (x + 4.0 + xoff, y + 1.5 + xoff); 
+    x off INCR 0.1 
+  END REP; 
+  font size (0.5); 
+  font expansion (1.5); 
+  move (x + 0.5, y + 0.2); draw (name); 
+  font size (0.25);
+  move (x + 0.7, y + 2.10); draw ("Name"); 
+  move (x + 0.7, y + 1.65); draw ("Vorname"); 
+  move (x + 0.7, y + 1.20); draw ("Strasse");
+  move (x + 2.1, y + 2.10); draw (": " + t name); 
+  move (x + 2.1, y + 1.65); draw (": " + t vorname); 
+  move (x + 2.1, y + 1.20); draw (":");
+ 
+END PROC karteikasten;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-- 
cgit v1.2.3