diff --git a/src/test/X11/mines/Readme.md b/src/test/X11/mines/Readme.md
index 93be7b71..726b9895 100644
--- a/src/test/X11/mines/Readme.md
+++ b/src/test/X11/mines/Readme.md
@@ -1,3 +1,7 @@
+This is a game historycal source taken from http://web.archive.org/web/20050212180221/http://www.vis.inf.ethz.ch/~andy/Oberon.html
+
+It serves as an example of XYplane module useage
+
 Build by typing
 
 # make
diff --git a/src/test/X11/pacman/Readme.md b/src/test/X11/pacman/Readme.md
new file mode 100644
index 00000000..03962383
--- /dev/null
+++ b/src/test/X11/pacman/Readme.md
@@ -0,0 +1,24 @@
+This is a game historycal source taken from http://web.archive.org/web/20050212180221/http://www.vis.inf.ethz.ch/~andy/Oberon.html
+
+It serves as an example of XYplane module usage.
+
+build by typing:
+
+make
+
+run by
+./PacMan
+
+   During the game, the following keys are availiable:
+
+ Player One:
+         q ... move left
+         w ... move right
+         a ... mark field
+ Player Two:
+         o ... move left
+         p ... move right
+         l ... mark field
+ General keys:
+         h ... abort
+
diff --git a/src/test/X11/tetris/Linie.Mod b/src/test/X11/tetris/Linie.Mod
new file mode 100644
index 00000000..7dc3ba8e
--- /dev/null
+++ b/src/test/X11/tetris/Linie.Mod
@@ -0,0 +1,234 @@
+MODULE Linie;
+
+IMPORT XYplane := oocXYplane, In := compatIn;
+
+VAR abbruch: BOOLEAN; 
+Zaehler,Wert1, Wert2, Wert3, Wert4,Wert5, Wert6, Wert7, Wert8,Ende: INTEGER;
+
+(* Version 1.0 / 6.April 96 / Peter Brantschen *)
+
+PROCEDURE Linie*(StartX,StartY,EndeX,EndeY: INTEGER);
+
+VAR i,x,y,LaengeX,LaengeY: INTEGER;
+
+
+BEGIN
+LaengeX:=EndeX-StartX;
+LaengeY:=EndeY-StartY;
+IF LaengeX>=0 THEN
+  IF LaengeY>=0 THEN
+    FOR i:=0 TO LaengeX DO;
+      IF LaengeX#0 THEN 
+        x:=StartX+i;
+        y:=StartY + (i*LaengeY)DIV LaengeX;
+        XYplane.Dot(x,y,1);
+      END;
+    END;
+    FOR i:=0 TO LaengeY DO;
+      IF LaengeY#0 THEN 
+        x:=StartX + (i*LaengeX) DIV LaengeY;
+        y:=StartY + i;
+        XYplane.Dot(x,y,1);
+      END;
+    END;
+  ELSE
+    FOR i:=0 TO LaengeX DO;
+      IF LaengeX#0 THEN 
+        x:=StartX+i;
+        y:=StartY + (i*LaengeY)DIV LaengeX;
+        XYplane.Dot(x,y,1);
+      END;
+    END;
+    FOR i:=LaengeY  TO 0 DO;
+      IF LaengeY#0 THEN 
+        x:=StartX + (i*LaengeX) DIV LaengeY;
+        y:=StartY + i;
+        XYplane.Dot(x,y,1);
+      END;
+    END;
+  END;
+ELSE
+  IF LaengeY>=0 THEN
+    FOR i:=LaengeX TO 0 DO;
+      IF LaengeX#0 THEN 
+        x:=StartX+i;
+        y:=StartY + (i*LaengeY)DIV LaengeX;
+        XYplane.Dot(x,y,1);
+      END;
+    END;
+    FOR i:=0 TO LaengeY DO;
+      IF LaengeY#0 THEN 
+        x:=StartX + (i*LaengeX) DIV LaengeY;
+        y:=StartY + i;
+        XYplane.Dot(x,y,1);
+      END;
+    END;
+  ELSE
+    FOR i:=LaengeX TO 0 DO;
+      IF LaengeX#0 THEN 
+        x:=StartX+i;
+        y:=StartY + (i*LaengeY)DIV LaengeX;
+        XYplane.Dot(x,y,1);
+      END;
+    END;
+    FOR i:=LaengeY  TO 0 DO;
+      IF LaengeY#0 THEN 
+        x:=StartX + (i*LaengeX) DIV LaengeY;
+        y:=StartY + i;
+        XYplane.Dot(x,y,1);
+      END;
+    END;
+  END;
+END;
+
+END Linie;
+
+PROCEDURE LoescheLinie*(StartX,StartY,EndeX,EndeY: INTEGER);
+
+VAR i,x,y,LaengeX,LaengeY: INTEGER;
+
+
+BEGIN
+LaengeX:=EndeX-StartX;
+LaengeY:=EndeY-StartY;
+IF LaengeX>=0 THEN
+  IF LaengeY>=0 THEN
+    FOR i:=0 TO LaengeX DO;
+      IF LaengeX#0 THEN 
+        x:=StartX+i;
+        y:=StartY + (i*LaengeY)DIV LaengeX;
+        XYplane.Dot(x,y,0);
+      END;
+    END;
+    FOR i:=0 TO LaengeY DO;
+      IF LaengeY#0 THEN 
+        x:=StartX + (i*LaengeX) DIV LaengeY;
+        y:=StartY + i;
+        XYplane.Dot(x,y,0);
+      END;
+    END;
+  ELSE
+    FOR i:=0 TO LaengeX DO;
+      IF LaengeX#0 THEN 
+        x:=StartX+i;
+        y:=StartY + (i*LaengeY)DIV LaengeX;
+        XYplane.Dot(x,y,0);
+      END;
+    END;
+    FOR i:=LaengeY  TO 0 DO;
+      IF LaengeY#0 THEN 
+        x:=StartX + (i*LaengeX) DIV LaengeY;
+        y:=StartY + i;
+        XYplane.Dot(x,y,0);
+      END;
+    END;
+  END;
+ELSE
+  IF LaengeY>=0 THEN
+    FOR i:=LaengeX TO 0 DO;
+      IF LaengeX#0 THEN 
+        x:=StartX+i;
+        y:=StartY + (i*LaengeY)DIV LaengeX;
+        XYplane.Dot(x,y,0);
+      END;
+    END;
+    FOR i:=0 TO LaengeY DO;
+      IF LaengeY#0 THEN 
+        x:=StartX + (i*LaengeX) DIV LaengeY;
+        y:=StartY + i;
+        XYplane.Dot(x,y,0);
+      END;
+    END;
+  ELSE
+    FOR i:=LaengeX TO 0 DO;
+      IF LaengeX#0 THEN 
+        x:=StartX+i;
+        y:=StartY + (i*LaengeY)DIV LaengeX;
+        XYplane.Dot(x,y,0);
+      END;
+    END;
+    FOR i:=LaengeY  TO 0 DO;
+      IF LaengeY#0 THEN 
+        x:=StartX + (i*LaengeX) DIV LaengeY;
+        y:=StartY + i;
+        XYplane.Dot(x,y,0);
+      END;
+    END;
+  END;
+END;
+
+END LoescheLinie;
+
+PROCEDURE Linie2(x1,y1,x2,y2: INTEGER);
+
+VAR dx,dy,sx,sy,d,x,y: INTEGER;
+
+BEGIN
+  dx:=ABS(x2-x1); IF (x2-x1)#0 THEN sx:=(x2-x1)DIV ABS(x2-x1); ELSE sx:=0; END;
+  dy:=ABS(y2-y1); IF (y2-y1)#0 THEN sy:=(y2-y1) DIV ABS(y2-y1); ELSE sy:=0; END;
+  d:=2*dy-dx; x:=x1; y:=y1;
+  XYplane.Dot(x,y,1);
+  WHILE x#x2 DO
+    IF (d>0) OR ((d=0)&(sy=1)) THEN 
+      y:=y+sy; d:=d-2*dx; 
+    END;
+    x:=x+sx; d:=d+2*dy;
+    XYplane.Dot(x,y,1);
+  END;
+END Linie2;
+
+
+PROCEDURE Fraktal(x1,y1,x2,y2: INTEGER);
+
+BEGIN;
+IF ~abbruch THEN
+  INC(Zaehler);
+  IF Zaehler>Ende THEN abbruch:=TRUE; END;
+  Linie2(x1,y1,x2,y2);
+  Fraktal(x1+ Wert1,y1+Wert2,x2+Wert3,y2+Wert4);
+END;
+
+END Fraktal;
+
+PROCEDURE Fraktal4Eck(x1,y1,x2,y2,x3,y3,x4,y4: INTEGER);
+
+BEGIN
+IF ~abbruch THEN
+  INC(Zaehler);
+  IF Zaehler>Ende THEN abbruch:=TRUE; END;
+  Linie2(x1,y1,x2,y2);
+  Linie2(x2,y2,x3,y3);
+  Linie2(x3,y3,x4,y4);
+  Linie2(x4,y4,x1,y1);
+  Fraktal4Eck(x1+ Wert1,y1+Wert2,x2+Wert3,y2+Wert4,x3+ Wert5,y3+Wert6,x4+Wert7,y4+Wert8);
+END;
+
+END Fraktal4Eck;
+
+PROCEDURE Start*;
+
+BEGIN
+  XYplane.Open;
+  In.Open;
+  In.Int(Wert1); In.Int(Wert2); In.Int(Wert3); In.Int(Wert4);In.Int(Ende);
+  abbruch:=FALSE;
+  Zaehler:=0;
+  Fraktal(150,150,250,250);
+END Start;
+
+PROCEDURE Start4Eck*;
+
+BEGIN
+  XYplane.Open;
+  In.Open;
+  In.Int(Wert1); In.Int(Wert2); In.Int(Wert3); In.Int(Wert4);
+  In.Int(Wert5); In.Int(Wert6); In.Int(Wert7); In.Int(Wert8);In.Int(Ende);
+  abbruch:=FALSE;
+  Zaehler:=0;
+  Fraktal4Eck(150,150,150,250,250,250,250,150);
+END Start4Eck;
+
+END Linie.
+
+
+  
diff --git a/src/test/X11/tetris/Readme.md b/src/test/X11/tetris/Readme.md
new file mode 100644
index 00000000..4e3d8884
--- /dev/null
+++ b/src/test/X11/tetris/Readme.md
@@ -0,0 +1,14 @@
+
+
+
+     * Start Tetris with Tetris.Start a~
+       a 1 or 2 for One or Two-Player-Modus
+
+   During the game the following keys are availiable:
+
+ General keys:
+         p...Pause
+         q...Quit
+
+   The other keys can be changed by the player.
+
diff --git a/src/test/X11/tetris/Tetris.Mod b/src/test/X11/tetris/Tetris.Mod
new file mode 100644
index 00000000..a3468bd9
--- /dev/null
+++ b/src/test/X11/tetris/Tetris.Mod
@@ -0,0 +1,953 @@
+MODULE Tetris;
+
+(* Peter Brantschen, 15.April 96 , Version 1.1*)
+(* neuste Version vom 12. Dezember 1996, Version 1.2 *)
+(* Neuerungen: Spielparameter sind ueber Konstantendeklariert, Zweispielermodus 
+  bricht bei Limit-Linien ab, Pause-Funktion wurde eingefuehrt *)
+
+IMPORT X:=oocXYplane, L:=Linie, In := compatIn, Out := Console, RN:=ethRandomNumbers, Ziffer, Oberon := Kernel;
+
+CONST 
+
+(* Spielwerte : *)
+
+  Schrittweite=10;
+  Limit=20;
+  ende="q";
+  pause="p";
+  endepause=" ";
+
+(* Werte fuer Verzoegerung:
+
+    Pentium 100: 1 Spieler Modus 25000
+    Pentium 100: 2 Spieler Modus 20000
+*)
+
+  Verzoegerung=2000;
+
+(* Steuerung Spieler 1: *)
+
+  links1="y";
+  rechts1="x";
+  runter1="-";
+  drehunglinks1=".";
+  drehungrechts1=",";
+
+
+(* Steuerung Spieler 2: *)
+
+  links2="4";
+  rechts2="6";
+  runter2="5";
+  drehunglinks2="9";
+  drehungrechts2="7";
+
+
+VAR Feld: ARRAY 32,22 OF BOOLEAN;
+  geaendert1,geaendert2: ARRAY 21 OF BOOLEAN;
+  AnzahlGeaenderteLinien1, AnzahlGeaenderteLinien2: INTEGER;
+  Spielende, fertig1,fertig2, wechsel, Spieler2: BOOLEAN;
+  Punkte1,Punkte2,x1,y1,a1,lage1,x2,y2,a2,lage2,tempo1,tempo2: INTEGER;
+  altkey: CHAR;
+  Linien1, Linien2: INTEGER;
+  level1, level2: INTEGER;
+  Straflinien1, Straflinien2: INTEGER;
+
+PROCEDURE Spielfeldzeichnen;
+
+CONST Bildschirmbreite=800; Bildschirmhoehe=600;
+
+VAR x,y,i: INTEGER;
+
+BEGIN;
+  X.Open; 
+  L.Linie(50,50,150,50); L.Linie(50,30,50,250); L.Linie(150,30,150,250);
+  L.Linie(50,30,150,30); L.Linie(50,40,150,40);
+  L.Linie(180,180,180,220); L.Linie(180,220,220,220);L.Linie(220,220,220,180); L.Linie(220,180,180,180);
+  IF Spieler2 THEN L.Linie(250,50,350,50); L.Linie(250,30,250,250); L.Linie(350,30,350,250);
+    L.Linie(250,30,350,30); L.Linie(250,40,350,40); END;
+  FOR x:=1 TO 31 DO;
+    FOR y:=1 TO 21 DO;
+      Feld[x,y]:=FALSE;
+    END;
+  END;
+  FOR i:=0 TO 21 DO;
+    Feld[0,i]:=TRUE;
+    Feld[11,i]:=TRUE;
+    Feld[20,i]:=TRUE;
+    Feld[31,i]:=TRUE;
+  END;
+  FOR i:=1 TO 31 DO;
+    Feld[i,0]:=TRUE;
+  END;
+  FOR i:=0 TO 20 DO;
+    geaendert1[i]:=FALSE;
+    geaendert2[i]:=FALSE;
+  END;
+  X.Dot(2,2,1);X.Dot(3,2,1); X.Dot(4,2,1); X.Dot(6,2,1);X.Dot(8,2,1); X.Dot(9,2,1); X.Dot(10,2,1); X.Dot(14,2,1); 
+  X.Dot(19,2,1);X.Dot(20,2,1); X.Dot(21,2,1); X.Dot(23,2,1); X.Dot(24,2,1); X.Dot(25,2,1);
+  X.Dot(3,3,1);X.Dot(6,3,1); X.Dot(8,3,1); X.Dot(9,3,1);X.Dot(11,3,1); X.Dot(14,3,1); X.Dot(21,3,1); X.Dot(23,3,1); 
+  X.Dot(25,3,1);
+  X.Dot(3,4,1);X.Dot(6,4,1); X.Dot(7,4,1); X.Dot(8,4,1);X.Dot(9,4,1); X.Dot(11,4,1); X.Dot(14,4,1); 
+  X.Dot(19,4,1);X.Dot(20,4,1); X.Dot(21,4,1); X.Dot(23,4,1); X.Dot(24,4,1); X.Dot(25,4,1);
+  X.Dot(3,5,1);X.Dot(6,5,1); X.Dot(7,5,1); X.Dot(8,5,1);X.Dot(9,5,1); X.Dot(11,5,1); X.Dot(13,5,1); X.Dot(15,5,1);
+  X.Dot(19,5,1);X.Dot(21,5,1); X.Dot(23,5,1); 
+  X.Dot(2,6,1);X.Dot(3,6,1); X.Dot(4,6,1); X.Dot(6,6,1);X.Dot(8,6,1); X.Dot(9,6,1); X.Dot(10,6,1); X.Dot(13,6,1); 
+  X.Dot(15,6,1); X.Dot(17,6,1); X.Dot(19,6,1);X.Dot(20,6,1); X.Dot(21,6,1); X.Dot(23,6,1); X.Dot(24,6,1); X.Dot(25,6,1);
+
+END Spielfeldzeichnen;
+
+PROCEDURE FuelleFeld(i,j: INTEGER);
+
+VAR x,y: INTEGER;
+
+BEGIN
+  FOR x:=1 TO 9 DO;
+    L.Linie(40+10*i+x,41+10*j,40+10*i+x,49+10*j);
+  END;
+END FuelleFeld;
+
+PROCEDURE LoescheFeld(i,j: INTEGER);
+
+VAR x,y: INTEGER;
+
+BEGIN
+  FOR x:=1 TO 9 DO;
+    L.LoescheLinie(40+10*i+x,41+10*j,40+10*i+x,49+10*j);
+  END;
+END LoescheFeld;
+
+PROCEDURE IstFeld(i,j: INTEGER):BOOLEAN;
+
+BEGIN;
+  RETURN X.IsDot(45+10*i,45+10*j);
+END IstFeld;
+
+PROCEDURE MaleVorschau;
+
+VAR i,j: INTEGER;
+
+BEGIN;
+  FOR i:=13 TO 18 DO;
+    FOR j:=13 TO 18 DO;
+      IF Feld[i,j] THEN
+        IF ~IstFeld(i,j) THEN FuelleFeld(i,j); END;
+      ELSE
+        IF IstFeld(i,j) THEN LoescheFeld(i,j); END;
+      END;
+    END;
+  END;
+END MaleVorschau;
+
+
+PROCEDURE Malen1;
+
+VAR i,j: INTEGER;
+
+BEGIN;
+  FOR i:=1 TO 10 DO;
+    FOR j:=1 TO 20 DO;
+      IF Feld[i,j] THEN
+        IF ~IstFeld(i,j) THEN FuelleFeld(i,j); END;
+      ELSE
+        IF IstFeld(i,j) THEN LoescheFeld(i,j); END;
+      END;
+    END;
+  END;
+END Malen1;
+
+PROCEDURE Malen2;
+
+VAR i,j: INTEGER;
+
+BEGIN;
+  FOR i:=21 TO 30 DO;
+    FOR j:=1 TO 20 DO;
+      IF Feld[i,j] THEN
+        IF ~IstFeld(i,j) THEN FuelleFeld(i,j); END;
+      ELSE
+        IF IstFeld(i,j) THEN LoescheFeld(i,j); END;
+      END;
+    END;
+  END;
+END Malen2;
+
+PROCEDURE LoescheLinien1;
+
+VAR i,j,h,k,Zaehler: INTEGER;
+
+BEGIN;
+INC(Linien1,AnzahlGeaenderteLinien1);
+level1:=(Linien1 + Schrittweite) DIV Schrittweite;
+Punkte1:=Punkte1+level1*AnzahlGeaenderteLinien1*AnzahlGeaenderteLinien1*50;
+FOR i:=1 TO AnzahlGeaenderteLinien1 DO
+  j:=1;
+  WHILE j<19 DO
+    WHILE ~geaendert1[j] DO INC(j); END;
+    IF geaendert1[j] THEN 
+      FOR h:=j TO 19 DO
+        FOR k:=1 TO 10 DO;
+          Feld[k,h]:=Feld[k,h+1];
+        END;
+        geaendert1[h]:=geaendert1[h+1];
+      END;
+      Malen1;
+      j:=22;
+    END;
+  END;
+END;
+END LoescheLinien1;
+
+PROCEDURE LoescheLinien2;
+
+VAR i,j,h,k,Zaehler: INTEGER;
+
+BEGIN;
+INC(Linien2,AnzahlGeaenderteLinien2);
+level2:=(Linien2 + Schrittweite) DIV Schrittweite;
+Punkte2:=Punkte2+level2*AnzahlGeaenderteLinien2*AnzahlGeaenderteLinien2*50;
+FOR i:=1 TO AnzahlGeaenderteLinien2 DO
+  j:=1;
+  WHILE j<19 DO
+    WHILE ~geaendert2[j] DO INC(j); END;
+    IF geaendert2[j] THEN 
+      FOR h:=j TO 19 DO
+        FOR k:=21 TO 30 DO;
+          Feld[k,h]:=Feld[k,h+1];
+        END;
+        geaendert2[h]:=geaendert2[h+1];
+      END;
+      Malen2;
+      j:=22;
+    END;
+  END;
+END;
+END LoescheLinien2;
+
+PROCEDURE Kontrolle;
+
+VAR i,j:  INTEGER; Zustand1, Zustand2:BOOLEAN;
+
+BEGIN;
+
+AnzahlGeaenderteLinien1:=0;AnzahlGeaenderteLinien2:=0;
+FOR i:=1 TO 20 DO
+  Zustand1:=TRUE; Zustand2:=TRUE;
+  FOR j:=1 TO 10 DO
+    Zustand1:=Zustand1&Feld[j,i]
+  END;
+  IF Zustand1 THEN INC(AnzahlGeaenderteLinien1);geaendert1[i]:=TRUE; ELSE geaendert1[i]:=FALSE;END;
+  FOR j:=21 TO 30 DO
+    Zustand2:=Zustand2&Feld[j,i]
+  END;
+  IF Zustand2 THEN INC(AnzahlGeaenderteLinien2);geaendert2[i]:=TRUE; ELSE geaendert2[i]:=FALSE;END;
+END;
+IF Spieler2 THEN
+  IF AnzahlGeaenderteLinien1 > 1 THEN
+    IF AnzahlGeaenderteLinien1=2 THEN Straflinien2:=1; 
+    ELSIF AnzahlGeaenderteLinien1=3 THEN Straflinien2:=2; 
+    ELSIF AnzahlGeaenderteLinien1=4 THEN Straflinien2:=4;
+    END;
+  END;
+  IF AnzahlGeaenderteLinien2 > 1 THEN
+    IF AnzahlGeaenderteLinien2=2 THEN Straflinien1:=1; 
+    ELSIF AnzahlGeaenderteLinien2=3 THEN Straflinien1:=2; 
+    ELSIF AnzahlGeaenderteLinien2=4 THEN Straflinien1:=4;
+    END;
+  END;
+END;
+
+END Kontrolle;
+
+PROCEDURE LoescheTeil(a,lage: INTEGER; VAR x,y: INTEGER);
+
+VAR i,j: INTEGER;
+
+BEGIN
+IF a=1 THEN
+  FOR i:=0 TO 1 DO;
+    FOR j:=0 TO 1 DO;
+      Feld[x+i,y+j]:=FALSE
+    END;
+  END;
+ELSIF a=2 THEN
+  IF (lage=1)OR(lage=3) THEN
+    FOR i:=0 TO 3 DO;
+      Feld[x-1+i,y]:=FALSE;
+    END;
+  ELSE 
+    FOR i:=0 TO 3 DO;
+      Feld[x,y-1+i]:=FALSE;
+    END;
+  END;
+ELSIF a=3 THEN
+  IF lage=1 THEN
+    Feld[x-1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x,y+1]:=FALSE;
+  ELSIF lage=2 THEN
+    Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x,y+1]:=FALSE;
+  ELSIF lage=3 THEN
+    Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y]:=FALSE;
+  ELSIF lage=4 THEN
+    Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x,y+1]:=FALSE;Feld[x-1,y]:=FALSE;
+  END;
+ELSIF a=4 THEN
+  IF lage=1 THEN
+    Feld[x-1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x+1,y+1]:=FALSE;
+  ELSIF lage=2 THEN
+    Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y-1]:=FALSE;Feld[x,y+1]:=FALSE;
+  ELSIF lage=3 THEN
+    Feld[x-1,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y]:=FALSE;
+  ELSIF lage=4 THEN
+    Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x,y+1]:=FALSE;Feld[x-1,y+1]:=FALSE;
+  END;
+ELSIF a=5 THEN
+  IF lage=1 THEN
+    Feld[x-1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y+1]:=FALSE;
+  ELSIF lage=2 THEN
+    Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y+1]:=FALSE;Feld[x,y+1]:=FALSE;
+  ELSIF lage=3 THEN
+    Feld[x+1,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y]:=FALSE;
+  ELSIF lage=4 THEN
+    Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x,y+1]:=FALSE;Feld[x-1,y-1]:=FALSE;
+  END;
+ELSIF a=6 THEN
+  IF (lage=1) OR (lage=3)  THEN
+    Feld[x-1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x,y+1]:=FALSE;Feld[x+1,y+1]:=FALSE;
+  ELSIF (lage=2) OR (lage= 4 )THEN
+    Feld[x+1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y-1]:=FALSE; Feld[x,y+1]:=FALSE;
+  END;
+ELSIF a=7 THEN
+  IF (lage=1) OR (lage=3) THEN
+    Feld[x,y+1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y+1]:=FALSE;
+  ELSIF (lage=2) OR (lage=4) THEN
+    Feld[x,y+1]:=FALSE;Feld[x,y]:=FALSE; Feld[x-1,y-1]:=FALSE;Feld[x-1,y]:=FALSE;
+  END;
+
+END;
+END LoescheTeil;
+
+PROCEDURE ZeichneTeil(a,lage: INTEGER; VAR x,y: INTEGER);
+
+VAR i,j: INTEGER;
+
+BEGIN;
+IF a=1 THEN
+  FOR i:=0 TO 1 DO;
+    FOR j:=0 TO 1 DO;
+      Feld[x+i,y+j]:=TRUE
+    END;
+  END;
+ELSIF a=2 THEN
+  IF (lage=1)OR(lage=3) THEN
+    FOR i:=0 TO 3 DO;
+      Feld[x-1+i,y]:=TRUE;
+    END;
+  ELSE 
+    FOR i:=0 TO 3 DO;
+      Feld[x,y-1+i]:=TRUE;
+    END;
+  END;
+ELSIF a=3 THEN
+  IF lage=1 THEN
+    Feld[x-1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x,y+1]:=TRUE;
+  ELSIF lage=2 THEN
+    Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x,y+1]:=TRUE;
+  ELSIF lage=3 THEN
+    Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y]:=TRUE;
+  ELSIF lage=4 THEN
+    Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x,y+1]:=TRUE;Feld[x-1,y]:=TRUE;
+  END;
+ELSIF a=4 THEN
+  IF lage=1 THEN
+    Feld[x-1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x+1,y+1]:=TRUE;
+  ELSIF lage=2 THEN
+    Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y-1]:=TRUE; Feld[x,y+1]:=TRUE;
+  ELSIF lage=3 THEN
+    Feld[x-1,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y]:=TRUE;
+  ELSIF lage=4 THEN
+    Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x,y+1]:=TRUE;Feld[x-1,y+1]:=TRUE;
+  END;
+ELSIF a=5 THEN
+  IF lage=1 THEN
+    Feld[x-1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y+1]:=TRUE;
+  ELSIF lage=2 THEN
+    Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y+1]:=TRUE;Feld[x,y+1]:=TRUE;
+  ELSIF lage=3 THEN
+    Feld[x+1,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y]:=TRUE;
+  ELSIF lage=4 THEN
+    Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x,y+1]:=TRUE;Feld[x-1,y-1]:=TRUE;
+  END;
+ELSIF a=6 THEN
+  IF (lage=1) OR (lage=3)  THEN
+    Feld[x-1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x,y+1]:=TRUE;Feld[x+1,y+1]:=TRUE;
+  ELSIF (lage=2) OR (lage= 4 )THEN
+    Feld[x+1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y-1]:=TRUE; Feld[x,y+1]:=TRUE;
+  END;
+ELSIF a=7 THEN
+  IF (lage=1) OR (lage=3) THEN
+    Feld[x,y+1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y+1]:=TRUE;
+  ELSIF (lage=2) OR (lage=4) THEN
+    Feld[x,y+1]:=TRUE;Feld[x,y]:=TRUE; Feld[x-1,y-1]:=TRUE;Feld[x-1,y]:=TRUE;
+  END;
+END;
+END ZeichneTeil;
+
+PROCEDURE HilfeLinks;
+
+BEGIN
+  wechsel:=TRUE; altkey:=",";
+END HilfeLinks;
+
+PROCEDURE KontrolleLinks(a,lage: INTEGER; VAR x,y: INTEGER);
+
+VAR hilfe1, hilfe2: BOOLEAN;
+
+BEGIN
+  IF a=1 THEN
+    IF (~Feld[x-1,y])&(~Feld[x-1,y+1]) THEN DEC(x); 
+    ELSIF ~(x<2) THEN HilfeLinks;END;
+  ELSIF a=2 THEN
+    IF (lage=1) OR (lage=3) THEN
+      IF (~Feld[x-2,y]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSE
+      hilfe1:=(~Feld[x-1,y-1])&(~Feld[x-1,y]); hilfe2:=(~Feld[x-1,y+1])&(~Feld[x-1,y+2]);
+      IF hilfe1&hilfe2 THEN DEC(x);
+      ELSIF ~(x<2) THEN HilfeLinks; END;
+    END;
+  ELSIF a=3 THEN
+    IF lage=1 THEN
+      IF (~Feld[x-2,y]&~Feld[x-1,y+1]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSIF lage=2 THEN
+      hilfe1:=(~Feld[x-1,y]&~Feld[x-1,y+1]);
+      IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
+      ELSIF ~(x<2) THEN HilfeLinks; END;
+    ELSIF lage=3 THEN
+      IF (~Feld[x-2,y]&~Feld[x-1,y-1]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSIF lage=4 THEN
+      hilfe1:=(~Feld[x-2,y]&~Feld[x-1,y+1]);
+      IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    END;
+  ELSIF a=4 THEN
+    IF lage=1 THEN
+      IF (~Feld[x-2,y]&~Feld[x,y+1]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSIF lage=2 THEN
+      hilfe1:=(~Feld[x-1,y]&~Feld[x-1,y+1]);
+      IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
+      ELSIF ~(x<2) THEN HilfeLinks; END;
+    ELSIF lage=3 THEN
+      IF (~Feld[x-2,y]&~Feld[x-2,y-1]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSIF lage=4 THEN
+      hilfe1:=(~Feld[x-2,y+1]&~Feld[x-1,y]);
+      IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    END;
+  ELSIF a=5 THEN
+    IF lage=1 THEN
+      IF (~Feld[x-2,y]&~Feld[x-2,y+1]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSIF lage=2 THEN
+      hilfe1:=(~Feld[x-1,y]&~Feld[x-1,y+1]);
+      IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
+      ELSIF ~(x<2) THEN HilfeLinks; END;
+    ELSIF lage=3 THEN
+      IF (~Feld[x-2,y]&~Feld[x,y-1]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSIF lage=4 THEN
+      hilfe1:=(~Feld[x-1,y+1]&~Feld[x-1,y]);
+      IF hilfe1 & ~Feld[x-2,y-1] THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    END;
+  ELSIF a=6 THEN
+    IF (lage=1) OR (lage=3) THEN
+      IF (~Feld[x-2,y])&(~Feld[x-1,y+1]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSE
+      hilfe1:=(~Feld[x,y-1])&(~Feld[x-1,y]); hilfe2:=(~Feld[x-1,y+1]);
+      IF hilfe1&hilfe2 THEN DEC(x);
+      ELSIF ~(x<2) THEN HilfeLinks; END;
+    END;
+  ELSIF a=7 THEN
+    IF (lage=1) OR (lage=3) THEN
+      IF (~Feld[x-1,y])&(~Feld[x-2,y+1]) THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    ELSE
+      hilfe1:=(~Feld[x-2,y-1])&(~Feld[x-2,y]); hilfe2:=(~Feld[x-1,y+1]);
+      IF hilfe1&hilfe2 THEN DEC(x);
+      ELSIF ~(x<3) THEN HilfeLinks; END;
+    END;
+  END;
+END KontrolleLinks;
+
+PROCEDURE HilfeRechts;
+
+BEGIN
+  wechsel:=TRUE; altkey:=".";
+END HilfeRechts;
+
+PROCEDURE KontrolleRechts(a,lage: INTEGER; VAR x,y: INTEGER);
+
+VAR hilfe1, hilfe2: BOOLEAN;
+
+BEGIN
+  IF a=1 THEN
+    IF (~Feld[x+2,y])&(~Feld[x+2,y+1])THEN INC(x); 
+    ELSIF~(x>8) THEN HilfeRechts; END;
+  ELSIF a=2 THEN
+    IF (lage=1) OR (lage=3) THEN
+      IF (~Feld[x+3,y]) THEN INC(x);
+      ELSIF ~(x>7) THEN HilfeRechts; END;
+    ELSE
+      hilfe1:=(~Feld[x+1,y-1])&(~Feld[x+1,y]); hilfe2:=(~Feld[x+1,y+1])&(~Feld[x+1,y+2]);
+      IF hilfe1&hilfe2 THEN INC(x);
+      ELSIF ~(x>9) THEN HilfeRechts; END;
+    END;
+  ELSIF a=3 THEN
+    IF lage=1 THEN
+      IF (~Feld[x+2,y]&~Feld[x+1,y+1]) THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=2 THEN
+      hilfe1:=(~Feld[x+2,y]&~Feld[x+1,y+1]);
+      IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=3 THEN
+      IF (~Feld[x+2,y]&~Feld[x+1,y-1]) THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=4 THEN
+      hilfe1:=(~Feld[x+1,y]&~Feld[x+1,y+1]);
+      IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
+      ELSIF ~(x>9) THEN HilfeRechts; END;
+    END;
+  ELSIF a=4 THEN
+    IF lage=1 THEN
+      IF (~Feld[x+2,y]&~Feld[x+2,y+1]) THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=2 THEN
+      hilfe1:=(~Feld[x+1,y]&~Feld[x+1,y+1]);
+      IF hilfe1 & ~Feld[x+2,y-1] THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=3 THEN
+      IF (~Feld[x+2,y]&~Feld[x,y-1]) THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=4 THEN
+      hilfe1:=(~Feld[x+1,y]&~Feld[x+1,y+1]);
+      IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
+      ELSIF ~(x>9) THEN HilfeRechts; END;
+    END;
+  ELSIF a=5 THEN
+    IF lage=1 THEN
+      IF (~Feld[x+2,y]&~Feld[x,y+1]) THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=2 THEN
+      hilfe1:=(~Feld[x+1,y]&~Feld[x+2,y+1]);
+      IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=3 THEN
+      IF (~Feld[x+2,y]&~Feld[x+2,y-1]) THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSIF lage=4 THEN
+      hilfe1:=(~Feld[x+1,y]&~Feld[x+1,y+1]);
+      IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
+      ELSIF ~(x>9) THEN HilfeRechts; END;
+    END;
+  ELSIF a=6 THEN
+    IF (lage=1) OR (lage=3) THEN
+      IF (~Feld[x+1,y])&(~Feld[x+2,y+1]) THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSE
+      hilfe1:=(~Feld[x+2,y-1])&(~Feld[x+2,y]); hilfe2:=(~Feld[x+1,y+1]);
+      IF hilfe1&hilfe2 THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    END;
+  ELSIF a=7 THEN
+    IF (lage=1) OR (lage=3) THEN
+      IF (~Feld[x+2,y])&(~Feld[x+1,y+1]) THEN INC(x);
+      ELSIF ~(x>8) THEN HilfeRechts; END;
+    ELSE
+      hilfe1:=(~Feld[x,y-1])&(~Feld[x+1,y]); hilfe2:=(~Feld[x+1,y+1]);
+      IF hilfe1&hilfe2 THEN INC(x);
+      ELSIF ~(x>9) THEN HilfeRechts; END;
+    END;
+  END;
+END KontrolleRechts;
+
+PROCEDURE HilfeUnten(x,y: INTEGER);
+
+BEGIN;
+  IF y=19 THEN Spielende:=TRUE END;
+  IF x<11 THEN fertig1:=TRUE; ELSE fertig2:=TRUE END;
+END HilfeUnten;
+
+PROCEDURE KontrolleUnten(a,lage,x,y: INTEGER);
+
+VAR hilfe1, hilfe2: BOOLEAN;
+
+BEGIN
+  IF y>1 THEN
+  IF a=1 THEN
+    IF Feld[x,y-1] OR Feld[x+1,y-1] THEN HilfeUnten(x,y) END;
+  ELSIF a=2 THEN
+    IF (lage=1) OR (lage=3) THEN
+      hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1] OR Feld[x+2,y-1];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSE
+      IF Feld[x,y-2] THEN HilfeUnten(x,y) END;
+    END;
+  ELSIF a=3 THEN
+    IF lage=1 THEN
+      hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSIF lage=2 THEN
+      IF Feld[x,y-2] OR Feld[x+1,y-1] THEN HilfeUnten(x,y) END;
+    ELSIF lage=3 THEN
+      hilfe1:=Feld[x-1,y-1] OR Feld[x,y-2]; hilfe2:=Feld[x+1,y-1];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSIF lage=4 THEN
+      IF Feld[x,y-2] OR Feld[x-1,y-1] THEN HilfeUnten(x,y) END;
+    END;
+  ELSIF a=4 THEN
+    IF lage=1 THEN
+      hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSIF lage=2 THEN
+      IF Feld[x,y-2] OR Feld[x+1,y-2] THEN HilfeUnten(x,y) END;
+    ELSIF lage=3 THEN
+      hilfe1:=Feld[x-1,y-2] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSIF lage=4 THEN
+      IF Feld[x,y-2] OR Feld[x-1,y] THEN HilfeUnten(x,y) END;
+    END;
+  ELSIF a=5 THEN
+    IF lage=1 THEN
+      hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSIF lage=2 THEN
+      IF Feld[x,y-2] OR Feld[x+1,y] THEN HilfeUnten(x,y) END;
+    ELSIF lage=3 THEN
+      hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-2];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSIF lage=4 THEN
+      IF Feld[x,y-2] OR Feld[x-1,y-2] THEN HilfeUnten(x,y) END;
+    END;
+  ELSIF a=6 THEN
+    IF (lage=1) OR (lage=3) THEN
+      hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSE
+      IF Feld[x,y-1] OR Feld[x+1,y-2] THEN HilfeUnten(x,y) END;
+    END;
+  ELSIF a=7 THEN
+    IF (lage=1) OR (lage=3) THEN
+      hilfe1:=Feld[x-1,y] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
+      IF  hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
+    ELSE
+      IF Feld[x,y-1] OR Feld[x-1,y-2] THEN HilfeUnten(x,y) END;
+    END;
+  END;
+  ELSE HilfeUnten(x,y); END;
+END KontrolleUnten;
+
+PROCEDURE DrehungLinks(VAR a,lage,x,y: INTEGER):BOOLEAN;
+
+VAR hilfe1: BOOLEAN;
+
+BEGIN;
+  IF a=2 THEN
+    IF lage DIV 2 # 0 THEN
+      hilfe1:=~Feld[x-1,y]&~Feld[x+1,y];
+      RETURN ~Feld[x+2,y]&hilfe1 ;
+    ELSE
+      hilfe1:=~Feld[x,y-1]&~Feld[x,y+1];
+      RETURN ~Feld[x,y+2]&hilfe1 ;
+    END;
+  ELSIF a=3 THEN
+    IF lage=1 THEN RETURN ~Feld[x,y-1];
+    ELSIF lage=2 THEN RETURN ~Feld[x-1,y];
+    ELSIF lage=3 THEN RETURN ~Feld[x,y+1];
+    ELSIF lage=4 THEN RETURN ~Feld[x+1,y];
+    END;
+  ELSIF a=4 THEN
+    IF lage=1 THEN 
+      hilfe1:=~Feld[x+1,y-1]&~Feld[x,y-1];
+      RETURN hilfe1&~Feld[x,y+1]; 
+    ELSIF lage=2 THEN 
+      hilfe1:=~Feld[x+1,y]&~Feld[x-1,y-1];
+      RETURN hilfe1&~Feld[x-1,y];
+    ELSIF lage=3 THEN
+      hilfe1:=~Feld[x-1,y+1]&~Feld[x,y-1];
+      RETURN hilfe1&~Feld[x,y+1];
+    ELSIF lage=4 THEN
+      hilfe1:=~Feld[x+1,y]&~Feld[x+1,y+1];
+      RETURN hilfe1&~Feld[x-1,y];
+    END;
+  ELSIF a=5 THEN
+    IF lage=1 THEN 
+      hilfe1:=~Feld[x+1,y+1]&~Feld[x,y-1];
+      RETURN hilfe1&~Feld[x,y+1]; 
+    ELSIF lage=2 THEN 
+      hilfe1:=~Feld[x+1,y]&~Feld[x+1,y-1];
+      RETURN hilfe1&~Feld[x-1,y];
+    ELSIF lage=3 THEN
+      hilfe1:=~Feld[x-1,y-1]&~Feld[x,y-1];
+      RETURN hilfe1&~Feld[x,y+1];
+    ELSIF lage=4 THEN
+      hilfe1:=~Feld[x+1,y]&~Feld[x-1,y+1];
+      RETURN hilfe1&~Feld[x-1,y];
+    END;
+  END;
+  RETURN TRUE;
+END DrehungLinks;
+
+PROCEDURE DrehungRechts(VAR a,lage,x,y: INTEGER):BOOLEAN;
+
+VAR hilfe1: BOOLEAN;
+
+BEGIN
+  IF a=2 THEN
+    IF lage DIV 2 # 0 THEN
+      hilfe1:=~Feld[x-1,y]&~Feld[x+1,y];
+      RETURN ~Feld[x+2,y]&hilfe1 ;
+    ELSE
+      hilfe1:=~Feld[x,y-1]&~Feld[x,y+1];
+      RETURN ~Feld[x,y+2]&hilfe1 ;
+    END;
+  ELSIF a=3 THEN
+    IF lage=3 THEN RETURN ~Feld[x,y-1];
+    ELSIF lage=2 THEN RETURN ~Feld[x-1,y];
+    ELSIF lage=1 THEN RETURN ~Feld[x,y+1];
+    ELSIF lage=4 THEN RETURN ~Feld[x+1,y];
+    END;
+  ELSIF a=4 THEN
+    IF lage=3 THEN 
+      hilfe1:=~Feld[x+1,y-1]&~Feld[x,y-1];
+      RETURN hilfe1&~Feld[x,y+1]; 
+    ELSIF lage=4 THEN 
+      hilfe1:=~Feld[x+1,y]&~Feld[x-1,y-1];
+      RETURN hilfe1&~Feld[x-1,y];
+    ELSIF lage=1 THEN
+      hilfe1:=~Feld[x-1,y+1]&~Feld[x,y-1];
+      RETURN hilfe1&~Feld[x,y+1];
+    ELSIF lage=2 THEN
+      hilfe1:=~Feld[x+1,y]&~Feld[x+1,y+1];
+      RETURN hilfe1&~Feld[x-1,y];
+    END;
+  ELSIF a=5 THEN
+    IF lage=3 THEN 
+      hilfe1:=~Feld[x+1,y+1]&~Feld[x,y-1];
+      RETURN hilfe1&~Feld[x,y+1]; 
+    ELSIF lage=4 THEN 
+      hilfe1:=~Feld[x+1,y]&~Feld[x+1,y-1];
+      RETURN hilfe1&~Feld[x-1,y];
+    ELSIF lage=1 THEN
+      hilfe1:=~Feld[x-1,y-1]&~Feld[x,y-1];
+      RETURN hilfe1&~Feld[x,y+1];
+    ELSIF lage=2 THEN
+      hilfe1:=~Feld[x+1,y]&~Feld[x-1,y+1];
+      RETURN hilfe1&~Feld[x-1,y];
+    END;
+  ELSIF a=6 THEN
+    IF (lage=1) OR (lage=3) THEN
+      RETURN ~Feld[x+1,y-1]&~Feld[x+1,y]; 
+    ELSE
+      RETURN ~Feld[x+1,y+1]&~Feld[x-1,y];
+    END;
+  ELSIF a=7 THEN
+    IF (lage=1) OR (lage=3) THEN
+      RETURN ~Feld[x-1,y-1]&~Feld[x-1,y]; 
+    ELSE
+      RETURN ~Feld[x-1,y+1]&~Feld[x+1,y];
+    END;
+  END;
+  RETURN TRUE;
+END DrehungRechts;
+
+PROCEDURE Strafen1;
+
+VAR Hoehe,i,j,freiesFeld: INTEGER;
+
+BEGIN
+  IF Straflinien1#0 THEN
+    Hoehe:=20-Straflinien1;
+    WHILE Hoehe>=1 DO
+      FOR i:=1 TO 10 DO;
+        Feld[i,Hoehe+Straflinien1]:=Feld[i,Hoehe];
+      END;
+      DEC(Hoehe);
+    END; 
+    FOR i:=1 TO Straflinien1 DO;
+      FOR j:=1 TO 10 DO;
+        Feld[j,i]:=TRUE;
+      END;
+      freiesFeld:=0;
+      WHILE freiesFeld=0 DO freiesFeld:=SHORT(ENTIER(10*RN.Uniform())); END;
+      Feld[freiesFeld,i]:=FALSE;
+    END;
+  Straflinien1:=0;
+  END;
+END Strafen1;
+
+PROCEDURE Strafen2;
+
+VAR Hoehe,i,j,freiesFeld: INTEGER;
+
+BEGIN
+  IF Straflinien2#0 THEN
+    Hoehe:=20-Straflinien2;
+    WHILE Hoehe>=1 DO
+      FOR i:=21 TO 30 DO;
+        Feld[i,Hoehe+Straflinien2]:=Feld[i,Hoehe];
+      END;
+      DEC(Hoehe);
+    END; 
+    FOR i:=1 TO Straflinien2 DO;
+      FOR j:=21 TO 30 DO;
+        Feld[j,i]:=TRUE;
+      END;
+      freiesFeld:=0;
+      WHILE freiesFeld=0 DO freiesFeld:=SHORT(ENTIER(10*RN.Uniform())); END;
+      Feld[20+freiesFeld,i]:=FALSE;
+    END;
+  Straflinien2:=0;
+  END;
+END Strafen2;
+
+PROCEDURE Spiel;
+
+VAR i,j,k,Zaehler: INTEGER; key: CHAR; hilfe1,hilfe2: BOOLEAN;next,altnext,OrtX, OrtY: INTEGER;
+
+BEGIN;
+  WHILE ~Spielende DO
+  IF y1=0 THEN 
+    IF y2=0 THEN
+      x2:=25; y2:=19;lage2:=1;fertig2:=FALSE; tempo2:=1; a2:=0;
+      a2:=next; 
+    END;
+    x1:=5; y1:=19;lage1:=1; fertig1:=FALSE; tempo1:=1;a1:=0;
+    a1:=next; 
+  ELSE
+    x2:=25; y2:=19;lage2:=1;fertig2:=FALSE; tempo2:=1; a2:=0;
+    IF next=0 THEN a2:=a1; ELSE a2:=next; END;
+  END;
+  next:=0;
+  WHILE next=0 DO next:=SHORT(ENTIER(7*RN.Uniform()+0.5)); END;
+  OrtX:=15; OrtY:=15;
+  LoescheTeil(altnext,1,OrtX,OrtY);
+  ZeichneTeil(next,1,OrtX, OrtY);
+  MaleVorschau;
+  altnext:=next;
+  wechsel:=FALSE; 
+  Ziffer.Zeichne(3,level1,1,0); Ziffer.Zeichne(4,Linien1,7,0);Ziffer.Zeichne(8,Punkte1,3,-1);
+  IF Spieler2 THEN Ziffer.Zeichne(3,level2,21,0); Ziffer.Zeichne(4,Linien2,27,0); 
+    Ziffer.Zeichne(8,Punkte2,23,-1); END;
+  WHILE (y1>0) & (y2>0) DO;
+    IF ~Spieler2 THEN  y2:=7; END;
+    INC(Zaehler);
+    key:=X.Key(); 
+    (* IF wechsel THEN key:=altkey; END; *);
+    IF key=links1 THEN
+      LoescheTeil(a1,lage1,x1,y1);
+      KontrolleLinks(a1,lage1,x1,y1);
+    END;
+    IF key=rechts1 THEN
+      LoescheTeil(a1,lage1,x1,y1);
+      KontrolleRechts(a1,lage1,x1,y1);
+    END;
+    IF Spieler2 THEN
+      IF key=links2 THEN
+        LoescheTeil(a2,lage2,x2,y2);
+        KontrolleLinks(a2,lage2,x2,y2);
+      END;
+      IF key=rechts2 THEN
+        LoescheTeil(a2,lage2,x2,y2);
+        KontrolleRechts(a2,lage2,x2,y2);
+    END; END;
+    hilfe1:=(x1>1)&(x1<10);
+    IF Spieler2 THEN hilfe2:=(x2>21)&(x2<30); END;
+    IF key=drehunglinks1 THEN 
+      IF  hilfe1 & DrehungLinks(a1,lage1,x1,y1) THEN INC(lage1); IF lage1>4 THEN lage1:=1 END; END; END;
+    IF key=drehungrechts1 THEN
+      IF hilfe1 & DrehungRechts(a1,lage1,x1,y1) THEN DEC(lage1); IF lage1<1 THEN lage1:=4 END; END; END;
+    IF Spieler2 THEN
+      IF key=drehunglinks2 THEN 
+        IF  hilfe2 & DrehungLinks(a2,lage2,x2,y2) THEN INC(lage2); IF lage2>4 THEN lage2:=1 END; END; END;
+      IF key=drehungrechts2 THEN
+        IF hilfe2 & DrehungRechts(a2,lage2,x2,y2) THEN DEC(lage2); IF lage2<1 THEN lage2:=4 END; END; END;
+    END;
+    IF key=ende THEN Spielende:=TRUE; END;
+    IF key=runter1 THEN 
+      IF tempo1=8(*Verzoegerung DIV level1*) THEN tempo1:=1 
+        ELSE tempo1:=8(*Verzoegerung DIV level1*); Punkte1:=Punkte1 + level1*y1; END;
+    END;
+    IF Spieler2 THEN IF key=runter2 THEN 
+      IF tempo2=8(*Verzoegerung DIV level2*) THEN tempo2:=1 
+        ELSE tempo2:=8(*Verzoegerung DIV level2*); Punkte2:=Punkte2 + level2*y2;END;
+    END; END;
+    IF Zaehler MOD (Verzoegerung DIV level1 DIV tempo1) = 0 THEN
+      KontrolleUnten(a1,lage1,x1,y1);
+      ZeichneTeil(a1,lage1,x1,y1);
+      Malen1;
+      IF fertig1 THEN Kontrolle; LoescheLinien1; Malen1; Strafen1;  END;
+      IF ~fertig1 THEN
+        LoescheTeil(a1,lage1,x1,y1);
+      END;
+      IF fertig1 THEN y1:=0 ELSE DEC(y1); END;
+    END;
+    IF Spieler2 THEN
+    IF Zaehler MOD (Verzoegerung DIV level2 DIV tempo2) = 0 THEN
+      KontrolleUnten(a2,lage2,x2,y2);
+      ZeichneTeil(a2,lage2,x2,y2);
+      Malen2;
+      IF fertig2 THEN Kontrolle; LoescheLinien2; Malen2; Strafen2; END;
+      IF ~fertig2 THEN
+        LoescheTeil(a2,lage2,x2,y2);
+      END;
+      IF fertig2 THEN y2:=0 ELSE DEC(y2); END;
+    END; 
+    END;
+    IF Spieler2 THEN
+      IF (Linien1>=Limit) OR (Linien2>=Limit) THEN
+        IF Linien2<Limit THEN Out.String("Spieler1 hat gewonnen!"); Spielende:=TRUE;
+        ELSIF Linien1<Limit THEN Out.String("Spieler2 hat gewonnen!"); Spielende:=TRUE;
+        ELSE Out.String("Beide haben gewonnen!"); Spielende:=TRUE;
+        END
+      END;
+    END;
+    IF key=pause THEN
+      REPEAT key:=X.Key() UNTIL key=endepause;
+    END;
+    IF Zaehler=Verzoegerung THEN Zaehler:=0; END;
+  END;
+END;
+END Spiel;
+
+PROCEDURE Start*;
+
+VAR p: INTEGER;
+
+BEGIN
+  In.Open;
+  In.Int(p);
+  IF p=2 THEN Spieler2:=TRUE; ELSE Spieler2:=FALSE; END;
+  Spielfeldzeichnen;
+  RN.InitSeed(Oberon.Time());
+  Spielende:=FALSE; 
+  IF Spieler2 THEN x2:=26; y2:=19;lage2:=1;fertig2:=FALSE; tempo2:=1; a2:=0;
+  WHILE a2=0 DO a2:=SHORT(ENTIER(7*RN.Uniform()+0.5)); END ; END;
+  x1:=5; y1:=19;lage1:=1; fertig1:=FALSE; tempo1:=1;a1:=0;
+  WHILE a1=0 DO a1:=SHORT(ENTIER(7*RN.Uniform()+0.5)); END;
+  wechsel:=FALSE; 
+  Linien1:=0; Linien2:=0; level1:=1; level2:=1; Punkte1:=0; Punkte2:=0;
+  Straflinien1:=0; Straflinien2:=0;
+  Spiel;
+END Start;
+
+BEGIN
+Start
+
+END Tetris.
+
diff --git a/src/test/X11/tetris/Ziffer.Mod b/src/test/X11/tetris/Ziffer.Mod
new file mode 100644
index 00000000..30dcc6d0
--- /dev/null
+++ b/src/test/X11/tetris/Ziffer.Mod
@@ -0,0 +1,134 @@
+MODULE Ziffer;
+
+IMPORT X:=oocXYplane, L:=Linie, In := compatIn, Out := Console, RN:=ethRandomNumbers;
+
+PROCEDURE Loesche*(x,y: INTEGER);
+
+VAR i: INTEGER;
+
+BEGIN
+  FOR i:=1 TO 9 DO;
+    L.LoescheLinie(40+10*x+1,40+10*y+i,40+10*x+9,40+10*y+i);
+  END;
+END Loesche;
+
+PROCEDURE Eins*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+8);
+  L.Linie(40+10*x+6,40+10*y+8,40+10*x+6,40+10*y+2);
+END Eins;
+
+PROCEDURE Zwei*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+6,40+10*y+8);
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
+  L.Linie(40+10*x+3,40+10*y+2,40+10*x+6,40+10*y+2);
+  L.Linie(40+10*x+6,40+10*y+8,40+10*x+6,40+10*y+5);
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+3,40+10*y+2);
+END Zwei;
+
+PROCEDURE Drei*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+6,40+10*y+8);
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
+  L.Linie(40+10*x+3,40+10*y+2,40+10*x+6,40+10*y+2);
+  L.Linie(40+10*x+6,40+10*y+8,40+10*x+6,40+10*y+5);
+  L.Linie(40+10*x+6,40+10*y+5,40+10*x+6,40+10*y+2);
+END Drei;
+
+PROCEDURE Vier*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+5);
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
+  L.Linie(40+10*x+5,40+10*y+7,40+10*x+5,40+10*y+2);
+END Vier;
+
+PROCEDURE Fuenf*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+6,40+10*y+8);
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
+  L.Linie(40+10*x+3,40+10*y+2,40+10*x+6,40+10*y+2);
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+5);
+  L.Linie(40+10*x+6,40+10*y+5,40+10*x+6,40+10*y+2);
+END Fuenf;
+
+PROCEDURE Sechs*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
+  L.Linie(40+10*x+3,40+10*y+2,40+10*x+6,40+10*y+2);
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+2);
+  L.Linie(40+10*x+6,40+10*y+5,40+10*x+6,40+10*y+2);
+END Sechs;
+
+PROCEDURE Sieben*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+7,40+10*y+8);
+  L.Linie(40+10*x+3,40+10*y+2,40+10*x+7,40+10*y+8);
+END Sieben;
+
+PROCEDURE Acht*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+7,40+10*y+8);
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+7,40+10*y+5);
+  L.Linie(40+10*x+3,40+10*y+2,40+10*x+7,40+10*y+2);
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+2);
+  L.Linie(40+10*x+7,40+10*y+8,40+10*x+7,40+10*y+2);
+END Acht;
+
+PROCEDURE Neun*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+7,40+10*y+8);
+  L.Linie(40+10*x+3,40+10*y+5,40+10*x+7,40+10*y+5);
+  L.Linie(40+10*x+3,40+10*y+2,40+10*x+7,40+10*y+2);
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+5);
+  L.Linie(40+10*x+7,40+10*y+8,40+10*x+7,40+10*y+2);
+END Neun;
+
+PROCEDURE Null*(x,y: INTEGER);
+
+BEGIN
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+7,40+10*y+8);
+  L.Linie(40+10*x+3,40+10*y+2,40+10*x+7,40+10*y+2);
+  L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+2);
+  L.Linie(40+10*x+7,40+10*y+8,40+10*x+7,40+10*y+2);
+END Null ;
+
+PROCEDURE Zeichne*(Laenge, Zahl, x,y: INTEGER);
+
+VAR j,a,i,k: INTEGER;
+
+BEGIN;
+  FOR i:=0 TO Laenge-1 DO;
+    Loesche(x+i,y); 
+    a:=1;
+    FOR k:=2 TO Laenge-i DO
+      a:=10*a;
+    END;
+    j:=Zahl DIV a;
+    IF j=0 THEN Null(x+i,y);
+      ELSIF j=1 THEN Eins(x+i,y);
+      ELSIF j=2 THEN Zwei(x+i,y);
+      ELSIF j=3 THEN Drei(x+i,y);
+      ELSIF j=4 THEN Vier(x+i,y);
+      ELSIF j=5 THEN Fuenf(x+i,y);
+      ELSIF j=6 THEN Sechs(x+i,y);
+      ELSIF j=7 THEN Sieben(x+i,y);
+      ELSIF j=8 THEN Acht(x+i,y);
+      ELSIF j=9 THEN Neun(x+i,y);
+    END;
+    Zahl:=Zahl - j*a;
+  END;
+END Zeichne;
+
+END Ziffer.
+
+
diff --git a/src/test/X11/tetris/makefile b/src/test/X11/tetris/makefile
new file mode 100644
index 00000000..3bc59057
--- /dev/null
+++ b/src/test/X11/tetris/makefile
@@ -0,0 +1,17 @@
+#for old systems like RHEL4 use
+#CFLAGS=-L/usr/X11R6/lib -lX11
+CFLAGS=-lX11
+export CFLAGS
+
+VOC = $(SETPATH) /opt/voc/bin/voc
+
+all:
+	$(VOC) -s Linie.Mod Ziffer.Mod Tetris.Mod -m
+	#$(VOC) -Cm test.Mod
+	#gcc -o test  test.o -fPIC -g -I /opt/voc-1.0/src/lib/system/gnuc/x86_64 -I /opt/voc-1.0/lib/voc/obj -lVishapOberon -L. -L/opt/voc-1.0/lib -lX11
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.sym
+	rm *.o