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
|
TEXT VAR name := subtext ( std , 1 , length ( std ) - 4 ) ;
lastparam ( "" ) ;
forget ( name , quiet ) ;
new type ( name ) ;
cursor logic ( 0 , ""6"" , "" , "" ) ;
enter outcode ( 15 , 0, ""15" " ) ;
enter outcode ( 14 , 0, ""14" " ) ;
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 ( 214, ""142"" ) ; (* Ä *)
enter incode ( 215, ""153"" ) ; (* Ö *)
enter incode ( 216, ""154"" ) ; (* Ü *)
enter incode ( 217, ""132"" ) ; (* ä *)
enter incode ( 218, ""148"" ) ; (* ö *)
enter incode ( 219, ""129"" ) ; (* ü *)
enter incode ( 251, ""225"" ) ; (* ß *)
enter incode ( 64, ""21"" ) ; (* ⁿ *)
enter incode ( 96, ""36"" ) ; (* ` *)
enter incode ( 1, ""199"" ) ; (* hop *)
enter incode ( 2, ""205"" ) ; (* right *)
enter incode ( 3, ""200"" ) ; (* up *)
enter incode ( 7, ""187"" ) ; (* SV -> F1 *)
enter incode ( 7, ""2"" ) ; (* SV *)
enter incode ( 8, ""203"" ) ; (* left *)
enter incode ( 9, ""143"" ) ; (* tab *)
enter incode ( 10, ""208"" ) ; (* down *)
enter incode ( 11, ""210"" ) ; (* rubin *)
enter incode ( 12, ""211"" ) ; (* rubout *)
enter incode ( 16, ""198"" ) ; (* mark *)
enter incode ( 17, ""1"" ) ; (* stop *)
enter incode ( 23, ""3"" ) ; (* start *)
enter incode ( 187, ""136"") ; (* F1 *)
|
