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

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

diff --git a/system/terminal-codes/unknown/src/VIDEOSTAR b/system/terminal-codes/unknown/src/VIDEOSTAR
new file mode 100644
index 0000000..bead5b9
--- /dev/null
+++ b/system/terminal-codes/unknown/src/VIDEOSTAR
@@ -0,0 +1,52 @@
+# 
+      VIDEOSTAR CONFIGURATIONS-PROGRAMM,  VERSION 25.06.1985 
+       Terminal = REGENT40 Emulation, deutscher Zeichensatz 
+#
+TEXT VAR  name :="VIDEOSTAR"; 
+forget(name, quiet);
+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,0,""27"k");
+enter outcode (14,0,""27"0@ ");     (* invers video ein = begin mark*) 
+enter outcode (15,0,""27"0P ");     (* invers video aus = end mark*) 
+ 
+enter outcode (220,"k");            (* Trenn-k *) 
+enter outcode (221,"-");            (* Trenn-  *) 
+enter outcode (222,"#"); 
+enter outcode (223,"_");
+enter outcode (140,""12"");         (* Clear fuer Graphik *) 
+ 
+enter outcode (214, 0,  ""27"9B"91""27"9A");   (* ASCII Klammern *)
+enter outcode (215, 0,  ""27"9B"92""27"9A"); 
+enter outcode (216, 0,  ""27"9B"93""27"9A"); 
+enter outcode (217, 0, ""27"9B"123""27"9A"); 
+enter outcode (218, 0, ""27"9B"124""27"9A"); 
+enter outcode (219, 0, ""27"9B"125""27"9A"); 
+enter outcode (251, 0, ""27"9B"126""27"9A"); 
+ 
+enter incode (1  ,""30"");     (* hop *)
+enter incode (2  ,""6""  );
+enter incode (3  ,""26""  );
+enter incode (8  ,""21"" );    (* backspace *)
+enter incode (4,""4"");        (* info   *) 
+enter incode (7,""2"");        (* sv     *)
+enter incode (17,""1"");       (* stop   *) 
+enter incode (23,""3"");       (* weiter *)
+enter incode (18, ""27"M");    (*  Insert Line *)
+enter incode (11,""25"");      (* rubin  *) 
+enter incode (12,""127"");     (* rubout *) 
+enter incode (16,""12"") ;     (* mark   *)
+ 
+ 
+enter incode (214,""91"");     (* Umlaute *)
+enter incode (215,""92"");
+enter incode (216,""93"");
+enter incode (217,""123""); 
+enter incode (218,""124"");
+enter incode (219,""125"");
+enter incode (251,""126"");
+
-- 
cgit v1.2.3