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, 3 insertions, 3 deletions

diff --git a/app/mpg/1987/src/M20PLOT.ELA b/app/mpg/1987/src/M20PLOT.ELA
index ea7f905..7eb4a81 100644
--- a/app/mpg/1987/src/M20PLOT.ELA
+++ b/app/mpg/1987/src/M20PLOT.ELA
@@ -43,7 +43,7 @@ POS VAR pos :: POS : (0, 0);
 out (""16"" + act pen + ""9"");

 

 PROC zeichensatz (TEXT CONST name):

-  IF exists (name)                                     (* H”he:   0.64 cm*)

+  IF exists (name)                                     (* Höhe:   0.64 cm*)

   THEN BOUND ZEICHENSATZ VAR new zeichen :: old (name);(* Breite: 0.40 cm*)

        zeichen := new zeichen;

        character defined := TRUE

@@ -173,7 +173,7 @@ PROC draw (TEXT CONST record, REAL CONST angle, height, width):
   FI  .

 

 draw graphic character:

-(**** Hier werden Texte mit dem Winkel 'angle',der H”he 'height' und ****)

+(**** Hier werden Texte mit dem Winkel 'angle',der Höhe 'height' und ****)

 (**** der Breite 'width' gezeichnet. Die Form der Zeichen ist in der ****)

 (**** Datei 'STD Zeichensatz' enthalten.                             ****)

   INT CONST x step :: character x step, y step :: character y step;

@@ -368,7 +368,7 @@ PROC cursor off:
 END PROC cursor off;

 

 (* Bildwiederholspeicheraufbau der M20:                                  *)

-(* 32 Bl”cke (0...31) enthalten jeweils 8 Microzeilen. Die Bitbelegung   *)

+(* 32 Blöcke (0...31) enthalten jeweils 8 Microzeilen. Die Bitbelegung   *)

 (* eines Blocks von 256 INT ist 7654321FEDCBA98.                         *)

 

 PROC get screen (DATASPACE VAR ds, INT CONST page):