summaryrefslogtreecommitdiff
path: root/system/terminal-codes/unknown/src/M24
blob: bf8cae3d36fd0c5f76c27c97598c6783cbaeb4a1 (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
LET name = "M24"; 
forget (name, quiet); 
new type (name); 

cursor logic (0, ""6"", "", "");

enter outcode ( 14, 0, ""14" ");          (* end   mark *)
enter outcode ( 15, 0, ""15" ");          (* begin mark *)
enter outcode (214, 142);                 (*  *)
enter outcode (215, 153);                 (*  *)
enter outcode (216, 154);                 (*  *)
enter outcode (217, 132);                 (*  *)
enter outcode (218, 148);                 (*  *)
enter outcode (219, 129);                 (*  *)
enter outcode (220, 0, ""15""107""14"");  (* druck k *)
enter outcode (221, 0, ""15""45""14"");   (* druck - *)
enter outcode (222, 0, ""15""35""14"");   (* druck # *)
enter outcode (223, 0, ""15""32""14"");   (* druck   *)
enter outcode (251, 225);                 (*  *) 
 
enter incode (  4,   ""4"");              (* INFO *)
enter incode (  7,   ""7"");              (* SV *)
enter incode (  7, ""206"");              (* SV *)
enter incode ( 17,  ""17"");              (* STOP *)
enter incode ( 17, ""208"");              (* STOP *)
enter incode ( 23,  ""23"");              (* WEITER *)
enter incode ( 23, ""207"");              (* WEITER *)

enter incode ( 34,  ""64"");              (* " *)
enter incode ( 35,  ""96"");              (* # *)
enter incode ( 38,  ""94"");              (* & *)
enter incode ( 39,  ""61"");              (* ' *)
enter incode ( 40,  ""42"");              (* ( *)
enter incode ( 41,  ""40"");              (* ) *)
enter incode ( 42, ""125"");              (* * *)
enter incode ( 42, ""201"");              (* * *)
enter incode ( 43,  ""93"");              (* + *)
enter incode ( 43, ""203"");              (* + *)
enter incode ( 45,  ""47"");              (* - *)
enter incode ( 45, ""202"");              (* - *)
enter incode ( 47,  ""38"");              (* / *)
enter incode ( 47, ""200"");              (* / *) 
enter incode ( 58,  ""62"");              (* : *)
enter incode ( 59,  ""60"");              (* ; *)
enter incode ( 60,  ""92"");              (* < *)
enter incode ( 61,  ""41"");              (* = *)
enter incode ( 62, ""124"");              (* > *)
enter incode ( 63,  ""95"");              (* ? *)
enter incode ( 64,  ""35"");              (* @ *)
enter incode ( 89,  ""90"");              (* Y *)
enter incode ( 90,  ""89"");              (* Z *)
enter incode ( 94, ""126"");              (* ^ *)
enter incode ( 95,  ""63"");              (* _ *)
enter incode ( 96,  ""43"");              (* ` *)
enter incode (121, ""122"");              (* y *)
enter incode (122, ""121"");              (* z *)
enter incode (214,  ""34"");              (*  *)
enter incode (215,  ""58"");              (*  *)
enter incode (216, ""123"");              (*  *)
enter incode (217,  ""39"");              (*  *)
enter incode (218,  ""59"");              (*  *)
enter incode (219,  ""91"");              (*  *)
enter incode (251,  ""45"");              (*  *)