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/terminal-codes/unknown/src/basis108(info) | 107 +++++++++++++++++++++++
 1 file changed, 107 insertions(+)
 create mode 100644 system/terminal-codes/unknown/src/basis108(info)

(limited to 'system/terminal-codes/unknown/src/basis108(info)')

diff --git a/system/terminal-codes/unknown/src/basis108(info) b/system/terminal-codes/unknown/src/basis108(info)
new file mode 100644
index 0000000..421c803
--- /dev/null
+++ b/system/terminal-codes/unknown/src/basis108(info)
@@ -0,0 +1,107 @@
+                                      (* Terminaltyp: Basis108 *) 
+                                      (* Keyboard   : Deutsch  *) 
+                                      (* Zeichensatz: Deutsch  *) 
+                                      (* Stand      : 19.06.86 *) 
+                                      (* Mit 'info'-Taste auf => *) 
+                                      (* Ohne sz auf SHIFT F5  *) 
+ 
+forget  ("basis108(info)", quiet) ; 
+new type ("basis108(info)") ; 
+ 
+cursor logic  (0, ""6"", "", "") ; 
+ 
+(* Nicht im EUMEL-Zeichensatz definierte Steuerzeichen *) 
+illegal (11, 12) ; 
+illegal (16, 31) ; 
+illegal (128, 213) ; 
+illegal (224, 250) ; 
+illegal (252, 255) ; 
+ 
+enter outcode (14, 0, " "14"") ; 
+enter outcode (15, 0, ""15" ") ; 
+ 
+enter outcode (91,  0, ""15"("14"") ; 
+enter outcode (92,  0, ""15"/"14"") ; 
+enter outcode (93,  0, ""15")"14"") ; 
+enter outcode (123, 0, ""15"<"14"") ; 
+enter outcode (124, 0, ""15"!"14"") ; 
+enter outcode (125, 0, ""15">"14"") ; 
+enter outcode (126, 0, ""15"`"14"") ; 
+ 
+enter outcode (214,  91) ; 
+enter outcode (215,  92) ; 
+enter outcode (216,  93) ; 
+enter outcode (217, 123) ; 
+enter outcode (218, 124) ; 
+enter outcode (219, 125) ; 
+enter outcode (251, 126) ; 
+ 
+enter outcode (220, 0, ""15"k"14"") ; 
+enter outcode (221, 0, ""15"-"14"") ; 
+enter outcode (222, 0, ""15"#"14"") ; 
+enter outcode (223, 0, ""15" "14"") ; 
+ 
+enter incode (  1, ""192"") ; (* Home        : Cursorblock mitte          *) 
+enter incode (  2, ""149"") ; (* Cursor right: Cursorblock mitte rechts   *) 
+enter incode (  3, ""139"") ; (* Cursor up   : Cursorblock oben mitte     *) 
+enter incode (  4,  ""21"") ; (* Info usw.   : Cursorblock unten rechts   *) 
+enter incode (  7, ""194"") ; (* SV - Call   : Funktionstaste F2          *) 
+enter incode (  8, ""136"") ; (* Cursor left : Cursorblock mitte links    *) 
+enter incode ( 10, ""138"") ; (* Cursor down : Cursorblock unten mitte    *) 
+enter incode ( 11, ""142"") ; (* RUBIN/Insert: Cursorblock oben links     *) 
+enter incode ( 12, ""127"") ; (* RUBOUT/Delete:DELETE-Taste               *) 
+enter incode ( 16, ""143"") ; (* MARK        : Cursorblock oben rechts    *) 
+enter incode ( 17, ""193"") ; (* Stop        : Funktionstaste F1          *) 
+enter incode ( 23, ""195"") ; (* Weiter      : Funktionstaste F3          *) 
+enter incode ( 31,   ""8"") ; (* Backspace   : (2x) gerahmter Linkspfeil  *) 
+ 
+enter incode (214,  ""91"") ; 
+enter incode (215,  ""92"") ; 
+enter incode (216,  ""93"") ; 
+enter incode (217, ""123"") ; 
+enter incode (218, ""124"") ; 
+enter incode (219, ""125"") ; 
+enter incode (251, ""126"") ; 
+ 
+enter incode ( 0,  ""24"") ;  (* CE *) 
+enter incode ( 5, ""196"") ;  (* F4 *) 
+enter incode ( 6, ""197"") ;  (* F5 *) 
+enter incode (14, ""198"") ;  (* F6 *) 
+enter incode (15, ""199"") ;  (* F7 *) 
+enter incode (18, ""200"") ;  (* F8 *) 
+enter incode (19, ""201"") ;  (* F9 *) 
+enter incode (20, ""202"") ;  (* F10 *) 
+enter incode (21, ""203"") ;  (* F11 *) 
+enter incode (22, ""204"") ;  (* F12 *) 
+enter incode (24, ""205"") ;  (* F13 *) 
+enter incode (25, ""206"") ;  (* F14 *) 
+enter incode (26, ""207"") ;  (* F15 *) 
+enter incode (28, ""209"") ;  (* SHIFT F1 *) 
+enter incode (29, ""210"") ;  (* SHIFT F2 *) 
+enter incode (30, ""211"") ;  (* SHIFT F3 *) 
+ 
+enter incode (126,""165"") ;  (* CTRL  F5 *) 
+enter incode (91, ""166"") ;  (* CTRL  F6 *) 
+enter incode (92, ""167"") ;  (* CTRL  F7 *) 
+enter incode (93, ""168"") ;  (* CTRL  F8 *) 
+enter incode (123,""169"") ;  (* CTRL  F9 *) 
+enter incode (124,""170"") ;  (* CTRL  F10 *) 
+enter incode (125,""171"") ;  (* CTRL  F11 *) 
+ 
+                              (* SHIFT F6 = „ 
+Andere incodes schon Hardware-   SHIFT F7 = ” 
+m„áig implementiert:             SHIFT F8 =  
+                                 SHIFT F9 = Ž 
+                                 SHIFT F10= ™ 
+                                 SHIFT F11= š 
+                                 SHIFT F12= Trenn-k           ( k ) 
+                                 SHIFT F13= Trenn-Strich      ( - ) 
+                                 SHIFT F14= Geschtztes Fis   ( # ) 
+                                 SHIFT F15= Geschtztes Blank (   ) *) 
+ 
+PROC illegal (INT CONST from, to) : 
+ INT VAR i ; 
+ FOR i FROM from UPTO to REP 
+  enter outcode (i, 127)
+ PER 
+ENDPROC illegal ; 
-- 
cgit v1.2.3