From c316cd982303f30f29075f31bcd910f9be38bb25 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Sat, 2 Mar 2019 17:15:47 +0100
Subject: Convert charset to utf8
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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.
---
 app/mpg/1987/src/INCRPLOT.ELA | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'app/mpg/1987/src/INCRPLOT.ELA')

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;
-- 
cgit v1.2.3