diff options
author | Lars-Dominik Braun <lars@6xq.net> | 2019-03-02 17:15:47 +0100 |
---|---|---|
committer | Lars-Dominik Braun <lars@6xq.net> | 2019-03-02 17:15:47 +0100 |
commit | c316cd982303f30f29075f31bcd910f9be38bb25 (patch) | |
tree | 12ba04bd0f2a94bd48583ee5f2ab269b6ba5c8b3 /system/dos/1986/src/save | |
parent | 50acf53648b6562853cb26aa4e7062a5ced66908 (diff) | |
download | eumel-src-master.tar.gz eumel-src-master.tar.bz2 eumel-src-master.zip |
Files imported in commit 98cab31fc3659e33aef260efca55bf9f1753164c were
exported from EUMEL to DOS and used codepage 437/850(?). Convert files
to UTF-8 where possible. Some files were left as-is. Iām not sure
whether converting these would be correct.
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:
|