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/VIDEOPLO.ELA | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'app/mpg/1987/src/VIDEOPLO.ELA') diff --git a/app/mpg/1987/src/VIDEOPLO.ELA b/app/mpg/1987/src/VIDEOPLO.ELA index 9721cad..38b44ea 100644 --- a/app/mpg/1987/src/VIDEOPLO.ELA +++ b/app/mpg/1987/src/VIDEOPLO.ELA @@ -57,13 +57,13 @@ write (""29""27""140""27"/0d"24"") END PROC clear; PROC background (INT CONST desired, INT VAR realized): - realized := 0 (*Nur schwarzer Hintergrund m”glich *) + realized := 0 (*Nur schwarzer Hintergrund möglich *) END PROC background; PROC foreground (INT CONST desired, INT VAR realized): akt pen := desired; - realized := sign (desired) . (*Nur weiáer Sift m”glich, aber *) - (*l”schend, „ndernd oder berschreibend *) + realized := sign (desired) . (*Nur weißer Sift möglich, aber *) + (*löschend, Ă€ndernd oder ĂŒberschreibend *) END PROC foreground; PROC thickness (INT CONST desired, INT VAR realized): @@ -84,7 +84,7 @@ PROC linetype (INT CONST desired, INT VAR realized): type cmd: SELECT desired OF - CASE 1 : ""27"/a" # durchg„ngige Linie # + CASE 1 : ""27"/a" # durchgĂ€ngige Linie # CASE 2 : ""27"/1;1a" # gepunktet # CASE 3 : ""27"/3;3a" # kurz gestrichelt # CASE 4 : ""27"/6;6a" # lang gestrichelt # @@ -340,7 +340,7 @@ size: CASE 4 : ""27"1" CASE 5 : ""27"2" CASE 6 : ""27"3" - OTHERWISE ""27"0" END SELECT . # Gr”áe 3 fr undefinierte Werte # + OTHERWISE ""27"0" END SELECT . # GrĂ¶ĂŸe 3 fĂŒr undefinierte Werte # END PROC draw; @@ -367,7 +367,7 @@ OP DRAW (INT CONST x, y) : FI . colour cmd: - IF akt pen = 0 THEN ""27"/1d" # l”schend # + IF akt pen = 0 THEN ""27"/1d" # löschend # ELIF akt pen < 0 THEN ""27"/2d" # XOR # ELSE ""27"/0" # normal # FI . -- cgit v1.2.3