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 +++++++++++++++++++++---------------------- 1 file changed, 38 insertions(+), 38 deletions(-) (limited to 'app/mpg/1987/src/B108PLOT.ELA') 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*) (* *) (********************************************************************) -- cgit v1.2.3