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/RUCTEPLT.ELA | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/app/mpg/1987/src/RUCTEPLT.ELA b/app/mpg/1987/src/RUCTEPLT.ELA
index 684c358..ebd9a2b 100644
--- a/app/mpg/1987/src/RUCTEPLT.ELA
+++ b/app/mpg/1987/src/RUCTEPLT.ELA
@@ -50,7 +50,7 @@ ENDPROC text word ;
 
 PROC drawing area (REAL VAR x cm, y cm, INT VAR x pixel, y pixel) : 
    x cm := 25.0;    y cm := 17.0;   {***** Horizontale und vertikale *****}
-                                    {***** GrӇe in Zentimetern.     *****}
+                                    {***** Größe in Zentimetern.     *****}
    x pixel := maxx;  y pixel := maxy{***** Koordinaten des rechten   *****}
                                     {***** oberen Punktes.           *****}
 END PROC drawing area;
@@ -315,7 +315,7 @@ PROC box (INT CONST width, height) :
 ENDPROC box ;
 
 PROC filled box (INT CONST width, height) : (* Width max. 255 *)
- out (""27"N" + code (width) + code (height)) ; (* Groáes inverses Blank *)
+ out (""27"N" + code (width) + code (height)) ; (* Großes inverses Blank *)
  put (""0""27"&"27"O41"27"G0 "27"N"0""0""0"")   (* ausgeben *)
 ENDPROC filled box ;
 
-- 
cgit v1.2.3