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
|
(*************************************************)
(* Typtabelle : AT.ascii(SHard>=4.5) *)
(* Generiert am : 26.07.88 *)
(* Version/Typ : 1.8.2/32001 *)
(*************************************************)
forget ("AT.ascii(SHard>=4.5)", quiet) ;
new type ("AT.ascii(SHard>=4.5)") ;
enter xsize (80) ;
enter ysize (24) ;
cursor logic (0, ""6"", "", "") ;
(* Ausgabe Codes : *)
enter outcode ( 0, 0, "") ;
enter outcode ( 1, 1) ; (* Cursor Home : <CTRL-A> *)
enter outcode ( 2, 2) ; (* Cursor right: <CTRL-B> *)
enter outcode ( 3, 3) ; (* Cursor up : <CTRL-C> *)
enter outcode ( 4, 4) ; (* CLEOP : <CTRL-D> *)
enter outcode ( 5, 5) ; (* CLEOL : <CTRL-E> *)
enter outcode ( 8, 8) ; (* Cursor left : <CTRL-H> *)
enter outcode ( 10, 10) ; (* Cursor down : <LF> *)
enter outcode ( 13, 13) ; (* CR : <CR> *)
enter outcode ( 14, 0, ""14" ") ; (* END MARK : <CTRL-N> <SPACE> *)
enter outcode ( 15, 0, ""15" ") ; (* BEGIN MARK : <CTRL-O> <SPACE> *)
enter outcode (220, 0, ""15"k"14"") ; (* Trenn-k : <CTRL-O> k <CTRL-N>
*)
enter outcode (221, 0, ""15"-"14"") ; (* Trennstrich : <CTRL-O> - <CTRL-N>
*)
enter outcode (222, 0, ""15"#"14"") ; (* Fest-# : <CTRL-O> # <CTRL-N>
*)
enter outcode (223, 0, ""15" "14"") ; (* Fest-Blank : <CTRL-O> <SPACE>
<CTRL-N> *)
enter outcode (251, 0, ""225"") ; (* sz : <225> *)
enter outcode (252, 21) ; (* <CTRL-U> *)
(* Eingabe Codes : *)
enter incode ( 7, ""7"") ; (* SV - Call : <CTRL-G> *)
enter incode ( 4, ""4"") ; (* Info : <CTRL-D> *)
enter incode ( 1, ""1"") ; (* HOP : <CTRL-A> *)
enter incode ( 18, ""18"") ; (* Insert line : <CTRL-R> *)
enter incode ( 96, "<") ; (* < *)
enter incode (126, ">") ; (* > *)
enter incode ( 64, """") ; (* " *)
enter incode ( 35, ""252"") ; (* <252> *)
enter incode ( 94, "&") ; (* & *)
enter incode ( 38, "/") ; (* / *)
enter incode ( 42, "(") ; (* ( *)
enter incode ( 40, ")") ; (* ) *)
enter incode ( 41, "=") ; (* = *)
enter incode ( 45, "ß") ; (* <251> *)
enter incode ( 95, "?") ; (* ? *)
enter incode ( 61, "'") ; (* ' *)
enter incode ( 43, "`") ; (* ` *)
enter incode (121, "z") ; (* z *)
enter incode ( 89, "Z") ; (* Z *)
enter incode (122, "y") ; (* y *)
enter incode ( 90, "Y") ; (* Y *)
enter incode ( 60, ";") ; (* ; *)
enter incode ( 62, ":") ; (* : *)
enter incode ( 47, "-") ; (* - *)
enter incode ( 63, "_") ; (* _ *)
enter incode ( 59, "ö") ; (* <218> *)
enter incode ( 58, ""215"") ; (* <215> *)
enter incode ( 39, "ä") ; (* <217> *)
enter incode ( 34, ""214"") ; (* <214> *)
enter incode ( 91, "ü") ; (* <219> *)
enter incode ( 93, "+") ; (* + *)
enter incode (123, ""216"") ; (* <216> *)
enter incode (125, "*") ; (* * *)
enter incode ( 92, "#") ; (* # *)
enter incode (124, "^") ; (* ^ *)
|
