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/TAP5060.ELA | 49 +++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 system/terminal-codes/unknown/src/TAP5060.ELA

(limited to 'system/terminal-codes/unknown/src/TAP5060.ELA')

diff --git a/system/terminal-codes/unknown/src/TAP5060.ELA b/system/terminal-codes/unknown/src/TAP5060.ELA
new file mode 100644
index 0000000..791189e
--- /dev/null
+++ b/system/terminal-codes/unknown/src/TAP5060.ELA
@@ -0,0 +1,49 @@
+ 
+TEXT VAR name := subtext ( std , 1 , length ( std ) - 4 ) ; 
+lastparam ( "" ) ; 
+forget ( name , quiet ) ; 
+new type ( name ) ; 
+ 
+cursor logic ( 0 , ""6"" , "" , "" ) ; 
+ 
+enter outcode ( 15 , 0, ""15" " ) ; 
+enter outcode ( 14 , 0, ""14" " ) ; 
+
+enter outcode ( 214, 142 ) ; 
+enter outcode ( 215, 153 ) ; 
+enter outcode ( 216, 154 ) ; 
+enter outcode ( 217, 132 ) ; 
+enter outcode ( 218, 148 ) ; 
+enter outcode ( 219, 129 ) ; 
+enter outcode ( 220, 0, ""15""107""14"");  (* druck k *)
+enter outcode ( 221, 0, ""15""45""14"");   (* druck - *)
+enter outcode ( 222, 0, ""15""35""14"");   (* druck # *)
+enter outcode ( 223, 0, ""15""32""14"");   (* druck   *)
+enter outcode ( 251, 225);                 (* � *) 
+ 
+enter incode ( 214, ""142"" ) ;   (* �         *) 
+enter incode ( 215, ""153"" ) ;   (* �         *) 
+enter incode ( 216, ""154"" ) ;   (* �         *) 
+enter incode ( 217, ""132"" ) ;   (* �         *) 
+enter incode ( 218, ""148"" ) ;   (* �         *) 
+enter incode ( 219, ""129"" ) ;   (* �         *) 
+enter incode ( 251, ""225"" ) ;   (* �         *) 
+enter incode (  64, ""21""  ) ;   (* �         *) 
+enter incode (  96, ""36""  ) ;   (* `         *)
+ 
+enter incode (  1, ""199"" ) ;    (* hop       *) 
+enter incode (  2, ""205"" ) ;    (* right     *) 
+enter incode (  3, ""200"" ) ;    (* up        *) 
+enter incode (  7, ""187"" ) ;    (* SV -> F1  *) 
+enter incode (  7, ""2""   ) ;    (* SV        *) 
+enter incode (  8, ""203"" ) ;    (* left      *) 
+enter incode (  9, ""143"" ) ;    (* tab       *) 
+enter incode ( 10, ""208"" ) ;    (* down      *) 
+enter incode ( 11, ""210"" ) ;    (* rubin     *) 
+enter incode ( 12, ""211"" ) ;    (* rubout    *) 
+enter incode ( 16, ""198"" ) ;    (* mark      *) 
+enter incode ( 17, ""1""   ) ;    (* stop      *) 
+enter incode ( 23, ""3""   ) ;    (* start     *) 
+
+enter incode ( 187, ""136"") ;    (* F1        *)
+
-- 
cgit v1.2.3