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/B108PLOT.ELA | 76 +++++++++++++++++++++---------------------- app/mpg/1987/src/BASISPLT.ELA | 18 +++++----- app/mpg/1987/src/INCRPLOT.ELA | 22 ++++++------- app/mpg/1987/src/M20PLOT.ELA | 6 ++-- app/mpg/1987/src/MTRXPLOT.ELA | 16 ++++----- app/mpg/1987/src/PCPLOT.ELA | 4 +-- app/mpg/1987/src/PICPLOT.ELA | 2 +- app/mpg/1987/src/RUCTEPLT.ELA | 4 +-- app/mpg/1987/src/STDPLOT.ELA | 2 +- app/mpg/1987/src/VIDEOPLO.ELA | 12 +++---- 10 files changed, 81 insertions(+), 81 deletions(-) (limited to 'app/mpg/1987/src') diff --git a/app/mpg/1987/src/B108PLOT.ELA b/app/mpg/1987/src/B108PLOT.ELA index 1ca301e..7eb1d4c 100644 --- a/app/mpg/1987/src/B108PLOT.ELA +++ b/app/mpg/1987/src/B108PLOT.ELA @@ -131,35 +131,35 @@ PROC fill (INT CONST muster) : (********************************************************************) (* *) (* FILL (muster nummer) *) -(* Fllt eine beliebig (sichtbar) umrandete Fl„che mit *) +(* FĂŒllt eine beliebig (sichtbar) umrandete FlĂ€che mit *) (* dem angegebenen Muster. *) (* *) (* Das Muster ist eine 8 x 8 Matrix, die sich auf allen pos MOD 8*) (* -Adressen wiederholt. *) -(* Im NAND-Modus wird mit dem inversen Muster gefllt, die Fl„che*) -(* muá dann aber mit unsichtbaren Pixels begrenzt werden. *) +(* Im NAND-Modus wird mit dem inversen Muster gefĂŒllt, die FlĂ€che*) +(* muß dann aber mit unsichtbaren Pixels begrenzt werden. *) (* *) -(* Folgende Muster sind m”glich: *) -(* 0 = 'solid' (alles gefllt) *) +(* Folgende Muster sind möglich: *) +(* 0 = 'solid' (alles gefĂŒllt) *) (* 1 = 'lrs2' (jeder zweite Punkt, Zeilenweise versetzt) *) -(* 2 = 'row4' (jede 4. Zeile wird gefllt) *) -(* 3 = 'row2' (jede 2. Zeile wird gefllt) *) -(* 4 = 'col4' (jede 4. Spalte wird gefllt) *) -(* 5 = 'col2' (jede 2. Spalte wird gefllt) *) -(* 6 = 'grid4' (jede 4. Spalte/Zeile wird gefllt) *) -(* 7 = 'grid2' (jede 2. Spalte/Zeile wird gefllt) *) +(* 2 = 'row4' (jede 4. Zeile wird gefĂŒllt) *) +(* 3 = 'row2' (jede 2. Zeile wird gefĂŒllt) *) +(* 4 = 'col4' (jede 4. Spalte wird gefĂŒllt) *) +(* 5 = 'col2' (jede 2. Spalte wird gefĂŒllt) *) +(* 6 = 'grid4' (jede 4. Spalte/Zeile wird gefĂŒllt) *) +(* 7 = 'grid2' (jede 2. Spalte/Zeile wird gefĂŒllt) *) (* 8 = 'ls4' (Schraffur links unten --> rechts oben, jede 4.) *) (* 9 = 'rs4' (Schraffur rechts unten --> links oben, jede 4.) *) -(* 10 = 'lrs4' (Schr„ges Gitter wie 8 und 9 zusammen) *) +(* 10 = 'lrs4' (SchrĂ€ges Gitter wie 8 und 9 zusammen) *) (* 11 = 'point2'(In jeder 2. Zeile jeder 2. Punkt) *) (* 12 = 'wall4' (Mauer, ein Ziegelstein 4 Pixel hoch) *) (* 13 = 'basket'(Korb/Netz) *) (* 14 = 'wave4' (Wellenlinie 4 Pixel hoch) *) (* 15 = 'wave8' (Wellenlinie 8 Pixel hoch) *) (* *) -(* Falls die zu fllende Fl„che zu komplex wird, kann es vorkommen,*) -(* daá der interne Stack berl„uft. In diesem Fall wird nicht die *) -(* gesamte Fl„che gefllt wird. *) +(* Falls die zu fĂŒllende FlĂ€che zu komplex wird, kann es vorkommen,*) +(* daß der interne Stack ĂŒberlĂ€uft. In diesem Fall wird nicht die *) +(* gesamte FlĂ€che gefĂŒllt wird. *) (* *) (********************************************************************) control (ctrl fill, muster, 0, r) @@ -172,13 +172,13 @@ PROC trans (INT CONST from, to) : (* *) (* TRANS (from page, to page) *) (* Kopiert den Inhalt der Graphikseite 'from page' in die *) -(* Seite 'to page'. Folgende Seitennummern sind m”glich: *) +(* Seite 'to page'. Folgende Seitennummern sind möglich: *) (* *) (* 0 : Seite 0 kann mit 'visible page (0)' angezeigt werden *) (* 1 : Seite 1 kann mit 'visible page (1)' angezeigt werden *) (* 2 : Seite 2 kann nicht sichtbar werden (Hilfsspeicher-Seite) *) -(* 3 : Žhnlich Seite 2, wird aber bei 'FILL' noch als Arbeits- *) -(* seite benutzt (wird dann berschrieben!) *) +(* 3 : Ähnlich Seite 2, wird aber bei 'FILL' noch als Arbeits- *) +(* seite benutzt (wird dann ĂŒberschrieben!) *) (* *) (********************************************************************) @@ -193,8 +193,8 @@ BOOL PROC testbit (INT CONST x, y) : (* Testet den Status eines bestimmten Pixels. *) (* *) (* Die Pixelposition wird mit xpos/ypos beschrieben. *) -(* Als Result wird zurckgeliefert: *) -(* 255, falls xpos/ypos auáerhalb des sichtbaren Fensters *) +(* Als Result wird zurĂŒckgeliefert: *) +(* 255, falls xpos/ypos außerhalb des sichtbaren Fensters *) (* liegt. *) (* Bit 0 = 1: Pixel sichtbar *) (* Bit 0 = 0: Pixel unsichtbar *) @@ -212,11 +212,11 @@ PROC clear : (********************************************************************) (* *) (* CLR (seite, muster) *) -(* Fllt die angegebene Seite mit dem angegebenen Muster *) +(* FĂŒllt die angegebene Seite mit dem angegebenen Muster *) (* *) (* Bit 7 des Musters bestimmt die Farbe (0 = dunkel, 1 = hell) *) (* Die anderen 7 Bits werden Spalten- und Zeilenweise wiederholt.*) -(* (128 l”scht die Seite mit unsichtbaren Punkten) *) +(* (128 löscht die Seite mit unsichtbaren Punkten) *) (* *) (********************************************************************) @@ -234,27 +234,27 @@ PROC pen (INT CONST background, foreground, thickness, linetype) : (* CTRL (flags, linienmuster) *) (* Setzt verschiedene Graphikmodi. *) (* *) -(* Die Bits im ersten Parameter sind folgendermaáen zugeordnet. *) +(* Die Bits im ersten Parameter sind folgendermaßen zugeordnet. *) (* *) (* Bit 0 : *) (* 0 = Textmodus einschalten, Graphikmodus ausschalten *) (* 1 = Graphikmodus einschalten, Textmodus ausschalten *) (* Bit 1 : *) -(* 0 = Seite 0 als sichtbare Seite w„hlen *) -(* 1 = Seite 1 als sichtbare Seite w„hlen *) +(* 0 = Seite 0 als sichtbare Seite wĂ€hlen *) +(* 1 = Seite 1 als sichtbare Seite wĂ€hlen *) (* Bit 2 : *) -(* 0 = Seite 0 als bearbeitete Seite w„hlen *) -(* 1 = Seite 1 als bearbeitete Seite w„hlen *) -(* Bit 3, 4 : Verknpfung Patternbit: 0 1 *) -(* 0 OR setzen unver„ndert *) -(* 1 NAND l”schen unver„ndert *) -(* 2 XOR invertieren unver„ndert *) -(* 3 COPY l”schen setzen *) +(* 0 = Seite 0 als bearbeitete Seite wĂ€hlen *) +(* 1 = Seite 1 als bearbeitete Seite wĂ€hlen *) +(* Bit 3, 4 : VerknĂŒpfung Patternbit: 0 1 *) +(* 0 OR setzen unverĂ€ndert *) +(* 1 NAND löschen unverĂ€ndert *) +(* 2 XOR invertieren unverĂ€ndert *) +(* 3 COPY löschen setzen *) (* Bit 5 : *) (* 0 = Der gesmate Bildschirm zeigt die Graphikseite ('full') *) (* 1 = In den letzten 32 Graphikzeilen erscheint die Textseite *) (* Bit 6 : *) -(* 0 = Das im zweiten Parameter bergebene Wort wird als 16-Bit *) +(* 0 = Das im zweiten Parameter ĂŒbergebene Wort wird als 16-Bit *) (* Linienmuster eingestellt. Modus siehe Bit 3/4. *) (* 1 = Das alte (bzw. voreingestellte) Linienmuster wird benutzt*) (* Bit 7 : *) @@ -265,10 +265,10 @@ PROC pen (INT CONST background, foreground, thickness, linetype) : (* 1..15 = Strichdicke (Es werden 2*s-1 Linien parallel ge- *) (* zeichnet.) *) (* *) -(* Der zweite Parameter enth„lt das 16-Bit Linienmuster. Dieses *) +(* Der zweite Parameter enthĂ€lt das 16-Bit Linienmuster. Dieses *) (* wird beim zeichnen einer Linie zyklisch Bitweise abgetastet. *) (* Je nach Status des Bits im Linienmuster wird eine Punkt- *) -(* aktion ausgefhrt, deren Wirkung im 1. Parameter mit den Bits *) +(* aktion ausgefĂŒhrt, deren Wirkung im 1. Parameter mit den Bits *) (* 3 und 4 spezifiziert wird. *) (* *) (********************************************************************) @@ -321,7 +321,7 @@ PROC move (INT CONST x, y) : (* MOVE (x pos, y pos) *) (* Setzt den (unsichtbaren) Graphikcursor auf xpos/ypos. *) (* *) -(* Der n„chste 'draw' zeichnet eine Linie beginnend bei xpos/ypos*) +(* Der nĂ€chste 'draw' zeichnet eine Linie beginnend bei xpos/ypos*) (* *) (********************************************************************) @@ -338,8 +338,8 @@ PROC draw (INT CONST x, y) : (* Zeichnet eine Linie zur angegebeben Position xpos/ypos. *) (* *) (* Die eingestellten Parameter Helligkeit, Linientyp, Bitver- *) -(* knpfung und Dicke werden beachtet. *) -(* Der n„chste 'draw' zeichnet eine Linie beginnend bei xpos/ypos*) +(* knĂŒpfung und Dicke werden beachtet. *) +(* Der nĂ€chste 'draw' zeichnet eine Linie beginnend bei xpos/ypos*) (* *) (********************************************************************) diff --git a/app/mpg/1987/src/BASISPLT.ELA b/app/mpg/1987/src/BASISPLT.ELA index 366f4a6..0232485 100644 --- a/app/mpg/1987/src/BASISPLT.ELA +++ b/app/mpg/1987/src/BASISPLT.ELA @@ -1,9 +1,9 @@ PACKET basis plot DEFINES (* Autor: H. Indenbirken *) (* Stand: 30.12.84 *) -(********************** Hardwareunabh„ngiger Teil ************************* +(********************** HardwareunabhĂ€ngiger Teil ************************* * * * * -* Im Harwareunabh„ngigen Paket 'transformation' werden folgende * +* Im HarwareunabhĂ€ngigen Paket 'transformation' werden folgende * * Prozeduren definiert: * * Procedure : Bedeutung * * -------------------------------------------------------------------* @@ -13,16 +13,16 @@ PACKET basis plot DEFINES (* Autor: H. Indenbirken *) * meter gesetzt. * * size: Weltkoordinatenbereich * * ((xmin,xmax),(ymin,ymax),(zmin,zmax)) * -* limits: Zeichenfl„che * +* limits: ZeichenflĂ€che * * ((h min, h max), (v min, v max)) * * Bei Werten < 2.0 werden die Werte als * * Prozente interpretiert, ansonsten als * -* cm-Gr”ssen. * -* get values  : šbergibt die aktuellen Werte * +* cm-Grössen. * +* get values  : Übergibt die aktuellen Werte * * new values  : Vermerkt neue Werte * * * * * -* drawing area  : šbergibt die aktuelle Zeichengr”áe in Pixel. * +* drawing area  : Übergibt die aktuelle ZeichengrĂ¶ĂŸe in Pixel. * * * * angles  : a) alpha: Winkel der Y-Achse in Grad * * b) (x, y, z): karth. Projektionswinkel * @@ -38,9 +38,9 @@ PACKET basis plot DEFINES (* Autor: H. Indenbirken *) * perspective  : Perspektivische Projektion * * * * * -* box  : Rahmen um die aktuelle Zeichenfl„che * -* reset  : L”scht alte verdeckte Linien * -* hidden lines  : Unterdrckt verdeckte Linien * +* box  : Rahmen um die aktuelle ZeichenflĂ€che * +* reset  : Löscht alte verdeckte Linien * +* hidden lines  : UnterdrĂŒckt verdeckte Linien * * * * move  : Positioniert auf (x, y, [z]) in Weltkoordinaten * * draw  : Zeichnet eine Linie bis zum Punkt (x, y, [z]). * 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; 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): diff --git a/app/mpg/1987/src/MTRXPLOT.ELA b/app/mpg/1987/src/MTRXPLOT.ELA index 4068866..d7bf6f9 100644 --- a/app/mpg/1987/src/MTRXPLOT.ELA +++ b/app/mpg/1987/src/MTRXPLOT.ELA @@ -66,7 +66,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; @@ -81,13 +81,13 @@ PROC clear : stift := PEN : (black, white, 0, durchgehend, FALSE, TRUE); pos := POS : (0, 0); -(* L”schen der Hiddenmaxima *); +(* Löschen der Hiddenmaxima *); reset; -(* Ausgabe der Bildmatrix auf dem Endger„t *); +(* Ausgabe der Bildmatrix auf dem EndgerĂ€t *); put screen; -(* L”schen der Bildmatrix *); +(* Löschen der Bildmatrix *); clear (screen) END PROC clear; @@ -248,11 +248,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; diff --git a/app/mpg/1987/src/PCPLOT.ELA b/app/mpg/1987/src/PCPLOT.ELA index f0949ae..fd980ab 100644 --- a/app/mpg/1987/src/PCPLOT.ELA +++ b/app/mpg/1987/src/PCPLOT.ELA @@ -38,7 +38,7 @@ INT VAR act thick :: 0, i, dummy, resolution :: 6, colour code :: 256; POS VAR pos :: POS : (0, 0); 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 @@ -165,7 +165,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; diff --git a/app/mpg/1987/src/PICPLOT.ELA b/app/mpg/1987/src/PICPLOT.ELA index d8bf5a5..af92390 100644 --- a/app/mpg/1987/src/PICPLOT.ELA +++ b/app/mpg/1987/src/PICPLOT.ELA @@ -224,7 +224,7 @@ check : END PROC get cursor; (* Bildwiederholspeicheraufbau des Pic 400: *) -(* 45 Bl”cke (0...44) enthalten den Bildwiederholspeicher. *) +(* 45 Blöcke (0...44) enthalten den Bildwiederholspeicher. *) PROC get screen (DATASPACE VAR ds, INT CONST page): INT VAR i, n, begin :: 45*page; 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 ; diff --git a/app/mpg/1987/src/STDPLOT.ELA b/app/mpg/1987/src/STDPLOT.ELA index 542b032..3281516 100644 --- a/app/mpg/1987/src/STDPLOT.ELA +++ b/app/mpg/1987/src/STDPLOT.ELA @@ -33,7 +33,7 @@ clear; 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 := 79; y pixel := 48 {***** Koordinaten des rechten *****} {***** oberen Punktes. *****} END PROC drawing area; 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