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

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

diff --git a/system/terminal-codes/unknown/src/REGENT25 b/system/terminal-codes/unknown/src/REGENT25
new file mode 100644
index 0000000..25955d6
--- /dev/null
+++ b/system/terminal-codes/unknown/src/REGENT25
@@ -0,0 +1,34 @@
+TEXT VAR  name :="REGENT25"; 
+new type (name);
+cursor logic (32,""27"Y","","");
+enter outcode (1,0,""27"Y  "); 
+enter outcode (2  ,6   );
+enter outcode (3  ,26  );
+enter outcode (5  ,0,""27"K" );
+enter outcode (4,120,""27"k");
+ 
+enter outcode (220, "k");     (* Trenn-k *) 
+enter outcode (221, "-");     (* Trenn-  *) 
+enter outcode (222, "#"); 
+enter outcode (223, "_");
+ 
+enter outcode (214,"A");    (* Umlaute *)
+enter outcode (215,"O"); 
+enter outcode (216,"U"); 
+enter outcode (217,"a"); 
+enter outcode (218,"o"); 
+enter outcode (219,"u"); 
+enter outcode (251,"B");
+ 
+enter incode (2  ,""6""  );
+enter incode (3  ,""26""  );
+enter incode (8  ,""21"" ); (* backspace *)
+enter incode (4,""4"");   (* info   *) 
+enter incode (7,""29"");  (* sv     *)
+enter incode (17,""3"");  (* stop *) 
+enter incode (23,""0"");  (* weiter *)
+
+
+enter incode (11,"^");      (* rubin  *) 
+enter incode (12,""127"");  (* rubout *) 
+enter incode (16,""126"") ; (* mark   *)
-- 
cgit v1.2.3