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.

1 files changed, 38 insertions, 38 deletions

diff --git a/system/printer-9nadel/1986/src/module9 b/system/printer-9nadel/1986/src/module9
index e25cea6..2ab5304 100644
--- a/system/printer-9nadel/1986/src/module9
+++ b/system/printer-9nadel/1986/src/module9
@@ -1,7 +1,7 @@
  

 (*************************************************************************)

 (*                                            Stand   : 01.10.88         *)

-(*   Module-Datei f�r 9-Nadel-Drucker         Version : 0.9              *)

+(*   Module-Datei für 9-Nadel-Drucker         Version : 0.9              *)

 (*                                            Autoren : mov/hjh          *)

 (*************************************************************************)

 

@@ -16,102 +16,102 @@ PACKET printer driver
                top margin,

 

 $hfx85$        std speed:

-(* Treiber f�r EPSON FX85/105, automatisch generiert *)

+(* Treiber für EPSON FX85/105, automatisch generiert *)

 

 $hfx800$       std quality,

                std typeface:

-(* Treiber f�r EPSON FX800/1000, automatisch generiert *) 

+(* Treiber für EPSON FX800/1000, automatisch generiert *) 

 BOOL VAR was tall font;

  

 $hmx$          std speed:

-(* Treiber f�r EPSON MX80/100, Typ III *) 

+(* Treiber für EPSON MX80/100, Typ III *) 

 (* Treiber automatisch generiert *)

 BOOL VAR is condensed, is small;

 

 $hlx800$       std speed, 

                std quality,

                std typeface:

-(* Treiber f�r EPSON LX800/1000, automatisch generiert *) 

+(* Treiber für EPSON LX800/1000, automatisch generiert *) 

 BOOL VAR was tall font;

 

 $hgp$          std speed: 

-(* Treiber f�r IBM-Grafikdrucker *) 

+(* Treiber für IBM-Grafikdrucker *) 

 (* Treiber automatisch generiert *) 

 

 $hpp$          std speed, 

                std quality:

-(* Treiber f�r IBM-Proprinter *) 

+(* Treiber für IBM-Proprinter *) 

 (* Treiber automatisch generiert *) 

  

 $hml182i$      std speed,

                std quality:

-(* Treiber f�r OKI ML182/183 IBM-kompatibel *) 

+(* Treiber für OKI ML182/183 IBM-kompatibel *) 

 (* Treiber automatisch generiert *) 

  

 $hml192el$     paper feed,

                std speed:

-(* Treiber f�r OKI ML192/193 Elite *) 

+(* Treiber für OKI ML192/193 Elite *) 

 (* Treiber automatisch generiert *) 

 BOOL VAR prop font;

  

 $hml292el$     std quality, 

                std typeface, 

                paper feed: 

-(* Treiber f�r OKI ML292/293 Elite *) 

+(* Treiber für OKI ML292/293 Elite *) 

 (* Treiber automatisch generiert *) 

 BOOL VAR was tall font;

 

 $hml294i$      std speed, 

                paper feed,

                std quality:

-(* Treiber f�r OKI ML294 IBM-kompatibel *)

+(* Treiber für OKI ML294 IBM-kompatibel *)

 (* Treiber automatisch generiert *) 

 

 $hml320$       std speed:

-(* Treiber f�r OKI ML320 IBM/EPSON-kompatibel *) 

+(* Treiber für OKI ML320 IBM/EPSON-kompatibel *) 

 (* Treiber automatisch generiert *) 

 BOOL VAR prop font;

  

 $hlc10$        std quality, 

                std typeface:

-(* Treiber f�r Star LC-10 oder LC-10 Colour *) 

+(* Treiber für Star LC-10 oder LC-10 Colour *) 

 (* Treiber automatisch generiert *) 

 BOOL VAR was tall font;

  

 $hdmp4000$     std speed:

-(* Treiber f�r Schneider DMP4000, automatisch generiert *)

+(* Treiber für Schneider DMP4000, automatisch generiert *)

  

 $hnx15$        std speed:

-(* Treiber f�r Star NX-15, ND-10, ND-15, NR-10 und NR-15 *)

+(* Treiber für Star NX-15, ND-10, ND-15, NR-10 und NR-15 *)

 (* Treiber automatisch generiert *)

  

 $hmt230$       paper feed, 

                std speed: 

-(* Treiber f�r Mannesmann-Tally MT 230 *) 

+(* Treiber für Mannesmann-Tally MT 230 *) 

 (* Treiber automatisch generiert *) 

  

 $hmt340$       paper feed,

                std speed:

-(* Treiber f�r Mannesmann-Tally MT 340 *) 

+(* Treiber für Mannesmann-Tally MT 340 *) 

 (* Treiber automatisch generiert *) 

 BOOL VAR prop font := FALSE; 

  

 $h120d$        : 

-(* Treiber f�r Citizen 120-D *) 

+(* Treiber für Citizen 120-D *) 

 (* Treiber automatisch generiert *) 

  

 $hc310$        paper feed,

                std speed:

-(* Treiber f�r C. Itoh C 310/315 CXP *) 

+(* Treiber für C. Itoh C 310/315 CXP *) 

 (* Treiber automatisch generiert *) 

 

 $hci3500$      std speed: 

-(* Treiber f�r C. Itoh CI-3500 *) 

+(* Treiber für C. Itoh CI-3500 *) 

 (* Treiber automatisch generiert *) 

  

 $hdx2100$     paper feed,

               std speed:

-(* Treiber f�r Fujitsu DX 2100 *)

+(* Treiber für Fujitsu DX 2100 *)

 (* Treiber automatisch generiert *)

 BOOL VAR prop font := FALSE ;

  

@@ -152,7 +152,7 @@ PROC std speed (TEXT CONST speed) :
  

   IF speed = "fast" OR speed = "slow"

      THEN std speed name := speed

-     ELSE errorstop ("unzul�ssige Geschwindigkeit")

+     ELSE errorstop ("unzulässige Geschwindigkeit")

   FI

 END PROC std speed;

  

@@ -165,7 +165,7 @@ PROC std quality (TEXT CONST quality) :
  

   IF quality = "nlq" OR quality = "draft"

      THEN std quality name := quality

-     ELSE errorstop ("unzul�ssige Qualit�tsbezeichnung")

+     ELSE errorstop ("unzulässige Qualitätsbezeichnung")

   FI

 END PROC std quality;

  

@@ -178,7 +178,7 @@ PROC std typeface (TEXT CONST typeface) :
  

   IF typeface = "" OR typeface = "roman" OR typeface = "sansserif"

      THEN std typeface name := typeface

-     ELSE errorstop ("unzul�ssige Schriftart")

+     ELSE errorstop ("unzulässige Schriftart")

   FI

 END PROC std typeface;

  

@@ -191,7 +191,7 @@ PROC std typeface (TEXT CONST typeface) :
  

   IF typeface = "" OR typeface = "courier" OR typeface = "sansserif"

      THEN std typeface name := typeface

-     ELSE errorstop ("unzul�ssige Schriftart")

+     ELSE errorstop ("unzulässige Schriftart")

   FI

 END PROC std typeface;

  

@@ -205,7 +205,7 @@ PROC std typeface (TEXT CONST typeface) :
   IF typeface = "" OR typeface = "courier" OR typeface = "sansserif" 

                    OR typeface = "orator1" OR typeface = "orator2" 

      THEN std typeface name := typeface

-     ELSE errorstop ("unzul�ssige Schriftart")

+     ELSE errorstop ("unzulässige Schriftart")

   FI

 END PROC std typeface;

  

@@ -218,7 +218,7 @@ PROC paper feed (TEXT CONST feeder) :
  

   IF feeder = "sheet" OR feeder = "tractor"

      THEN feeder name := feeder

-     ELSE errorstop ("unzul�ssige Einzugsart")

+     ELSE errorstop ("unzulässige Einzugsart")

   FI

 END PROC paper feed;

  

@@ -234,7 +234,7 @@ PROC paper feed (TEXT CONST feeder) :
      THEN feeder name := feeder

   ELIF feeder = "sheet" 

      THEN feeder name := "schacht1" 

-     ELSE errorstop ("unzul�ssige Einzugsart")

+     ELSE errorstop ("unzulässige Einzugsart")

   FI

 END PROC paper feed;

  

@@ -301,14 +301,14 @@ $opendocmx$
 $opendocgp$ 

     param 2 := (param 2 DIV 36) * 36;

     out (""27"6");                               (* Zeichensatz 2 *)

-    out (""18""27"F"27"H"27"W"0""27"T"27"-"0""); (* Modifikationen r�cksetzen *) 

+    out (""18""27"F"27"H"27"W"0""27"T"27"-"0""); (* Modifikationen rücksetzen *) 

     out (""27"9"27"O"27"A"12""27"2"); 

     out (""27"C" + code (param 2 DIV 36)).       (* Formularlaenge *)

  

 $opendocpp$ 

     param 2 := (param 2 DIV 36) * 36;

     out (""27"6");                               (* Zeichensatz 2 *)

-    out (""18""27"F"27"W"0""27"T"27"-"0"");      (* Modifikationen r�cksetzen *) 

+    out (""18""27"F"27"W"0""27"T"27"-"0"");      (* Modifikationen rücksetzen *) 

     out (""27"9"27"O"27"A"12""27"2"); 

     out (""27"C" + code (param 2 DIV 36));       (* Formularlaenge *)

     IF pos (material, "nlq") <> 0 

@@ -329,7 +329,7 @@ $opendocml182i$
       THEN out (""27"I3") 

       ELSE out (""27"I1")

     FI; 

-    out (""27"N"0"");           (* Kein Sprung �ber Perf. *)

+    out (""27"N"0"");           (* Kein Sprung über Perf. *)

 

 $opendocml192el$ 

     param 2 := (param 2 DIV 36) * 36;

@@ -369,7 +369,7 @@ $opendocml292el$
 $opendocml294i$ 

     param 2 := (param 2 DIV 36) * 36;

     out (""27"6");                               (* Zeichensatz 2 *)

-    out (""18""27"F"27"W0"27"T"27"-0"27"%H");    (* Modifikationen r�cksetzen *) 

+    out (""18""27"F"27"W0"27"T"27"-0"27"%H");    (* Modifikationen rücksetzen *) 

     out (""27"9"27"O"27"A"12""27"2");

     out (""27"C" + code (param 2 DIV 36));       (* Formularlaenge *)

     IF pos (material, "nlq") <> 0 

@@ -647,7 +647,7 @@ $cmdml292el$
       THEN out (""27"r4")

     ELIF buffer = "orange" 

       THEN out (""27"r5")

-    ELIF buffer = "gr�n" 

+    ELIF buffer = "grün" 

       THEN out (""27"r6")

       ELSE out (buffer) 

     FI. 

@@ -670,7 +670,7 @@ $cmdml294i$
       THEN out (""27"r4")

     ELIF buffer = "orange" 

       THEN out (""27"r5")

-    ELIF buffer = "gr�n" 

+    ELIF buffer = "grün" 

       THEN out (""27"r6")

       ELSE out (buffer) 

     FI. 

@@ -701,7 +701,7 @@ $cmdlc10$
       THEN out (""27"r"4"")

     ELIF buffer = "orange" 

       THEN out (""27"r"5"")

-    ELIF buffer = "gr�n" 

+    ELIF buffer = "grün" 

       THEN out (""27"r"6"")

       ELSE out (buffer) 

     FI. 

@@ -724,7 +724,7 @@ $cmdmt230$
       THEN out (""27"r"4"")

     ELIF buffer = "rot" 

       THEN out (""27"r"5"")

-    ELIF buffer = "gr�n" 

+    ELIF buffer = "grün" 

       THEN out (""27"r"6"")

       ELSE out (buffer) 

     FI. 

@@ -748,7 +748,7 @@ $cmdc310$
       THEN out (""27"r"4"")

     ELIF buffer = "orange" 

       THEN out (""27"r"5"")

-    ELIF buffer = "gr�n" 

+    ELIF buffer = "grün" 

       THEN out (""27"r"6"")

       ELSE out (buffer) 

     FI. 

@@ -768,7 +768,7 @@ $cmddx2100$
        THEN out (""27"r"4"")

      ELIF buffer = "orange"

        THEN out (""27"r"5"")

-     ELIF buffer = "gr�n"

+     ELIF buffer = "grün"

        THEN out (""27"r"6"")

      ELSE out (buffer)

      FI.