10 files changed, 81 insertions, 81 deletions

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  .