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/base/unknown/src/stdescapeset | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 system/base/unknown/src/stdescapeset

(limited to 'system/base/unknown/src/stdescapeset')

diff --git a/system/base/unknown/src/stdescapeset b/system/base/unknown/src/stdescapeset
new file mode 100644
index 0000000..0c69ea7
--- /dev/null
+++ b/system/base/unknown/src/stdescapeset
@@ -0,0 +1,31 @@
+PACKET  std escape set                              (* Autor: P.Heyderhoff *)
+        (************)                              (* Stand: 20.01.1981   *)
+                                                    (* Vers.: 1.5.5        *)
+DEFINES std escape set :
+ 
+PROC std escape set : 
+ 
+  define escape ("p", "IFmark>0THEN PUT"""";W""""12""""FI") ;
+  define escape ("g", "GET"""";M0") ;
+  define escape ("d", "IFmark>0THEN PUT"""";M0ELSE GET"""";M0FI");
+  define escape ("B", "W""""194""""") ;
+  define escape ("A", "W""""193""""") ;
+  define escape ("O", "W""""207""""") ;
+  define escape ("U", "W""""213""""") ;
+  define escape ("a", "W""""225""""") ;
+  define escape ("o", "W""""239""""") ;
+  define escape ("u", "W""""245""""") ;
+  define escape ("z", "C1;""""C(((limit-len)/2)*"" "")") ;
+  define escape ("l", "i:=col;C1;M1;Ci;W""""12""""") ;
+  define escape ("h", "S11") ;
+  define escape ("v", "S23") ;
+  define escape ("1", "1;C1"); 
+  define escape ("9", "9999;C(len+1)");
+  define escape (""2"", """ """);
+  define escape (""10"","+1;R Clen;"" ""Ucol>lenE");
+  define escape (""3"", "R-1;Hrow;Clen;"" ""Ucol>lenE"); 
+  define escape (""8"", "COL(col-10)");
+ 
+ENDPROC std escape set ;
+ 
+ENDPACKET std escape set ; 
-- 
cgit v1.2.3