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

diff --git a/app/mpg/1987/src/PCPLOT.ELA b/app/mpg/1987/src/PCPLOT.ELA
index f0949ae..fd980ab 100644
--- a/app/mpg/1987/src/PCPLOT.ELA
+++ b/app/mpg/1987/src/PCPLOT.ELA
@@ -38,7 +38,7 @@ INT VAR act thick :: 0, i, dummy, resolution :: 6, colour code :: 256;
 POS VAR pos :: POS : (0, 0);

 

 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

@@ -165,7 +165,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;