system/terminal-codes/1.8.2/src/AT.ascii(SHard>=4.5)

Raw file
Back to index

 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
(*************************************************)
(* 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, "^") ; (* ^ *)