diff options
Diffstat (limited to 'system/dos/1986/src/save')
| -rw-r--r-- | system/dos/1986/src/save | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/system/dos/1986/src/save b/system/dos/1986/src/save index 89d1108..903cfaa 100644 --- a/system/dos/1986/src/save +++ b/system/dos/1986/src/save @@ -124,10 +124,10 @@ std char: ascii change:
change all (line, ""251"", "#251#");
- char pos := pos (line, "", "", 1);
+ char pos := pos (line, "Ä", "ü", 1);
WHILE char pos > 0 REP
line := subtext (line, 1, char pos - 1) + ersatzdarstellung + subtext (line, char pos + 1);
- char pos := pos (line, "", "", char pos + 1)
+ char pos := pos (line, "Ä", "ü", char pos + 1)
PER.
ascii german change:
@@ -142,18 +142,18 @@ ascii german change: char pos := pos (line, "{", "}", char pos + 1)
PER;
change all (line, ""251"", "~");
- char pos := pos (line, "", "", 1);
+ char pos := pos (line, "Ä", "ü", 1);
WHILE char pos > 0 REP
replace (line, char pos, umlaut in ascii german);
- char pos := pos (line, "", "", char pos + 1)
+ char pos := pos (line, "Ä", "ü", char pos + 1)
PER.
atari st change:
- change all (line, "", ""158"");
- char pos := pos (line, "", "", 1);
+ change all (line, "ß", ""158"");
+ char pos := pos (line, "Ä", "ü", 1);
WHILE char pos > 0 REP
replace (line, char pos, umlaut in atari st);
- char pos := pos (line, "", "", char pos + 1)
+ char pos := pos (line, "Ä", "ü", char pos + 1)
PER.
ersatzdarstellung:
|