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

diff --git a/app/mpg/1987/src/INCRPLOT.ELA b/app/mpg/1987/src/INCRPLOT.ELA
index 408ab5f..72d46dc 100644
--- a/app/mpg/1987/src/INCRPLOT.ELA
+++ b/app/mpg/1987/src/INCRPLOT.ELA
@@ -73,7 +73,7 @@ END PROC zeichensatz;
 

 PROC drawing area (REAL VAR x cm, y cm, INT VAR x pixel, y pixel) : 

    x cm := 23.0;    y cm := 13.7;   {***** Horizontale und vertikale *****}

-                                    {***** GrӇe in Zentimetern.     *****}

+                                    {***** GrĂ¶ĂŸe in Zentimetern.     *****}

    x pixel := 511;  y pixel := 255  {***** Koordinaten des rechten   *****}

                                     {***** oberen Punktes.           *****}

 END PROC drawing area;

@@ -96,7 +96,7 @@ PROC clear :
   point := "";

  

   reset;

-  {***** neue Zeichenfl„che *****}

+  {***** neue ZeichenflÀche *****}

   out ("P")

 END PROC clear;

 

@@ -111,7 +111,7 @@ set background:
   {***** Hintergrundfarbe setzen *****}  .

 

 set foreground:

-  {***** Stift ausw„hlen *****}  .

+  {***** Stift auswÀhlen *****}  .

  

 set thickness:

   {***** Es wird ein breiterer Sift simuliert, indem jeder Punkt    *****}

@@ -131,9 +131,9 @@ set thickness:
   point CAT (thickness DIV 2) * up right  .

 

 set linetype:

-  {***** Falls das Endger„t hardwarem„áig verschieden Linientypen   *****}

-  {***** besitzt, k”nnen diese hier angesteuert werden. Ansonsten   *****}

-  {***** werden sie softwarem„áig simuliert.                        *****}

+  {***** Falls das EndgerĂ€t hardwaremĂ€ĂŸig verschieden Linientypen   *****}

+  {***** besitzt, können diese hier angesteuert werden. Ansonsten   *****}

+  {***** werden sie softwaremĂ€ĂŸig simuliert.                        *****}

   pattern pos := 0;

   SELECT linetype OF

   CASE durchgehend      : line pattern := -1

@@ -235,7 +235,7 @@ do right step :
   old error INCR right error .

  

 check point :

-  { In Abh„ngigkeit vom Ergebnis der Prozedur 'visible' wird der    *****}

+  { In AbhÀngigkeit vom Ergebnis der Prozedur 'visible' wird der    *****}

   { Stift gehoben oder gesenkt.                                     *****}

 

   IF visible (pos)

@@ -263,11 +263,11 @@ hidden:
 END PROC visible;

 

 PROC draw (TEXT CONST record, REAL CONST angle, height, width):

-{**** 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. Falls die Hardware dieses       *****}

-{**** bereits erm”glicht, so mssen die Variable 'zeichen' und die   *****}

-{**** Prozedur Zeichensatz gel”scht werden. Der Datenraum            *****}

-{**** 'STD Zeichensatz' wird in diesem Fall nicht ben”tigt.          *****}

+{**** bereits ermöglicht, so mĂŒssen die Variable 'zeichen' und die   *****}

+{**** Prozedur Zeichensatz gelöscht werden. Der Datenraum            *****}

+{**** 'STD Zeichensatz' wird in diesem Fall nicht benötigt.          *****}

   BOOL CONST horizontal :: NOT (abs (angle) MOD 180.0 > 45.0 AND abs (angle) MOD 180.0 < 135.0);

   INT CONST x fak :: character width, x step :: character x step,

             y fak :: character height, y step :: character y step;