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
|
TEXT VAR name :="REGENT25";
new type (name);
cursor logic (32,""27"Y","","");
enter outcode (1,0,""27"Y ");
enter outcode (2 ,6 );
enter outcode (3 ,26 );
enter outcode (5 ,0,""27"K" );
enter outcode (4,120,""27"k");
enter outcode (220, "k"); (* Trenn-k *)
enter outcode (221, "-"); (* Trenn- *)
enter outcode (222, "#");
enter outcode (223, "_");
enter outcode (214,"A"); (* Umlaute *)
enter outcode (215,"O");
enter outcode (216,"U");
enter outcode (217,"a");
enter outcode (218,"o");
enter outcode (219,"u");
enter outcode (251,"B");
enter incode (2 ,""6"" );
enter incode (3 ,""26"" );
enter incode (8 ,""21"" ); (* backspace *)
enter incode (4,""4""); (* info *)
enter incode (7,""29""); (* sv *)
enter incode (17,""3""); (* stop *)
enter incode (23,""0""); (* weiter *)
enter incode (11,"^"); (* rubin *)
enter incode (12,""127""); (* rubout *)
enter incode (16,""126"") ; (* mark *)
|
