diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2019-02-11 11:49:19 +0100 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2019-02-11 11:49:39 +0100 |
| commit | 98cab31fc3659e33aef260efca55bf9f1753164c (patch) | |
| tree | f1affa84049ef9b268e6c4f521f000478b0f3a8e /system/terminal-codes/unknown/src/FT10-20.german | |
| parent | 71e2b36ccd05ea678e62e32ee6245df2b8d6ac17 (diff) | |
| download | eumel-src-98cab31fc3659e33aef260efca55bf9f1753164c.tar.gz eumel-src-98cab31fc3659e33aef260efca55bf9f1753164c.tar.bz2 eumel-src-98cab31fc3659e33aef260efca55bf9f1753164c.zip | |
Add source files from Michael
Diffstat (limited to 'system/terminal-codes/unknown/src/FT10-20.german')
| -rw-r--r-- | system/terminal-codes/unknown/src/FT10-20.german | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/system/terminal-codes/unknown/src/FT10-20.german b/system/terminal-codes/unknown/src/FT10-20.german new file mode 100644 index 0000000..09d4337 --- /dev/null +++ b/system/terminal-codes/unknown/src/FT10-20.german @@ -0,0 +1,94 @@ + (* Autor : Rudolf Ruland *)
+ (* Stand : 14.07.86 *)
+
+INT VAR i;
+TEXT VAR table :="FT10/20.german";
+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 ( 39, "/"); (* ' *)
+enter incode ( 47, "'"); (* / *)
+enter incode ( 92, ""27"/"); (* backslash *)
+enter incode (214, ""91""); (* *)
+enter incode (215, ""92""); (* *)
+enter incode (216, ""93""); (* *)
+enter incode (217, ""123""); (* *)
+enter incode (218, ""124""); (* *)
+enter incode (219, ""125""); (* *)
+enter incode (251, ""126""); (* *)
+enter incode (252, ""064""); (* *)
+
+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 ( 64, 0, ""27" 0"14""064""15""); (* @ *)
+enter outcode ( 91, 0, ""27" 0"14""091""15""); (* [ *)
+enter outcode ( 92, 0, ""27" 0"14""092""15""); (* \ *)
+enter outcode ( 93, 0, ""27" 0"14""093""15""); (* ] *)
+enter outcode (123, 0, ""27" 0"14""123""15""); (* geschw. Klammer auf *)
+enter outcode (124, 0, ""27" 0"14""124""15""); (* | *)
+enter outcode (125, 0, ""27" 0"14""125""15""); (* geschw. Klammer zu *)
+enter outcode (126, 0, ""27" 0"14""126""15""); (* ~ *)
+enter outcode (214, 91); (* *)
+enter outcode (215, 92); (* *)
+enter outcode (216, 93); (* *)
+enter outcode (217, 123); (* *)
+enter outcode (218, 124); (* *)
+enter outcode (219, 125); (* *)
+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, 126); (* *)
+enter outcode (252, 64); (* *)
|