From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 11 Feb 2019 11:49:19 +0100
Subject: Add source files from Michael

---
 system/std.zusatz/1.7.3/src/17CHARS.ELA | 44 +++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 system/std.zusatz/1.7.3/src/17CHARS.ELA

(limited to 'system/std.zusatz/1.7.3/src/17CHARS.ELA')

diff --git a/system/std.zusatz/1.7.3/src/17CHARS.ELA b/system/std.zusatz/1.7.3/src/17CHARS.ELA
new file mode 100644
index 0000000..160997a
--- /dev/null
+++ b/system/std.zusatz/1.7.3/src/17CHARS.ELA
@@ -0,0 +1,44 @@
+PACKET special 17 chars DEFINES chars 17 :
+
+TEXT VAR rec , schar ;
+FILE VAR f ;
+
+PROC chars 17 :
+
+  REP
+    down ("""") ;
+    get schar ;
+  UNTIL perhaps schar ("225", "217")
+    COR perhaps schar ("239", "218")
+    COR perhaps schar ("245", "219")
+    COR perhaps schar ("193", "214")
+    COR perhaps schar ("207", "215")
+    COR perhaps schar ("213", "216")
+    COR perhaps schar ("235", "220")
+    COR perhaps schar ("173", "221")
+    COR perhaps schar ("163", "222")
+    COR perhaps schar ("160", "223")
+    COR perhaps schar ("194", "251")
+    COR eof
+  PER ;
+  zeile neu .
+
+get schar :
+  f := editfile ;
+  read record (f, rec) ;
+  schar := subtext (rec, col + 1, col + 3) .
+
+ENDPROC chars 17 ;
+
+BOOL PROC perhaps schar (TEXT CONST old, new) :
+
+  IF schar = old
+    THEN change (rec, col + 4, col + 3, new) ;
+         write record (f, rec) ;
+         TRUE
+    ELSE FALSE
+  FI .
+
+ENDPROC perhaps schar ;
+
+ENDPACKET special 17 chars ;
-- 
cgit v1.2.3