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:
 | 
