summaryrefslogtreecommitdiff
path: root/app/mpg/1987/src/VIDEOPLO.ELA
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2019-03-02 17:15:47 +0100
committerLars-Dominik Braun <lars@6xq.net>2019-03-02 17:15:47 +0100
commitc316cd982303f30f29075f31bcd910f9be38bb25 (patch)
tree12ba04bd0f2a94bd48583ee5f2ab269b6ba5c8b3 /app/mpg/1987/src/VIDEOPLO.ELA
parent50acf53648b6562853cb26aa4e7062a5ced66908 (diff)
downloadeumel-src-master.tar.gz
eumel-src-master.tar.bz2
eumel-src-master.zip
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.
Diffstat (limited to 'app/mpg/1987/src/VIDEOPLO.ELA')
-rw-r--r--app/mpg/1987/src/VIDEOPLO.ELA12
1 files changed, 6 insertions, 6 deletions
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 .