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.

11 files changed, 20 insertions, 20 deletions

diff --git a/system/dos/1986/src/disk descriptor.dos.fd b/system/dos/1986/src/disk descriptor.dos.fd
index 660dd46..9de8cf0 100644
--- a/system/dos/1986/src/disk descriptor.dos.fd
+++ b/system/dos/1986/src/disk descriptor.dos.fd
@@ -250,7 +250,7 @@ PROC load disk data from bpb:
   IF is error

     THEN clear error;

          enable stop;

-         error stop ("Bios-Parameterblock ung�ltig")

+         error stop ("Bios-Parameterblock ungültig")

   FI.

 

 END PROC load disk data from bpb;

diff --git a/system/dos/1986/src/disk descriptor.dos.hd b/system/dos/1986/src/disk descriptor.dos.hd
index 312b273..0627b62 100644
--- a/system/dos/1986/src/disk descriptor.dos.hd
+++ b/system/dos/1986/src/disk descriptor.dos.hd
@@ -250,7 +250,7 @@ PROC load disk data from bpb:
   IF is error

     THEN clear error;

          enable stop;

-         error stop ("Bios-Parameterblock ung�ltig")

+         error stop ("Bios-Parameterblock ungültig")

   FI.

 

 END PROC load disk data from bpb;

diff --git a/system/dos/1986/src/eu disk descriptor.fd b/system/dos/1986/src/eu disk descriptor.fd
index c09c820..cd00175 100644
--- a/system/dos/1986/src/eu disk descriptor.fd
+++ b/system/dos/1986/src/eu disk descriptor.fd
@@ -58,7 +58,7 @@ PROC load shard interface table:
 load line:

   table top INCR 1;

   IF table top > table length

-    THEN error stop ("Shard Interface Tabelle zu gro�")

+    THEN error stop ("Shard Interface Tabelle zu groß")

   FI;

   INT VAR blank pos := 1;

   format table [table top][size field]         := next int;

diff --git a/system/dos/1986/src/eu disk descriptor.hd b/system/dos/1986/src/eu disk descriptor.hd
index 73179db..caeef66 100644
--- a/system/dos/1986/src/eu disk descriptor.hd
+++ b/system/dos/1986/src/eu disk descriptor.hd
@@ -58,7 +58,7 @@ PROC load shard interface table:
 load line:

   table top INCR 1;

   IF table top > table length

-    THEN error stop ("Shard Interface Tabelle zu gro�")

+    THEN error stop ("Shard Interface Tabelle zu groß")

   FI;

   INT VAR blank pos := 1;

   format table [table top][size field]         := next int;

diff --git a/system/dos/1986/src/fat and dir.dos.fd b/system/dos/1986/src/fat and dir.dos.fd
index 5a82655..35cf118 100644
--- a/system/dos/1986/src/fat and dir.dos.fd
+++ b/system/dos/1986/src/fat and dir.dos.fd
@@ -157,7 +157,7 @@ load next subdir if possible:
 get next subdir name:

   TEXT VAR subdir name;

   IF (path SUB 1) <> "\"

-    THEN error stop ("ung�ltige Pfadbezeichnung")

+    THEN error stop ("ungültige Pfadbezeichnung")

   FI;

   INT VAR backslash pos := pos (path, "\", "\", 2);

   IF backslash pos = 0

diff --git a/system/dos/1986/src/fat and dir.dos.hd b/system/dos/1986/src/fat and dir.dos.hd
index 7d53f41..2612b25 100644
--- a/system/dos/1986/src/fat and dir.dos.hd
+++ b/system/dos/1986/src/fat and dir.dos.hd
@@ -157,7 +157,7 @@ load next subdir if possible:
 get next subdir name:

   TEXT VAR subdir name;

   IF (path SUB 1) <> "\"

-    THEN error stop ("ung�ltige Pfadbezeichnung")

+    THEN error stop ("ungültige Pfadbezeichnung")

   FI;

   INT VAR backslash pos := pos (path, "\", "\", 2);

   IF backslash pos = 0

diff --git a/system/dos/1986/src/manager-M.dos.fd b/system/dos/1986/src/manager-M.dos.fd
index 601d521..1c59e01 100644
--- a/system/dos/1986/src/manager-M.dos.fd
+++ b/system/dos/1986/src/manager-M.dos.fd
@@ -81,7 +81,7 @@ PROC dos manager (DATASPACE VAR ds, INT CONST order code, phase,
     CASE reserve code   : reserve

     CASE free code      : free

     CASE check read code: check

-    OTHERWISE errorstop ("unbekannter Auftrag f�r Task: " + name (myself))

+    OTHERWISE errorstop ("unbekannter Auftrag für Task: " + name (myself))

   END SELECT.

 

 fetch file:

diff --git a/system/dos/1986/src/manager-M.dos.hd b/system/dos/1986/src/manager-M.dos.hd
index 5eb97c7..70d9d9a 100644
--- a/system/dos/1986/src/manager-M.dos.hd
+++ b/system/dos/1986/src/manager-M.dos.hd
@@ -81,7 +81,7 @@ PROC dos manager (DATASPACE VAR ds, INT CONST order code, phase,
     CASE reserve code   : reserve

     CASE free code      : free

     CASE check read code: check

-    OTHERWISE errorstop ("unbekannter Auftrag f�r Task: " + name (myself))

+    OTHERWISE errorstop ("unbekannter Auftrag für Task: " + name (myself))

   END SELECT.

 

 fetch file:

diff --git a/system/dos/1986/src/name conversion b/system/dos/1986/src/name conversion
index 1f9a797..3cdc202 100644
--- a/system/dos/1986/src/name conversion
+++ b/system/dos/1986/src/name conversion
@@ -43,7 +43,7 @@ changed name without extension:
   new name (eu name, read modus).

 

 error:

-  errorstop ("Unzul�ssiger Name").

+  errorstop ("Unzulässiger Name").

 

 END PROC adapted name;

 

@@ -60,7 +60,7 @@ convert char:
     THEN new CAT (upper case chars SUB string pos)

   ELIF is upper case char OR read modus

     THEN new CAT char

-  ELSE error stop ("Unzul�ssiger Name")

+  ELSE error stop ("Unzulässiger Name")

   FI.

 

 is lower case char:

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:

diff --git a/system/dos/1986/src/shard interface b/system/dos/1986/src/shard interface
index 67bf654..c7fdac5 100644
--- a/system/dos/1986/src/shard interface
+++ b/system/dos/1986/src/shard interface
@@ -1,8 +1,8 @@
 ; ';' in Spalte 1 kennzeichnet eine Kommentarzeile

-; alle Werte m�ssen durch Blanks getrennt werden

+; alle Werte müssen durch Blanks getrennt werden

 ;

-;heads: Anzahl der K�pfe, positiv f�r cylinderorientiertes Lesen

-;                         negativ f�r seitenorientiertes Lesen

+;heads: Anzahl der Köpfe, positiv für cylinderorientiertes Lesen

+;                         negativ für seitenorientiertes Lesen

 ;

 ;size     heads   tracks    first sectors  last sector

 ;=====================================================