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

(limited to 'system/terminal-codes/unknown/src/M20.original')

diff --git a/system/terminal-codes/unknown/src/M20.original b/system/terminal-codes/unknown/src/M20.original
new file mode 100644
index 0000000..31bb7c4
--- /dev/null
+++ b/system/terminal-codes/unknown/src/M20.original
@@ -0,0 +1,27 @@
+TEXT VAR name := "M20.original"; 
+command dialogue (FALSE); forget (name);
+new type (name); 
+cursor logic (0,""6"","",""); 
+ 
+enter outcode (14, ""14""); 
+enter outcode (15, ""15""); 
+ 
+enter incode (7,""7"");  (* sv *)
+enter incode ( code ( ";" ), "!"); 
+enter incode ( code ( "=" ), "@"); 
+enter incode ( code ( "%" ), "$"); 
+enter incode ( code ( "&" ), "%"); 
+enter incode ( code ( "(" ), "&"); 
+enter incode ( code ( ")" ), "/"); 
+enter incode ( code ( "_" ), "("); 
+enter incode ( code ( "@" ), ")"); 
+enter incode ( code ( "/" ), "="); 
+enter incode ( code ( ":" ), "?"); 
+enter incode ( code ( "^" ), "Â"); 
+enter incode ( code ( "!" ), ":"); 
+enter incode ( code ( "Â" ), "_"); 
+enter incode ( code ( "$" ), "#"); 
+enter incode ( code ( "#" ), "^"); 
+enter incode ( code ( "?" ), ";");
+
+command dialogue (TRUE);
-- 
cgit v1.2.3