summaryrefslogtreecommitdiff
path: root/system/terminal-codes/unknown/src/A210
blob: 4b63b40830c4e2f30171ccbd5cfef997b6559b93 (plain)
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
(*************************************************)
(* Typtabelle   : A210                           *)
(* Zeichensatz  : ASCII                          *) 
(* Keyboard     : ASCII                          *) 
(* Erstellt am  : 07.12.85                       *)
(*************************************************)

forget ("A210", quiet) ;
new type ("A210") ;

enter outcode (127, 0, ""27"F"127"") ; (* Erster Outstring ! *) 
INT VAR i ; 
FOR i FROM 128 UPTO 254 REP 
 link outcode (i, 4) (* first outstring *)
PER ; 
 
cursor logic (32, ""27"=", "", "") ;
 
(* Ausgabe Codes : *)
enter outcode (  1,  30) ;        (* Cursor Home : <CTRL-^> *) 
enter outcode (  2,  12) ;        (* Cursor right: <CTRL-L> *) 
enter outcode (  3,  11) ;        (* Cursor up   : <CTRL-K> *) 
enter outcode (  4, 0, ""27"Y") ; (* CLEOP       : <ESC> Y *) 
enter outcode (  5, 0, ""27"T") ; (* CLEOL       : <ESC> T *) 
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, ""27"G0") ;(* END MARK    : <ESC> G 0 *) 
enter outcode ( 15, 0, ""27"G4") ;(* BEGIN MARK  : <ESC> G 4 *) 
enter outcode ( 16, 0, ""27"G8") ;(* UNDERLINE   : <ESC> G 8 *) 
enter outcode ( 17, 0, ""27"G2") ;(* FLASH       : <ESC> G 2 *) 
 
(* Low Video on = <ESC> ) , High Video on = <ESC> ( *) 
enter outcode (214, 0, ""27")A"27"(") ; (* ae     : <ESC> ) A <ESC> ( *) 
enter outcode (215, 0, ""27")O"27"(") ; (* oe     : <ESC> ) O <ESC> ( *) 
enter outcode (216, 0, ""27")U"27"(") ; (* ue     : <ESC> ) U <ESC> ( *) 
enter outcode (217, 0, ""27")a"27"(") ; (* Ae     : <ESC> ) a <ESC> ( *) 
enter outcode (218, 0, ""27")o"27"(") ; (* Oe     : <ESC> ) o <ESC> ( *) 
enter outcode (219, 0, ""27")u"27"(") ; (* Ue     : <ESC> ) u <ESC> ( *)
enter outcode (220, 0, ""27")k"27"(") ; (* Trenn-k     : k *) 
enter outcode (221, 0, ""27")-"27"(") ; (* Trennstrich : - *) 
enter outcode (222, 0, ""27")#"27"(") ; (* Fest-#      : # *) 
enter outcode (223, 0, ""27")_"27"(") ; (* Fest-Blank  : <SPACE> *) 
enter outcode (251, 0, ""27")B"27"(") ; (* sz     : <ESC> ) B <ESC> ( *) 

(* Eingabecodes : *)
enter incode (  0, ""0"")  ;  (* Wird beim Einschalten dreimal gesendet *)
enter incode (  1, ""30"") ;  (* HOP         : <CTRL-^> *)
enter incode (  2, ""12"") ;  (* Cursor right: <CTRL-L> *)
enter incode (  3, ""11"") ;  (* Cursor up   : <CTRL-K> *)
enter incode (  7, ""1"A"13"") ; (* SV - Call   : <CTRL-A> A <CR> *)
enter incode (  7, ""2"") ;   (* SV - Call   : <CTRL-B> *)
enter incode (  8, ""8"") ; 
enter incode (  9, ""9"") ;   (* TAB         : <CTRL-I> *)
enter incode ( 10, ""22"") ;  (* Cursor down : <CTRL-Y> *)
enter incode ( 11, ""27"Q") ; (* RUBIN       : <ESC> Q *)
enter incode ( 12, ""127"") ; (* RUBOUT      : <DEL> *)
enter incode ( 12, ""27"W") ; (* RUBOUT      : <ESC> W *)
enter incode ( 16, ""27"E") ; (* MARK        : <ESC> E *)
enter incode ( 17, ""19"") ;  (* Stop        : <CTRL-S> *)
enter incode ( 17, ""1"@"13"") ; (* Stop        : <CTRL-A> @ <CR> *)
enter incode ( 23, ""17"") ;     (* Weiter      : <CTRL-Q> *)
enter incode ( 23, ""1"B"13"") ; (* Weiter      : <CTRL-A> B <CR> *)
enter incode (  4, ""1"C"13"") ; (* Funct.-Taste: <CTRL-A> C <CR> *)
enter incode ( 20, ""1"D"13"") ; (* Funct.-Taste: <CTRL-A> D <CR> *)
enter incode ( 21, ""1"E"13"") ; (* Funct.-Taste: <CTRL-A> E <CR> *)
enter incode ( 22, ""1"F"13"") ; (* Funct.-Taste: <CTRL-A> F <CR> *)
enter incode ( 24, ""1"G"13"") ; (* Funct.-Taste: <CTRL-A> G <CR> *)
enter incode ( 25, ""1"H"13"") ; (* Funct.-Taste: <CTRL-A> H <CR> *)
enter incode ( 26, ""1"I"13"") ; (* Funct.-Taste: <CTRL-A> I <CR> *)
enter incode ( 28, ""1"J"13"") ; (* Funct.-Taste: <CTRL-A> J <CR> *)
enter incode ( 29, ""1"`"13"") ; (* Funct.-Taste: <CTRL-A> ` <CR> *)
enter incode ( 30, ""1"a"13"") ; (* Funct.-Taste: <CTRL-A> a <CR> *)
enter incode ( 31, ""1"b"13"") ; (* Weiter      : <CTRL-A> b <CR> *)
 
PROC link outcode (INT CONST eumelcode, begin of string) : 
 enter outcode (eumelcode, begin of string -128) 
ENDPROC link outcode ;