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

---
 .../terminal-codes/1.8.2/src/AT.ascii(SHard>=4.5)  | 74 ++++++++++++++++++++++
 1 file changed, 74 insertions(+)
 create mode 100644 system/terminal-codes/1.8.2/src/AT.ascii(SHard>=4.5)

(limited to 'system/terminal-codes/1.8.2/src/AT.ascii(SHard>=4.5)')

diff --git a/system/terminal-codes/1.8.2/src/AT.ascii(SHard>=4.5) b/system/terminal-codes/1.8.2/src/AT.ascii(SHard>=4.5)
new file mode 100644
index 0000000..ca9ba3d
--- /dev/null
+++ b/system/terminal-codes/1.8.2/src/AT.ascii(SHard>=4.5)
@@ -0,0 +1,74 @@
+(*************************************************)
+(* Typtabelle   : AT.ascii(SHard>=4.5)           *)
+(* Generiert am : 26.07.88                       *)
+(* Version/Typ  : 1.8.2/32001                    *)
+(*************************************************)
+ 
+forget ("AT.ascii(SHard>=4.5)", quiet) ;
+new type ("AT.ascii(SHard>=4.5)") ;
+
+enter xsize (80) ;
+enter ysize (24) ;
+cursor logic (0, ""6"", "", "") ;
+ 
+(* Ausgabe Codes : *)
+enter outcode (  0, 0, "") ;   
+enter outcode (  1,   1) ; (* Cursor Home : <CTRL-A> *) 
+enter outcode (  2,   2) ; (* Cursor right: <CTRL-B> *) 
+enter outcode (  3,   3) ; (* Cursor up   : <CTRL-C> *) 
+enter outcode (  4,   4) ; (* CLEOP       : <CTRL-D> *) 
+enter outcode (  5,   5) ; (* CLEOL       : <CTRL-E> *) 
+enter outcode (  8,   8) ; (* Cursor left : <CTRL-H> *) 
+enter outcode ( 10,  10) ; (* Cursor down : <LF> *) 
+enter outcode ( 13,  13) ; (* CR          : <CR> *) 
+enter outcode ( 14, 0, ""14" ") ; (* END MARK    : <CTRL-N> <SPACE> *) 
+enter outcode ( 15, 0, ""15" ") ; (* BEGIN MARK  : <CTRL-O> <SPACE> *) 
+enter outcode (220, 0, ""15"k"14"") ; (* Trenn-k     : <CTRL-O> k <CTRL-N> 
+*) 
+enter outcode (221, 0, ""15"-"14"") ; (* Trennstrich : <CTRL-O> - <CTRL-N> 
+*) 
+enter outcode (222, 0, ""15"#"14"") ; (* Fest-#      : <CTRL-O> # <CTRL-N> 
+*) 
+enter outcode (223, 0, ""15" "14"") ; (* Fest-Blank  : <CTRL-O> <SPACE> 
+<CTRL-N> *) 
+enter outcode (251, 0, ""225"") ; (* sz          : <225> *) 
+enter outcode (252,  21) ; (* <CTRL-U> *) 
+
+
+(* Eingabe Codes : *)
+enter incode (  7, ""7"") ; (* SV - Call   : <CTRL-G> *)
+enter incode (  4, ""4"") ; (* Info        : <CTRL-D> *)
+enter incode (  1, ""1"") ; (* HOP         : <CTRL-A> *)
+enter incode ( 18, ""18"") ; (* Insert line : <CTRL-R> *)
+enter incode ( 96, "<") ; (* < *)
+enter incode (126, ">") ; (* > *)
+enter incode ( 64, """") ; (* " *)
+enter incode ( 35, ""252"") ; (* <252> *)
+enter incode ( 94, "&") ; (* & *)
+enter incode ( 38, "/") ; (* / *)
+enter incode ( 42, "(") ; (* ( *)
+enter incode ( 40, ")") ; (* ) *)
+enter incode ( 41, "=") ; (* = *)
+enter incode ( 45, "�") ; (* <251> *)
+enter incode ( 95, "?") ; (* ? *)
+enter incode ( 61, "'") ; (* ' *)
+enter incode ( 43, "`") ; (* ` *)
+enter incode (121, "z") ; (* z *)
+enter incode ( 89, "Z") ; (* Z *)
+enter incode (122, "y") ; (* y *)
+enter incode ( 90, "Y") ; (* Y *)
+enter incode ( 60, ";") ; (* ; *)
+enter incode ( 62, ":") ; (* : *)
+enter incode ( 47, "-") ; (* - *)
+enter incode ( 63, "_") ; (* _ *)
+enter incode ( 59, "�") ; (* <218> *)
+enter incode ( 58, ""215"") ; (* <215> *)
+enter incode ( 39, "�") ; (* <217> *)
+enter incode ( 34, ""214"") ; (* <214> *)
+enter incode ( 91, "�") ; (* <219> *)
+enter incode ( 93, "+") ; (* + *)
+enter incode (123, ""216"") ; (* <216> *)
+enter incode (125, "*") ; (* * *)
+enter incode ( 92, "#") ; (* # *)
+enter incode (124, "^") ; (* ^ *)
+
-- 
cgit v1.2.3