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/FT10-20.ascii | 75 +++++++++++++++++++++++++ 1 file changed, 75 insertions(+) create mode 100644 system/terminal-codes/unknown/src/FT10-20.ascii (limited to 'system/terminal-codes/unknown/src/FT10-20.ascii') diff --git a/system/terminal-codes/unknown/src/FT10-20.ascii b/system/terminal-codes/unknown/src/FT10-20.ascii new file mode 100644 index 0000000..7f26910 --- /dev/null +++ b/system/terminal-codes/unknown/src/FT10-20.ascii @@ -0,0 +1,75 @@ + (* Autor : Rudolf Ruland *) + (* Stand : 14.07.86 *) + +INT VAR i; +TEXT VAR table :="FT10/20.ascii"; +forget (table, quiet); +new type (table); + +(****************** Steuerzeichen *************************************) + +enter incode ( 1, ""27"H"); (* HOP *) +enter incode ( 2, ""27"C"); (* RECHTS *) +enter incode ( 3, ""27"A"); (* OBEN *) +enter incode ( 4, ""4""); (* CNTL D *) (* INFO *) +enter incode ( 7, ""2""); (* CNTL B *) (* SV *) +enter incode ( 7, ""7""); (* CNTL G *) (* SV *) +enter incode ( 8, ""27"D"); (* LINKS *) +enter incode ( 9, ""27">"); (* BACKTAB *) (* TAB *) +enter incode (10, ""27"B"); (* UNTEN *) +enter incode (11, ""27"K"); (* RUBIN *) +enter incode (12, ""27"E"); (* RUBOUT *) +enter incode (12, ""127""); (* DEL *) (* RUBOUT *) +enter incode (16, ""27"J"); (* MARK *) +enter incode (17, ""1""); (* CNTL A *) (* STOP *) +enter incode (23, ""3""); (* CNTL C *) (* WEITER *) +enter incode (24, ""0"") ; (* BREAK *) (* weitere ESC-Zeichen *) +enter incode (25, ""27"N") ; (* LOCAL *) (* *) +enter incode (26, ""27"V") ; (* UNLOCK *) (* *) +enter incode (28, ""27"I") ; (* SEND PAGE *) (* *) + +FOR i FROM 0 UPTO 31 REP enter outcode (i, "S") PER; + +enter outcode ( 0, ""); (* NULL *) +enter outcode ( 1, 0, ""27"H"); (* HOME *) +enter outcode ( 2, 12); (* RECHTS *) +enter outcode ( 3, 11); (* OBEN *) +enter outcode ( 4, 40, ""27"J"); (* CL EOP *) +enter outcode ( 5, 0, ""27"K"); (* 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, 0, ""27"d@ "); (* END MARK *) +enter outcode (15, 0, ""27"dP "); (* BEGIN MARK *) + +enter outcode (27, 27); (* ESC *) + +enter outcode (20, 14); (* shift out - grafic on *) +enter outcode (24, 14); +enter outcode (21, 15); (* shift in - grafic off*) +enter outcode (25, 15); +enter outcode (26, 5); (* answer back message *) + +cursor logic (32,""27"F","",""); + +(******************** Textzeichen *************************************) + +enter incode ( 92, ""27"/"); (* backslash *) + +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, 0, ""27" 1"14""034""15""); (* *) +enter outcode (215, 0, ""27" 1"14""046""15""); (* *) +enter outcode (216, 0, ""27" 1"14""052""15""); (* *) +enter outcode (217, 0, ""27" 1"14""066""15""); (* *) +enter outcode (218, 0, ""27" 1"14""078""15""); (* *) +enter outcode (219, 0, ""27" 1"14""084""15""); (* *) +enter outcode (220, "k"); (* Trenn-k *) +enter outcode (221, 0, ""27" 3"14""077""15""); (* Trenn-Strich *) +enter outcode (222, 0, ""27" 4"14""069""15""); (* gesch. Nummerkreuz *) +enter outcode (223, 0, ""27" 2"14""110""15""); (* gesch. Blank *) +enter outcode (251, 0, ""27" 1"14""062""15""); (* *) +enter outcode (252, 0, ""27" 1"14""063""15""); (* *) -- cgit v1.2.3