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
|
LET name = "PC.french";
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 ( 1, ""199""); (* HOP *)
enter incode ( 2, ""205""); (* RECHTS *)
enter incode ( 3, ""200""); (* OBEN *)
enter incode ( 4, ""4""); (* INFO *)
enter incode ( 7, ""2""); (* SV *)
enter incode ( 8, ""203""); (* LINKS *)
enter incode ( 10, ""208""); (* UNTEN *)
enter incode ( 11, ""210""); (* RUBIN *)
enter incode ( 12, ""211""); (* RUBOUT *)
enter incode ( 16, ""201""); (* MARK *)
enter incode ( 17, ""1""); (* STOP *)
enter incode ( 18, ""209""); (* NEWLINE *)
enter incode ( 23, ""3""); (* WEITER *)
enter incode ( 45, ""61""); (* - *)
enter incode ( 41, ""95""); (* ) *)
enter incode ( 35, ""45""); (* # *)
enter incode ( 38, ""33""); (* & *)
enter incode ( 34, ""35""); (* " *)
enter incode ( 40, ""37""); (* ( *)
enter incode ( 33, ""42""); (* ! *)
enter incode ( 97, ""113""); (* a *)
enter incode ( 65, ""81""); (* A *)
enter incode ( 122,""119""); (* z *)
enter incode ( 90, ""87""); (* Z *)
enter incode ( 42, ""125""); (* * *)
enter incode (113, ""97""); (* q *)
enter incode ( 81, ""65""); (* Q *)
enter incode (109, ""59""); (* m *)
enter incode ( 77, ""58""); (* M *)
enter incode ( 37, ""34""); (* % *)
enter incode ( 60, ""92""); (* < *)
enter incode ( 62, ""124""); (* > *)
enter incode (119, ""122""); (* w *)
enter incode ( 87, ""90""); (* W *)
enter incode ( 44, ""109""); (* , *)
enter incode ( 63, ""77""); (* ? *)
enter incode ( 59, ""44""); (* ; *)
enter incode ( 46, ""60""); (* . *)
enter incode ( 58, ""46""); (* : *)
enter incode ( 61, ""47""); (* = *)
enter incode ( 43, ""63""); (* + *)
enter incode ( 47, ""62""); (* / *)
enter incode (125, ""96""); (* } *)
|
