summaryrefslogtreecommitdiff
path: root/system/dos/1986/src/save
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2019-03-02 17:15:47 +0100
committerLars-Dominik Braun <lars@6xq.net>2019-03-02 17:15:47 +0100
commitc316cd982303f30f29075f31bcd910f9be38bb25 (patch)
tree12ba04bd0f2a94bd48583ee5f2ab269b6ba5c8b3 /system/dos/1986/src/save
parent50acf53648b6562853cb26aa4e7062a5ced66908 (diff)
downloadeumel-src-c316cd982303f30f29075f31bcd910f9be38bb25.tar.gz
eumel-src-c316cd982303f30f29075f31bcd910f9be38bb25.tar.bz2
eumel-src-c316cd982303f30f29075f31bcd910f9be38bb25.zip
Convert charset to utf8HEADmaster
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/save14
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: