1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
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""); (* *)
|
