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.
---
 tecal/TeCal.gen | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 tecal/TeCal.gen

(limited to 'tecal/TeCal.gen')

diff --git a/tecal/TeCal.gen b/tecal/TeCal.gen
new file mode 100644
index 0000000..c670db7
--- /dev/null
+++ b/tecal/TeCal.gen
@@ -0,0 +1,55 @@
+LET tecal    = "TeCal",
+    auskunft = "TeCal Auskunft";
+
+IF NOT exists ("TeCal") THEN fetch ("TeCal",archive) FI;
+IF NOT exists ("TeCal Auskunft") THEN fetch ("TeCal Auskunft",archive) FI;
+
+checkoff;
+insert tecal;
+insert auskunft;
+shorten auskunft file;
+forget ("Tecal.gen", quiet).
+
+insert tecal   :
+  display (""13""10""15" TeCal-Rechner wird installiert  "14""13""10"");
+  insert (tecal);
+  forget (tecal, quiet).
+
+insert auskunft:
+  display (""13""15" TeCal-Auskunftfile wird installiert  "14""13""10"");
+  insert (auskunft).
+
+shorten auskunft file :
+  display (""13""10""15" TeCal-Auskunftfile wird komprimiert  "14""13""10"");
+  disable stop;
+  DATASPACE VAR dspace := nil space;
+  FILE      VAR file   := sequential file ( input, auskunft),
+                shorted:= sequential file (output, dspace);
+  TEXT      VAR buffer;
+   INT      VAR i;
+
+  WHILE NOT eof (file)
+  REPEAT get line (file, buffer)
+  UNTIL  (pos ("(*", buffer) > 0) OR is error PER;
+  i:= 1;
+  IF eof (file) COR text not transfered
+     THEN errorstop ("TeCal-Auskunftsfile ist bereits komprimiert!"13""10"" +
+                     "'ESC <?>' funktioniert wahrscheinlich nicht."13""10"" +
+                     "Bitte ORIGINAL Auskunftsfile von Diskette verwenden")
+     ELSE forget (auskunft, quiet);
+          copy (dspace, auskunft)
+  FI;
+  forget (dspace) .
+
+ text not transfered :
+    WHILE NOT eof (file)
+    REPEAT cout (i);
+           get line (file, buffer);
+           IF pos (buffer, "*)") > 0
+              THEN LEAVE text not transfered WITH FALSE
+              ELSE put line (shorted, buffer)
+           FI;
+           i INCR 1
+    UNTIL is error PER;
+    TRUE .
+
-- 
cgit v1.2.3