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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
(* Terminaltyp: Terminal108 *)
(* Keyboard : Deutsch *)
(* Zeichensatz: ASCII *)
(* Stand : 28.04.86 *)
forget ("Terminal108(ascii)", quiet) ;
new type ("Terminal108(ascii)") ;
cursor logic (32, ""30"", "", "") ;
(* Nicht im EUMEL-Zeichensatz definierte Steuerzeichen *)
illegal (11, 12) ;
illegal (16, 31) ;
illegal (128, 213) ;
illegal (224, 250) ;
illegal (252, 255) ;
enter outcode ( 1, 25) ; (* Cursor Home *)
enter outcode ( 2, 28) ; (* Cursor right *)
enter outcode ( 3, 31) ; (* Cursor up *)
enter outcode ( 4, 11) ; (* Clear EOP *)
enter outcode ( 5, 29) ; (* Clear EOL *)
enter outcode ( 7, 7) ; (* Bell *)
enter outcode (14, 0, " "14"") ; (* Norm Vid *)
enter outcode (15, 0, ""15" ") ; (* Inv Vid *)
enter outcode (214, 193) ; (* Inv A *)
enter outcode (215, 207) ; (* Inv O *)
enter outcode (216, 213) ; (* Inv U *)
enter outcode (217, 225) ; (* Inv a *)
enter outcode (218, 239) ; (* Inv o *)
enter outcode (219, 245) ; (* Inv u *)
enter outcode (220, 235) ; (* Inv k *)
enter outcode (221, 173) ; (* Inv - *)
enter outcode (222, 163) ; (* Inv # *)
enter outcode (223, 160) ; (* Inv Blank *)
enter outcode (251, 194) ; (* Inv B *)
enter outcode (64, 0, ""1"B"64"") ; (* ""1"B" = ASCII *)
enter outcode (91, 0, ""1"B"91"") ;
enter outcode (92, 0, ""1"B"92"") ;
enter outcode (93, 0, ""1"B"93"") ;
enter outcode (123,0, ""1"B"123"") ;
enter outcode (124,0, ""1"B"124"") ;
enter outcode (125,0, ""1"B"125"") ;
enter outcode (126,0, ""1"B"126"") ;
(*
enter outcode (12, 12) ; (* CLR SCRN *)
enter outcode (16, 2) ; (* Cursor Mode <mode> *)
enter outcode (17, 1) ; (* Zeichensatz <switch> : Bit 0..3 *)
enter outcode (18, 18) ; (* Insert Line *)
enter outcode (19, 26) ; (* Erase (nicht Delete) Line *)
enter outcode (20, 5) ; (* xpos := 80 *)
enter outcode (22, 22) ; (* Select Screen <nr> : Bit 0 *)
enter outcode (23, 23) ; (*SetWindow <left><top><right+1><bottom+1> (+128)*)
*)
enter incode ( 1, ""192"") ; (* Home : Cursorblock mitte *)
enter incode ( 2, ""149"") ; (* Cursor right: Cursorblock mitte rechts *)
enter incode ( 3, ""139"") ; (* Cursor up : Cursorblock oben mitte *)
(*enter incode (4, ""21"") ; (* Info usw. : Cursorblock unten rechts*) *)
enter incode ( 7, ""194"") ; (* SV - Call : Funktionstaste F2 *)
enter incode ( 8, ""136"") ; (* Cursor left : Cursorblock mitte links *)
enter incode ( 10, ""138"") ; (* Cursor down : Cursorblock unten mitte *)
enter incode ( 11, ""142"") ; (* RUBIN/Insert: Cursorblock oben links *)
enter incode ( 12, ""127"") ; (* RUBOUT/Delete:DELETE-Taste *)
enter incode ( 16, ""143"") ; (* MARK : Cursorblock oben rechts *)
enter incode ( 17, ""193"") ; (* Stop : Funktionstaste F1 *)
enter incode ( 23, ""195"") ; (* Weiter : Funktionstaste F3 *)
enter incode ( 31, ""8"") ; (* Backspace : (2x) gerahmter Linkspfeil *)
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 ( 0, ""24"") ; (* CE *)
enter incode ( 5, ""196"") ; (* F4 *)
enter incode ( 6, ""197"") ; (* F5 *)
enter incode (14, ""198"") ; (* F6 *)
enter incode (15, ""199"") ; (* F7 *)
enter incode (18, ""200"") ; (* F8 *)
enter incode (19, ""201"") ; (* F9 *)
enter incode (20, ""202"") ; (* F10 *)
enter incode (21, ""203"") ; (* F11 *)
enter incode (22, ""204"") ; (* F12 *)
enter incode (24, ""205"") ; (* F13 *)
enter incode (25, ""206"") ; (* F14 *)
enter incode (26, ""207"") ; (* F15 *)
enter incode (28, ""209"") ; (* SHIFT F1 *)
enter incode (29, ""210"") ; (* SHIFT F2 *)
enter incode (30, ""211"") ; (* SHIFT F3 *)
enter incode (126,""165"") ; (* CTRL F5 *)
enter incode (91, ""166"") ; (* CTRL F6 *)
enter incode (92, ""167"") ; (* CTRL F7 *)
enter incode (93, ""168"") ; (* CTRL F8 *)
enter incode (123,""169"") ; (* CTRL F9 *)
enter incode (124,""170"") ; (* CTRL F10 *)
enter incode (125,""171"") ; (* CTRL F11 *)
enter incode (251, ""213"") ; (* SHIFT F5 = *)
(* SHIFT F6 =
Andere incodes schon Hardware- SHIFT F7 =
mig implementiert: SHIFT F8 =
SHIFT F9 =
SHIFT F10=
SHIFT F11=
SHIFT F12= Trenn-k ( k )
SHIFT F13= Trenn-Strich ( - )
SHIFT F14= Geschtztes Fis ( # )
SHIFT F15= Geschtztes Blank ( ) *)
PROC illegal (INT CONST from, to) :
INT VAR i ;
FOR i FROM from UPTO to REP
enter outcode (i, 127)
PER
ENDPROC illegal ;
|