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
|
TEXT VAR name := "M20.original";
command dialogue (FALSE); forget (name);
new type (name);
cursor logic (0,""6"","","");
enter outcode (14, ""14"");
enter outcode (15, ""15"");
enter incode (7,""7""); (* sv *)
enter incode ( code ( ";" ), "!");
enter incode ( code ( "=" ), "@");
enter incode ( code ( "%" ), "$");
enter incode ( code ( "&" ), "%");
enter incode ( code ( "(" ), "&");
enter incode ( code ( ")" ), "/");
enter incode ( code ( "_" ), "(");
enter incode ( code ( "@" ), ")");
enter incode ( code ( "/" ), "=");
enter incode ( code ( ":" ), "?");
enter incode ( code ( "^" ), "Â");
enter incode ( code ( "!" ), ":");
enter incode ( code ( "Â" ), "_");
enter incode ( code ( "$" ), "#");
enter incode ( code ( "#" ), "^");
enter incode ( code ( "?" ), ";");
command dialogue (TRUE);
|
