From c316cd982303f30f29075f31bcd910f9be38bb25 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun 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/M20PLOT.ELA | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'app/mpg/1987/src/M20PLOT.ELA') 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): -- cgit v1.2.3