1 files changed, 31 insertions, 0 deletions
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 ;