summaryrefslogtreecommitdiff
path: root/system/terminal-codes/unknown/src/VC404.ascii
diff options
context:
space:
mode:
Diffstat (limited to 'system/terminal-codes/unknown/src/VC404.ascii')
-rw-r--r--system/terminal-codes/unknown/src/VC404.ascii61
1 files changed, 61 insertions, 0 deletions
diff --git a/system/terminal-codes/unknown/src/VC404.ascii b/system/terminal-codes/unknown/src/VC404.ascii
new file mode 100644
index 0000000..614e26d
--- /dev/null
+++ b/system/terminal-codes/unknown/src/VC404.ascii
@@ -0,0 +1,61 @@
+ (* Autor : Rudolf Ruland *)
+ (* Stand : 06.05.86 *)
+
+INT VAR i;
+TEXT VAR table :="VC404.ascii";
+forget (table, quiet);
+new type (table);
+
+(****************** Steuerzeichen *************************************)
+
+enter incode ( 1, ""025""); (* HOP *)
+enter incode ( 2, ""021""); (* -> *)
+enter incode ( 3, ""026""); (* UP *)
+enter incode ( 4, ""004""); (* INFO *)
+enter incode ( 7, ""002""); (* SV *)
+enter incode ( 7, ""007""); (* SV *)
+enter incode ( 8, ""008""); (* <- *)
+enter incode ( 9, ""009""); (* TAB *)
+enter incode (10, ""010""); (* DOWN *)
+enter incode (11, ""096""); (* RUBIN *)
+enter incode (12, ""127""); (* RUBOUT *)
+enter incode (13, ""013""); (* RETURN *)
+enter incode (16, ""126""); (* MARK *)
+enter incode (17, ""001""); (* STOP *)
+enter incode (23, ""003""); (* WEITER *)
+
+FOR i FROM 0 UPTO 31 REP enter outcode (i, "S") PER;
+
+enter outcode ( 0, ""); (* NULL *)
+enter outcode ( 1, 25); (* HOME *)
+enter outcode ( 2, 21); (* RECHTS *)
+enter outcode ( 3, 26); (* OBEN *)
+enter outcode ( 4, 120, ""23""); (* CL EOP *)
+enter outcode ( 5, 22); (* CL EOL *)
+enter outcode ( 7, 7); (* BELL *)
+enter outcode ( 8, 8); (* LINKS *)
+enter outcode (10, 10); (* UNTEN *)
+enter outcode (13, 13); (* RETURN *)
+enter outcode (14, 126); (* END MARK *)
+enter outcode (15, 126); (* BEGIN MARK *)
+
+cursor logic (32,""16"","","");
+
+(******************** Textzeichen *************************************)
+
+FOR i FROM 127 UPTO 255 REP enter outcode (i, "?") PER;
+FOR i FROM 129 UPTO 159 REP enter outcode (i, "E") PER; (* japanische *)
+FOR i FROM 224 UPTO 239 REP enter outcode (i, "E") PER; (* ESC-Zeichen *)
+
+
+enter outcode (214, "A"); (* *)
+enter outcode (215, "O"); (* *)
+enter outcode (216, "U"); (* *)
+enter outcode (217, "a"); (* *)
+enter outcode (218, "o"); (* *)
+enter outcode (219, "u"); (* *)
+enter outcode (220, "k"); (* Trenn-k *)
+enter outcode (221, "-"); (* Trenn-Strich *)
+enter outcode (222, "#"); (* gesch. Nummerkreuz *)
+enter outcode (223, "_"); (* gesch. Blank *)
+enter outcode (251, "B"); (* *)