From c316cd982303f30f29075f31bcd910f9be38bb25 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Sat, 2 Mar 2019 17:15:47 +0100 Subject: Convert charset to utf8 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- system/dos/1986/src/save | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'system/dos/1986/src/save') 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: -- cgit v1.2.3