From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 11 Feb 2019 11:49:19 +0100 Subject: Add source files from Michael --- system/terminal-codes/unknown/src/VC404.ascii | 61 +++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 system/terminal-codes/unknown/src/VC404.ascii (limited to 'system/terminal-codes/unknown/src/VC404.ascii') 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"); (* á *) -- cgit v1.2.3