diff --git a/src/test/X11/makefile b/src/test/X11/0/makefile
similarity index 100%
rename from src/test/X11/makefile
rename to src/test/X11/0/makefile
diff --git a/src/test/X11/test.Mod b/src/test/X11/0/test.Mod
similarity index 100%
rename from src/test/X11/test.Mod
rename to src/test/X11/0/test.Mod
diff --git a/src/test/X11/pacman/Grafik.Mod b/src/test/X11/pacman/Grafik.Mod
new file mode 100644
index 00000000..46325ac2
--- /dev/null
+++ b/src/test/X11/pacman/Grafik.Mod
@@ -0,0 +1,442 @@
+MODULE Grafik;
+(*enthƒlt verschiedene Grafik-Befehle*)
+
+IMPORT XYplane := oocXYplane,Out := Console;
+
+TYPE sprite*=ARRAY 10,10 OF BOOLEAN;
+
+VAR zahlen*:ARRAY 10 OF sprite;
+  buchstaben*:ARRAY 27 OF sprite;
+  satzzeichen*:ARRAY 2 OF sprite;
+
+PROCEDURE Linie*(StartX,StartY,EndeX,EndeY:INTEGER);
+VAR LaengeX,LaengeY,PunktX,PunktY,hilfe,zaehler:INTEGER;
+  Steigung:REAL;
+BEGIN
+  IF StartX>EndeX THEN
+    hilfe:=StartX;
+    StartX:=EndeX;
+    EndeX:=hilfe;
+    hilfe:=StartY;
+    StartY:=EndeY;
+    EndeY:=hilfe;
+  END;
+  LaengeX:=EndeX-StartX;
+  LaengeY:=EndeY-StartY;
+  IF LaengeX=0 THEN
+    IF EndeY>StartY THEN
+      PunktY:=StartY
+    ELSE
+      PunktY:=EndeY
+    END;
+    PunktX:=StartX;
+    LaengeY:=ABS(LaengeY);
+    FOR zaehler:=1 TO LaengeY DO
+      INC(PunktY);
+      XYplane.Dot(PunktX,PunktY,XYplane.draw);
+    END;
+    RETURN;
+  END;
+  Steigung:=LaengeY/LaengeX;
+  FOR zaehler:=1 TO LaengeX DO
+    PunktX:=StartX+zaehler;
+    hilfe:=SHORT(ENTIER(zaehler*Steigung));
+    PunktY:=StartY+hilfe;
+    XYplane.Dot(PunktX,PunktY,XYplane.draw);
+  END;
+END Linie;
+
+PROCEDURE SpriteSetzen*(s:sprite; x,y:INTEGER);
+VAR i,j:INTEGER;
+BEGIN
+  FOR j:=0 TO 9 DO
+    FOR i:=0 TO 9 DO
+      IF s[i,j] THEN XYplane.Dot(x+i,y+j,XYplane.draw)
+      ELSE XYplane.Dot(x+i,y+j,XYplane.erase);
+      END;
+    END;
+  END;
+END SpriteSetzen;
+
+PROCEDURE SpriteLoeschen*(x,y:INTEGER);
+VAR i,j:INTEGER;
+BEGIN
+  FOR j:=0 TO 9 DO
+    FOR i:=0 TO 9 DO
+      XYplane.Dot(x+i,y+j,XYplane.erase)
+    END
+  END
+END SpriteLoeschen;
+
+PROCEDURE SpriteBewegen*(s:sprite; ax,ay,bx,by,bremse:INTEGER);
+VAR cx,cy,i,j:INTEGER;
+BEGIN
+  cx:=ax;
+  cy:=ay;
+  REPEAT
+    FOR i:=1 TO bremse DO j:=i MOD 7 END;
+    IF cx>bx THEN
+      FOR i:=0 TO 9 DO XYplane.Dot(cx+9,cy+i,XYplane.erase) END;
+      DEC(cx);
+    ELSIF cx<bx THEN
+      FOR i:=0 TO 9 DO XYplane.Dot(cx,cy+i,XYplane.erase) END;
+      INC(cx);
+    END;
+    IF cy>by THEN
+      FOR i:=0 TO 9 DO XYplane.Dot(cx+i,cy+9,XYplane.erase) END;
+      DEC(cy);
+    ELSIF cy<by THEN
+      FOR i:=0 TO 9 DO XYplane.Dot(cx+i,cy,XYplane.erase) END;
+      INC(cy);
+    END;
+    SpriteSetzen(s,cx,cy);
+  UNTIL (cx=bx) & (cy=by);
+END SpriteBewegen;
+
+PROCEDURE SpriteDrehen*(anzahl:INTEGER; VAR s:sprite);
+VAR a,i,j:INTEGER;
+  t:sprite;
+BEGIN
+  FOR a:=1 TO anzahl DO
+    t:=s;
+    FOR j:=0 TO 9 DO
+      FOR i:=0 TO 9 DO
+        s[j,9-i]:=t[i,j]
+      END
+    END
+  END
+END SpriteDrehen;
+
+PROCEDURE SpriteEinfuegen*(s:sprite; x,y:INTEGER);
+VAR i,j:INTEGER;
+BEGIN
+  FOR j:=0 TO 9 DO
+    FOR i:=0 TO 9 DO
+      IF s[i,j] & (~XYplane.IsDot(x+i,y+j)) THEN XYplane.Dot(x+i,y+j,XYplane.draw) END
+    END
+  END
+END SpriteEinfuegen;
+
+PROCEDURE Schreiben*(ausgabe:ARRAY OF CHAR; laenge,x,y:INTEGER);
+VAR i,c:INTEGER;
+BEGIN
+  FOR i:=0 TO laenge-1 DO
+    c:=ORD(ausgabe[i]);
+    IF (c>=48) & (c<=57) THEN
+      SpriteSetzen(zahlen[c-48],x+10*i,y);
+    END;
+    IF c=58 THEN
+      SpriteSetzen(satzzeichen[c-58],x+10*i,y);
+    END;
+    IF c=33 THEN
+      SpriteSetzen(satzzeichen[c-32],x+10*i,y);
+    END;
+    IF (c>=65) & (c<=91) THEN
+      SpriteSetzen(buchstaben[c+1-65],x+10*i,y);
+    END;
+    IF c=32 THEN
+      SpriteLoeschen(x+10*i,y);
+    END;
+  END;
+END Schreiben;
+
+PROCEDURE ZahlSchreiben*(zahl:LONGINT; x,y:INTEGER);
+VAR i,zaehler:INTEGER;
+BEGIN
+  zaehler:=0;
+  WHILE zahl>0 DO
+    i:=SHORT(zahl-10*(ENTIER(zahl/10)));
+    zahl:=ENTIER(zahl/10);
+    SpriteSetzen(zahlen[i],x-10*zaehler,y);
+    INC(zaehler);
+  END;
+END ZahlSchreiben;
+
+PROCEDURE InitZahlen;
+VAR i,j:INTEGER;
+BEGIN
+  FOR j:=0 TO 9 DO
+    FOR i:=0 TO 9 DO
+      zahlen[1,i,j]:=FALSE;
+    END;
+  END;
+  FOR j:=1 TO 8 DO
+    FOR i:=0 TO 1 DO
+      zahlen[0,j,i]:=TRUE;
+      zahlen[0,j,9-i]:=TRUE;
+      zahlen[0,i+1,j]:=TRUE;
+      zahlen[0,8-i,j]:=TRUE;
+    END;
+  END;
+  FOR i:=0 TO 9 DO
+    zahlen[1,4,i]:=TRUE;
+    zahlen[1,5,i]:=TRUE;
+  END;
+  FOR i:=1 TO 8 DO
+    FOR j:=0 TO 1 DO
+      zahlen[2,i,j]:=TRUE;
+      zahlen[2,i,4+j]:=TRUE;
+      zahlen[2,i,9-j]:=TRUE;
+    END;
+  END;
+  zahlen[2,1,2]:=TRUE; zahlen[2,2,2]:=TRUE; zahlen[2,1,3]:=TRUE; zahlen[2,2,3]:=TRUE;
+  zahlen[2,7,6]:=TRUE; zahlen[2,8,6]:=TRUE; zahlen[2,7,7]:=TRUE; zahlen[2,8,7]:=TRUE;
+  FOR i:=1 TO 8 DO
+    FOR j:=0 TO 1 DO
+      zahlen[3,i,j]:=TRUE;
+      zahlen[3,i,4+j]:=TRUE;
+      zahlen[3,i,9-j]:=TRUE;
+      zahlen[3,8-j,i]:=TRUE;
+    END;
+  END;
+  FOR i:=0 TO 1 DO
+    FOR j:=0 TO 9 DO
+      zahlen[4,7+i,j]:=TRUE;
+    END;
+    FOR j:=1 TO 8 DO
+      zahlen[4,j,4+i]:=TRUE;
+    END;
+    FOR j:=4 TO 9 DO
+      zahlen[4,1+i,j]:=TRUE;
+    END;
+  END;
+  FOR i:=1 TO 8 DO
+    FOR j:=0 TO 1 DO
+      zahlen[5,i,j]:=TRUE;
+      zahlen[5,i,4+j]:=TRUE;
+      zahlen[5,i,9-j]:=TRUE;
+    END;
+  END;
+  zahlen[5,8,2]:=TRUE; zahlen[5,7,2]:=TRUE; zahlen[5,8,3]:=TRUE; zahlen[5,7,3]:=TRUE;
+  zahlen[5,2,6]:=TRUE; zahlen[5,1,6]:=TRUE; zahlen[5,2,7]:=TRUE; zahlen[5,1,7]:=TRUE;
+  zahlen[6]:=zahlen[2];
+  FOR i:=0 TO 1 DO
+    FOR j:=0 TO 1 DO
+      zahlen[6,8-i,2+j]:=TRUE;
+      zahlen[6,1+i,6+j]:=TRUE;
+      zahlen[6,8-i,6+j]:=FALSE;
+    END;
+  END;
+  FOR i:=0 TO 1 DO
+    FOR j:=0 TO 9 DO
+      zahlen[7,8-i,j]:=TRUE;
+    END;
+    FOR j:=1 TO 8 DO
+      zahlen[7,j,9-i]:=TRUE;
+    END;
+  END;
+  zahlen[8]:=zahlen[6];
+  zahlen[8,7,6]:=TRUE; zahlen[8,8,6]:=TRUE; zahlen[8,7,7]:=TRUE; zahlen[8,8,7]:=TRUE;
+  zahlen[9]:=zahlen[3];
+  zahlen[9,1,6]:=TRUE; zahlen[9,2,6]:=TRUE; zahlen[9,1,7]:=TRUE; zahlen[9,2,7]:=TRUE; 
+END InitZahlen;
+
+PROCEDURE InitBuchstaben;
+VAR i,j,k:INTEGER;
+BEGIN
+  FOR k:=0 TO 26 DO
+    FOR j:=0 TO 9 DO
+      FOR i:=0 TO 9 DO
+        buchstaben[k,i,j]:=FALSE;
+      END;
+    END;
+  END;
+                                        (* A *)
+  FOR i:=0 TO 9 DO
+    buchstaben[1,1,i]:=TRUE; buchstaben[1,2,i]:=TRUE;
+    buchstaben[1,7,i]:=TRUE; buchstaben[1,8,i]:=TRUE;
+  END;
+  FOR i:=3 TO 6 DO
+    buchstaben[1,i,4]:=TRUE; buchstaben[1,i,5]:=TRUE;
+    buchstaben[1,i,8]:=TRUE; buchstaben[1,i,9]:=TRUE;
+  END;
+                                        (* B *)
+  buchstaben[2]:=zahlen[8];
+  buchstaben[2,8,0]:=FALSE; buchstaben[2,8,1]:=FALSE;
+  buchstaben[2,8,4]:=FALSE; buchstaben[2,8,5]:=FALSE;
+  buchstaben[2,8,8]:=FALSE; buchstaben[2,8,9]:=FALSE;
+                                        (* C *)
+  buchstaben[3]:=zahlen[0];
+  FOR i:=2 TO 7 DO
+    buchstaben[3,7,i]:=FALSE; buchstaben[3,8,i]:=FALSE;
+  END;
+                                        (* D *)
+  buchstaben[4]:=zahlen[0];
+  FOR i:=0 TO 2 DO
+    buchstaben[4,8,i]:=FALSE; buchstaben[4,8,9-i]:=FALSE;
+  END;
+  buchstaben[4,7,0]:=FALSE; buchstaben[4,7,9]:=FALSE;
+  buchstaben[4,6,2]:=TRUE; buchstaben[4,6,7]:=TRUE;
+                                        (* E *)
+  buchstaben[5]:=zahlen[3];
+  SpriteDrehen(2,buchstaben[5]);
+                                        (* F *)
+  FOR i:=0 TO 9 DO
+    buchstaben[6,1,i]:=TRUE; buchstaben[6,2,i]:=TRUE;
+    IF i<8 THEN
+      buchstaben[6,i+1,4]:=TRUE; buchstaben[6,i+1,5]:=TRUE;
+      buchstaben[6,i+1,8]:=TRUE; buchstaben[6,i+1,9]:=TRUE;
+    END;
+  END;
+                                        (* G *)
+  buchstaben[7]:=zahlen[6];
+  buchstaben[7,3,4]:=FALSE; buchstaben[7,4,4]:=FALSE;
+  buchstaben[7,3,5]:=FALSE; buchstaben[7,4,5]:=FALSE;
+                                        (* H *)
+  FOR i:=0 TO 9 DO
+    buchstaben[8,1,i]:=TRUE; buchstaben[8,2,i]:=TRUE;
+    buchstaben[8,7,i]:=TRUE; buchstaben[8,8,i]:=TRUE;
+  END;
+  FOR i:=3 TO 6 DO
+    buchstaben[8,i,4]:=TRUE; buchstaben[8,i,5]:=TRUE;
+  END;
+                                        (* I *)
+  FOR i:=0 TO 9 DO
+    buchstaben[9,4,i]:=TRUE; buchstaben[9,5,i]:=TRUE;
+  END;
+  buchstaben[10]:=buchstaben[9];
+  FOR i:=1 TO 3 DO
+    buchstaben[10,i,0]:=TRUE; buchstaben[10,i,1]:=TRUE;
+  END;
+                                        (* K *)
+  FOR i:=0 TO 9 DO
+    buchstaben[11,1,i]:=TRUE; buchstaben[11,2,i]:=TRUE;
+  END;
+  buchstaben[11,3,4]:=TRUE; buchstaben[11,3,5]:=TRUE;
+  buchstaben[11,4,3]:=TRUE; buchstaben[11,4,4]:=TRUE;
+  buchstaben[11,4,5]:=TRUE; buchstaben[11,4,6]:=TRUE;
+  buchstaben[11,5,2]:=TRUE; buchstaben[11,5,3]:=TRUE;
+  buchstaben[11,5,6]:=TRUE; buchstaben[11,5,7]:=TRUE;
+  buchstaben[11,6,1]:=TRUE; buchstaben[11,6,2]:=TRUE;
+  buchstaben[11,6,7]:=TRUE; buchstaben[11,6,8]:=TRUE;
+  buchstaben[11,7,0]:=TRUE; buchstaben[11,7,1]:=TRUE;
+  buchstaben[11,7,8]:=TRUE; buchstaben[11,7,9]:=TRUE;
+  buchstaben[11,8,0]:=TRUE; buchstaben[11,8,9]:=TRUE;
+                                        (* L *)
+  buchstaben[12]:=zahlen[7];
+  SpriteDrehen(2,buchstaben[12]);
+                                        (* M *)
+  buchstaben[13]:=buchstaben[8];
+  buchstaben[13,3,4]:=FALSE; buchstaben[13,3,5]:=FALSE;
+  buchstaben[13,3,6]:=TRUE; buchstaben[13,3,7]:=TRUE;
+  buchstaben[13,6,4]:=FALSE; buchstaben[13,6,5]:=FALSE;
+  buchstaben[13,6,6]:=TRUE; buchstaben[13,6,7]:=TRUE;
+                                        (* N *)
+  buchstaben[14]:=buchstaben[8];
+  buchstaben[14,3,4]:=FALSE; buchstaben[14,3,5]:=FALSE;
+  buchstaben[14,3,6]:=TRUE; buchstaben[14,3,7]:=TRUE;
+  buchstaben[14,6,2]:=TRUE; buchstaben[14,6,3]:=TRUE;
+  buchstaben[14,6,4]:=FALSE; buchstaben[14,6,5]:=FALSE;
+                                        (* O *)
+  buchstaben[15]:=zahlen[0];
+                                        (* P *)
+  buchstaben[16]:=buchstaben[6];
+  buchstaben[16,7,7]:=TRUE; buchstaben[16,7,6]:=TRUE;
+  buchstaben[16,8,7]:=TRUE; buchstaben[16,8,6]:=TRUE;
+                                        (* Q *)
+  buchstaben[17]:=zahlen[0];
+  buchstaben[17,5,0]:=FALSE; buchstaben[17,6,0]:=FALSE;
+  buchstaben[17,5,1]:=FALSE; buchstaben[17,6,1]:=FALSE;
+  buchstaben[17,5,2]:=TRUE; buchstaben[17,6,2]:=TRUE;
+  buchstaben[17,5,3]:=TRUE; buchstaben[17,6,3]:=TRUE;
+  buchstaben[17,7,2]:=FALSE; buchstaben[17,8,2]:=FALSE;
+  buchstaben[17,7,3]:=FALSE; buchstaben[17,8,3]:=FALSE;
+                                        (* R *)
+  buchstaben[18]:=buchstaben[16];
+  buchstaben[18,4,3]:=TRUE; buchstaben[18,5,3]:=TRUE;
+  buchstaben[18,5,2]:=TRUE; buchstaben[18,6,2]:=TRUE;
+  buchstaben[18,6,1]:=TRUE; buchstaben[18,7,1]:=TRUE;
+  buchstaben[18,7,0]:=TRUE; buchstaben[18,8,0]:=TRUE;
+                                        (* S *)
+  buchstaben[19]:=zahlen[5];
+                                        (* T *)
+  FOR i:=0 TO 9 DO
+    buchstaben[20,4,i]:=TRUE; buchstaben[20,5,i]:=TRUE;
+    IF (i>0) & (i<9) THEN
+      buchstaben[20,i,8]:=TRUE; buchstaben[20,i,9]:=TRUE;
+    END;
+  END;
+                                        (* U *)
+  buchstaben[21]:=buchstaben[12];
+  FOR i:=2 TO 9 DO
+    buchstaben[21,7,i]:=TRUE; buchstaben[21,8,i]:=TRUE;
+  END;
+                                        (* V *)
+  FOR i:=5 TO 9 DO
+    buchstaben[22,1,i]:=TRUE; buchstaben[22,2,i]:=TRUE;
+    buchstaben[22,7,i]:=TRUE; buchstaben[22,8,i]:=TRUE;
+  END;
+  buchstaben[22,2,3]:=TRUE; buchstaben[22,2,4]:=TRUE;
+  buchstaben[22,7,3]:=TRUE; buchstaben[22,7,4]:=TRUE;
+  buchstaben[22,3,3]:=TRUE; buchstaben[22,3,4]:=TRUE;
+  buchstaben[22,6,3]:=TRUE; buchstaben[22,6,4]:=TRUE;
+  buchstaben[22,3,2]:=TRUE; buchstaben[22,4,2]:=TRUE;
+  buchstaben[22,5,2]:=TRUE; buchstaben[22,5,2]:=TRUE;
+  buchstaben[22,4,1]:=TRUE; buchstaben[22,5,1]:=TRUE;
+  buchstaben[22,4,0]:=TRUE; buchstaben[22,5,0]:=TRUE;
+                                        (* W *)
+  buchstaben[23]:=buchstaben[13];
+  SpriteDrehen(2,buchstaben[23]);
+                                        (* X *)
+  buchstaben[24,1,0]:=TRUE; buchstaben[24,2,0]:=TRUE;
+  buchstaben[24,1,1]:=TRUE; buchstaben[24,2,1]:=TRUE;
+  buchstaben[24,2,2]:=TRUE; buchstaben[24,3,2]:=TRUE;
+  buchstaben[24,3,3]:=TRUE; buchstaben[24,4,3]:=TRUE;
+  buchstaben[24,4,4]:=TRUE;
+  FOR j:=0 TO 4 DO
+    FOR i:=0 TO 4 DO
+      buchstaben[24,9-i,j]:=buchstaben[24,i,j];
+      buchstaben[24,i,9-j]:=buchstaben[24,i,j];
+      buchstaben[24,9-i,9-j]:=buchstaben[24,i,j];
+    END;
+  END;
+                                        (* Y *)
+  FOR i:=0 TO 6 DO
+    buchstaben[25,4,i]:=TRUE; buchstaben[25,5,i]:=TRUE;
+  END;
+  buchstaben[25,3,6]:=TRUE; buchstaben[25,6,6]:=TRUE;
+  buchstaben[25,2,7]:=TRUE; buchstaben[25,3,7]:=TRUE;
+  buchstaben[25,6,7]:=TRUE; buchstaben[25,7,7]:=TRUE;
+  buchstaben[25,1,8]:=TRUE; buchstaben[25,2,8]:=TRUE;
+  buchstaben[25,7,8]:=TRUE; buchstaben[25,8,8]:=TRUE;
+  buchstaben[25,1,9]:=TRUE; buchstaben[25,2,9]:=TRUE;
+  buchstaben[25,7,9]:=TRUE; buchstaben[25,8,9]:=TRUE;
+                                        (* Z *)
+  FOR i:=1 TO 8 DO
+    buchstaben[26,i,0]:=TRUE; buchstaben[26,i,1]:=TRUE;
+    buchstaben[26,i,8]:=TRUE; buchstaben[26,i,9]:=TRUE;
+  END;
+  buchstaben[26,2,2]:=TRUE; buchstaben[26,3,2]:=TRUE;
+  buchstaben[26,3,3]:=TRUE; buchstaben[26,4,3]:=TRUE;
+  buchstaben[26,4,4]:=TRUE; buchstaben[26,5,4]:=TRUE;
+  buchstaben[26,4,5]:=TRUE; buchstaben[26,5,5]:=TRUE;
+  buchstaben[26,5,6]:=TRUE; buchstaben[26,6,6]:=TRUE;
+  buchstaben[26,6,7]:=TRUE; buchstaben[26,7,7]:=TRUE;
+END InitBuchstaben;
+
+PROCEDURE InitSatzzeichen;
+VAR i,j,k:INTEGER;
+BEGIN
+  FOR k:=0 TO 0 DO
+    FOR j:=0 TO 9 DO
+      FOR i:=0 TO 9 DO
+        satzzeichen[k,i,j]:=FALSE;
+      END;
+    END;
+  END;
+                                        (* : *)
+  satzzeichen[0,4,2]:=TRUE; satzzeichen[0,5,2]:=TRUE;
+  satzzeichen[0,4,3]:=TRUE; satzzeichen[0,5,3]:=TRUE;
+  satzzeichen[0,4,6]:=TRUE; satzzeichen[0,5,6]:=TRUE;
+  satzzeichen[0,4,7]:=TRUE; satzzeichen[0,5,7]:=TRUE;
+                                        (* ! *)
+  satzzeichen[1]:=buchstaben[9];
+  satzzeichen[1,4,2]:=FALSE; satzzeichen[1,5,2]:=FALSE;
+  satzzeichen[1,4,3]:=FALSE; satzzeichen[1,5,3]:=FALSE;
+END InitSatzzeichen;
+
+BEGIN
+  InitZahlen;
+  InitBuchstaben;
+  InitSatzzeichen;
+END Grafik.
diff --git a/src/test/X11/pacman/PacMan.Mod b/src/test/X11/pacman/PacMan.Mod
new file mode 100644
index 00000000..cfa940b2
--- /dev/null
+++ b/src/test/X11/pacman/PacMan.Mod
@@ -0,0 +1,548 @@
+MODULE PacMan;
+
+(* (C) Copyright 1996 by Roland Brand, Aarau *)
+
+IMPORT XYplane := oocXYplane ,Out := Console ,Grafik,RandomNumbers := ethRandomNumbers;
+
+TYPE figur=RECORD
+      PosX,PosY,Richtung,Blick:INTEGER;
+    END;
+
+CONST stop=0;
+      links=1;
+      rechts=2;
+      hoch=3;
+      runter=4;
+      Bremse=100;
+
+VAR Feld:ARRAY 39,25 OF INTEGER;
+  pcman,geistli,punkt,linie,kreuzung,ecke:Grafik.sprite;
+  pcm:figur;
+  geist: ARRAY 4 OF figur;
+  score:LONGINT;
+  AnzPunkte:INTEGER;
+
+PROCEDURE Initialisieren;
+VAR i,j:INTEGER;
+BEGIN
+  XYplane.Clear;
+  score:=0;
+  FOR j:=0 TO 24 DO
+    FOR i:=0 TO 38 DO
+      Feld[i,j]:=0;
+    END;
+  END;
+  FOR j:=0 TO 9 DO
+    FOR i:=0 TO 9 DO
+      pcman[i,j]:=FALSE;
+      punkt[i,j]:=FALSE;
+      linie[i,j]:=FALSE;
+      kreuzung[i,j]:=FALSE;
+      ecke[i,j]:=FALSE;
+    END;
+  END;
+  pcman[4,0]:=TRUE; pcman[5,0]:=TRUE;
+  FOR i:=3 TO 7 DO pcman[i,1]:=TRUE END;
+  FOR i:=2 TO 9 DO pcman[i,2]:=TRUE END;
+  FOR i:=1 TO 7 DO pcman[i,3]:=TRUE END;
+  FOR i:=0 TO 6 DO pcman[i,4]:=TRUE END;
+  FOR i:=0 TO 6 DO pcman[i,5]:=TRUE END;
+  FOR i:=1 TO 7 DO pcman[i,6]:=TRUE END;
+  FOR i:=2 TO 9 DO pcman[i,7]:=TRUE END;
+  FOR i:=3 TO 7 DO pcman[i,8]:=TRUE END;
+  pcman[4,9]:=TRUE; pcman[5,9]:=TRUE;
+  FOR j:=0 TO 9 DO
+    FOR i:=0 TO 9 DO
+      geistli[i,j]:=TRUE;
+    END;
+  END;
+  FOR i:=0 TO 3 DO
+    geistli[i,9]:=FALSE;
+    geistli[9-i,9]:=FALSE;
+  END;
+  geistli[0,8]:=FALSE; geistli[1,8]:=FALSE; geistli[8,8]:=FALSE; geistli[9,8]:=FALSE;
+  geistli[0,7]:=FALSE; geistli[9,7]:=FALSE;
+  geistli[3,6]:=FALSE; geistli[6,6]:=FALSE;
+  geistli[2,1]:=FALSE; geistli[6,1]:=FALSE;
+  FOR i:=1 TO 3 DO
+    geistli[i,0]:=FALSE;
+    geistli[9-i,0]:=FALSE;
+  END;
+  Feld[1,1]:=1;
+  punkt[4,4]:=TRUE; punkt[5,4]:=TRUE; punkt[4,5]:=TRUE; punkt[5,5]:=TRUE;
+  FOR i:=0 TO 9 DO
+    linie[i,4]:=TRUE;
+    linie[i,5]:=TRUE;
+    kreuzung[i,4]:=TRUE;
+    kreuzung[i,5]:=TRUE;
+    kreuzung[4,i]:=TRUE;
+    kreuzung[5,i]:=TRUE;
+  END;
+  FOR i:=0 TO 5 DO
+    ecke[4,i]:=TRUE;
+    ecke[5,i]:=TRUE;
+    ecke[9-i,4]:=TRUE;
+    ecke[9-i,5]:=TRUE;
+  END;
+  pcm.Blick:=rechts;
+END Initialisieren;
+
+PROCEDURE Bitmuster(a,b:INTEGER):BOOLEAN;
+(* prueft ob das b. Bit in a gesetzt ist und gibt in dem Fall true zurueck *)
+VAR c:INTEGER;
+BEGIN
+  IF b<0 THEN
+    Out.String("Fehler im Programm: Procedure Bitmuster");
+    HALT(35);
+  END;
+  IF a<ASH(1,b) THEN RETURN FALSE END;
+  c:=a;
+  REPEAT
+    IF c<ASH(1,b) THEN RETURN FALSE END;
+    IF (c>=ASH(1,b)) & (c<ASH(1,b+1)) THEN RETURN TRUE END;
+    c:=c-SHORT(ASH(1,b+1));
+  UNTIL c<0; 
+  RETURN FALSE;
+END Bitmuster;
+
+PROCEDURE Zeichnen;
+VAR i,j,x,y:INTEGER;
+BEGIN
+  FOR j:=0 TO 24 DO
+    y:=400-j*10;
+    FOR i:=0 TO 38 DO
+      x:=10+i*10;
+      IF Bitmuster(Feld[i,j],7) THEN
+        IF Bitmuster(Feld[i,j],6) THEN Grafik.SpriteSetzen(kreuzung,x,y)
+        ELSE Grafik.SpriteSetzen(linie,x,y)
+        END;
+      ELSIF Bitmuster(Feld[i,j],6) THEN
+        Grafik.SpriteDrehen(1,linie);
+        Grafik.SpriteSetzen(linie,x,y);
+        Grafik.SpriteDrehen(1,linie);
+      ELSIF Bitmuster(Feld[i,j],5) THEN
+        IF i=0 THEN
+          IF j=0 THEN Grafik.SpriteSetzen(ecke,x,y)
+          ELSIF ~Bitmuster(Feld[i,j-1],6) THEN Grafik.SpriteSetzen(ecke,x,y)
+          ELSE
+            Grafik.SpriteDrehen(3,ecke);
+            Grafik.SpriteSetzen(ecke,x,y);
+            Grafik.SpriteDrehen(1,ecke);
+          END;
+        ELSE
+          IF j=0 THEN
+            IF ~Bitmuster(Feld[i-1,j],7) THEN Grafik.SpriteSetzen(ecke,x,y)
+            ELSE
+              Grafik.SpriteDrehen(1,ecke);
+              Grafik.SpriteSetzen(ecke,x,y);
+              Grafik.SpriteDrehen(3,ecke);
+            END;
+          ELSIF Bitmuster(Feld[i,j+1],6) THEN
+            IF Bitmuster(Feld[i-1,j],7) THEN
+              Grafik.SpriteDrehen(1,ecke);
+              Grafik.SpriteSetzen(ecke,x,y);
+              Grafik.SpriteDrehen(3,ecke);
+            ELSE Grafik.SpriteSetzen(ecke,x,y)
+            END;
+          ELSE
+            Grafik.SpriteDrehen(2,ecke);
+            Grafik.SpriteSetzen(ecke,x,y);
+            Grafik.SpriteDrehen(2,ecke);
+          END;
+        END;
+      ELSIF Bitmuster(Feld[i,j],3) THEN Grafik.SpriteSetzen(punkt,x,y);
+      END;
+    END;
+  END;
+END Zeichnen;
+
+PROCEDURE Level1;
+VAR i,j:INTEGER;
+BEGIN
+  RandomNumbers.InitSeed(93247856);
+  Initialisieren;
+  Feld[0,0]:=32;
+  FOR i:=1 TO 37 DO 
+    Feld[i,0]:=128;
+    Feld[i,2]:=128;
+    Feld[i,4]:=128;
+    Feld[i,6]:=128;
+    Feld[i,16]:=128;
+    Feld[i,20]:=128;
+    Feld[i,22]:=128;
+    Feld[i,24]:=128;
+  END;
+  Feld[18,0]:=32; Feld[19,0]:=0; Feld[20,0]:=32; Feld[38,0]:=32;
+  FOR i:=1 TO 5 DO
+    Feld[0,i]:=64;
+    Feld[38,i]:=64;
+  END;
+  Feld[18,1]:=64; Feld[20,1]:=64;
+  Feld[1,2]:=0; Feld[9,2]:=0; Feld[17,2]:=0; Feld[18,2]:=192; Feld[20,2]:=192;
+  Feld[21,2]:=0; Feld[29,2]:=0; Feld[37,2]:=0;
+  Feld[1,4]:=0; Feld[9,4]:=0; Feld[10,4]:=32; Feld[12,4]:=32; Feld[13,4]:=0;
+  Feld[19,4]:=192; Feld[25,4]:=0; Feld[26,4]:=192; Feld[28,4]:=192; Feld[29,4]:=0;
+  Feld[37,4]:=0;
+  FOR i:=5 TO 9 DO
+    Feld[10,i]:=64;
+    Feld[28,i]:=64;
+  END;
+  Feld[12,5]:=64; Feld[19,5]:=64; Feld[26,5]:=64;
+  Feld[0,6]:=32; Feld[8,6]:=32; Feld[9,6]:=0; Feld[10,6]:=64; Feld[11,6]:=0;
+  Feld[12,6]:=192; Feld[17,6]:=192; Feld[18,6]:=0; Feld[19,6]:=64;Feld[20,6]:=0;
+  Feld[21,6]:=192; Feld[26,6]:=192; Feld[27,6]:=0; Feld[28,6]:=64; Feld[29,6]:=0;
+  Feld[30,6]:=192; Feld[38,6]:=192;
+  FOR i:=7 TO 9 DO
+    Feld[8,i]:=64;
+    Feld[12,i]:=64;
+    Feld[26,i]:=64;
+    Feld[30,i]:=64;
+  END;
+  Feld[12,7]:=192; Feld[13,7]:=128; Feld[14,7]:=128; Feld[15,7]:=128; Feld[16,7]:=128;
+  Feld[17,7]:=192; Feld[19,7]:=64; Feld[21,7]:=192; Feld[22,7]:=128; Feld[23,7]:=128;
+  Feld[24,7]:=128; Feld[25,7]:=128; Feld[26,7]:=192;
+  Feld[14,9]:=192; 
+  FOR i:=15 TO 23 DO Feld[i,9]:=128 END;
+  Feld[19,9]:=0; Feld[24,9]:=192;
+  FOR i:=0 TO 7 DO
+    Feld[i,10]:=128;
+    Feld[i+31,10]:=128;
+  END;
+  Feld[8,10]:=192; Feld[10,10]:=192; Feld[11,10]:=128; Feld[12,10]:=192;
+  Feld[14,10]:=64; Feld[24,10]:=64; Feld[26,10]:=192; Feld[27,10]:=128;
+  Feld[28,10]:=192; Feld[30,10]:=192;
+  Feld[14,11]:=64; Feld[24,11]:=64;
+  FOR i:=0 TO 38 DO
+    Feld[i,12]:=Feld[i,10];
+    Feld[i,13]:=Feld[i,9];
+    Feld[i,14]:=Feld[i,8];
+    Feld[i,15]:=Feld[i,9];
+    Feld[i,18]:=Feld[i,2];
+  END;
+  Feld[19,13]:=128;
+  Feld[19,15]:=128;
+  Feld[0,16]:=192; Feld[8,16]:=192; Feld[9,16]:=0; Feld[10,16]:=192; Feld[12,16]:=192;
+  Feld[13,16]:=0; Feld[14,16]:=192; Feld[18,16]:=192; Feld[19,16]:=0; Feld[20,16]:=192;
+  Feld[24,16]:=192; Feld[25,16]:=0; Feld[26,16]:=192; Feld[28,16]:=192;
+  Feld[29,16]:=0; Feld[30,16]:=192; Feld[38,16]:=192;
+  Feld[0,17]:=64; Feld[18,17]:=64; Feld[20,17]:=64; Feld[38,17]:=64;
+  Feld[5,18]:=192; Feld[8,18]:=192; Feld[30,18]:=192; Feld[33,18]:=192;
+  Feld[0,19]:=64; Feld[5,19]:=64; Feld[8,19]:=64; Feld[30,19]:=64; Feld[33,19]:=64;
+  Feld[38,19]:=64;
+  Feld[0,20]:=192; Feld[4,20]:=0; Feld[5,20]:=192; Feld[8,20]:=192; Feld[9,20]:=0;
+  Feld[10,20]:=192; Feld[13,20]:=192; Feld[14,20]:=0; Feld[18,20]:=192;
+  Feld[20,20]:=192; Feld[24,20]:=0; Feld[25,20]:=192; Feld[28,20]:=192;
+  Feld[29,20]:=0; Feld[30,20]:=192; Feld[33,20]:=192; Feld[34,20]:=0; Feld[38,20]:=192;
+  Feld[0,21]:=64; Feld[10,21]:=64; Feld[13,21]:=64; Feld[18,21]:=64; Feld[20,21]:=64;
+  Feld[25,21]:=64; Feld[28,21]:=64; Feld[38,21]:=64;
+  Feld[0,22]:=64; Feld[1,22]:=0; Feld[10,22]:=192; Feld[13,22]:=192; Feld[17,22]:=0;
+  Feld[18,22]:=192; Feld[20,22]:=192; Feld[21,22]:=0; Feld[25,22]:=192;
+  Feld[28,22]:=192; Feld[37,22]:=0; Feld[38,22]:=64;
+  Feld[0,23]:=64; Feld[38,23]:=64;
+  Feld[0,24]:=192; Feld[38,24]:=192;
+  FOR j:=0 TO 24 DO
+    FOR i:=0 TO 38 DO
+      IF Feld[i,j]=0 THEN
+        Feld[i,j]:=8;
+      END
+    END
+  END;
+  Feld[19,0]:=0; Feld[19,1]:=0;
+  FOR j:=7 TO 9 DO
+    FOR i:=0 TO 7 DO
+      Feld[i,j]:=0;
+      Feld[38-i,j]:=0;
+      Feld[i,j+6]:=0;
+      Feld[38-i,j+6]:=0;
+    END;
+  END;
+  FOR i:=5 TO 9  DO
+    Feld[11,i]:=0;
+    Feld[27,i]:=0;
+  END;
+  Feld[11,13]:=0; Feld[11,14]:=0; Feld[11,15]:=0; Feld[27,13]:=0; Feld[27,14]:=0; Feld[27,15]:=0;
+  Feld[6,19]:=0; Feld[7,19]:=0; Feld[19,21]:=0; Feld[11,21]:=0; Feld[12,21]:=0; Feld[26,21]:=0;
+  Feld[27,21]:=0; Feld[31,19]:=0; Feld[32,19]:=0; Feld[19,16]:=0; Feld[19,17]:=0;
+  FOR j:=10 TO 12 DO
+    FOR i:=15 TO 23 DO
+      Feld[i,j]:=0;
+    END;
+  END;
+  Zeichnen;
+  pcm.PosX:=19; pcm.PosY:=19;
+  Feld[pcm.PosX,pcm.PosY]:=1;
+  Grafik.SpriteSetzen(pcman,10+pcm.PosX*10,400-pcm.PosY*10);
+  geist[0].PosX:=15; geist[0].PosY:=8; geist[0].Richtung:=rechts; geist[0].Blick:=rechts;
+  geist[1].PosX:=1; geist[1].PosY:=1; geist[1].Richtung:=rechts; geist[1].Blick:=rechts;
+  geist[2].PosX:=37; geist[2].PosY:=1; geist[2].Richtung:=links; geist[2].Blick:=links;
+  geist[3].PosX:=19; geist[3].PosY:=12; geist[3].Richtung:=hoch; geist[3].Blick:=hoch;
+  FOR i:=0 TO 3 DO
+    Feld[geist[i].PosX,geist[i].PosY]:=10;
+    Grafik.SpriteSetzen(geistli,10+geist[i].PosX*10,400-geist[i].PosY*10);
+  END;
+  Feld[geist[3].PosX,geist[3].PosY]:=2;
+  AnzPunkte:=344;
+END Level1;
+
+PROCEDURE RichtungAnpassen(VAR s:Grafik.sprite; VAR f:figur);
+BEGIN
+  IF (f.Richtung#f.Blick) & (f.Richtung#stop) THEN
+    IF f.Blick=rechts THEN
+      IF f.Richtung=runter THEN Grafik.SpriteDrehen(1,s)
+      ELSIF f.Richtung=links THEN Grafik.SpriteDrehen(2,s)
+      ELSIF f.Richtung=hoch THEN Grafik.SpriteDrehen(3,s)
+      END
+    ELSIF f.Blick=runter THEN
+      IF f.Richtung=rechts THEN Grafik.SpriteDrehen(3,s)
+      ELSIF f.Richtung=links THEN Grafik.SpriteDrehen(1,s)
+      ELSIF f.Richtung=hoch THEN Grafik.SpriteDrehen(2,s)
+      END
+    ELSIF f.Blick=links THEN
+      IF f.Richtung=rechts THEN Grafik.SpriteDrehen(2,s)
+      ELSIF f.Richtung=runter THEN Grafik.SpriteDrehen(3,s)
+      ELSIF f.Richtung=hoch THEN Grafik.SpriteDrehen(1,s)
+      END
+    ELSIF f.Blick=hoch THEN
+      IF f.Richtung=rechts THEN Grafik.SpriteDrehen(1,s)
+      ELSIF f.Richtung=runter THEN Grafik.SpriteDrehen(2,s)
+      ELSIF f.Richtung=links THEN Grafik.SpriteDrehen(3,s)
+      END
+    END;
+    f.Blick:=f.Richtung;
+  END;
+END RichtungAnpassen;
+
+PROCEDURE RandHuepfen(s:Grafik.sprite; VAR f:figur; kennung:INTEGER):BOOLEAN;
+VAR x,y:INTEGER;
+  resultat:BOOLEAN;
+BEGIN
+  resultat:=FALSE;
+  x:=10+f.PosX*10;
+  y:=400-f.PosY*10;
+  IF f.Richtung=links THEN
+    IF f.PosX=0 THEN
+      IF (Feld[38,f.PosY]=0) OR (Feld[38,f.PosY]=8) THEN
+        Grafik.SpriteLoeschen(x,y);
+        f.PosX:=38;
+        x:=10+f.PosX*10;
+        y:=400-f.PosY*10;
+        Grafik.SpriteSetzen(s,x,y);
+        Feld[f.PosX,f.PosY]:=kennung;
+        resultat:=TRUE;
+      ELSE 
+        f.Richtung:=stop;
+      END
+    END
+  ELSIF f.Richtung=rechts THEN
+    IF f.PosX=38 THEN
+      IF (Feld[0,f.PosY]=0) OR (Feld[0,f.PosY]=8) THEN
+        Grafik.SpriteLoeschen(x,y);
+        f.PosX:=0;
+        x:=10+f.PosX*10;
+        y:=400-f.PosY*10;
+        Grafik.SpriteSetzen(s,x,y);
+        Feld[f.PosX,f.PosY]:=kennung;
+        resultat:=TRUE;
+      ELSE f.Richtung:=stop
+      END
+    END
+  ELSIF f.Richtung=hoch THEN
+    IF f.PosY=0 THEN
+      IF (Feld[f.PosX,24]=0) OR (Feld[f.PosX,24]=8) THEN
+        Grafik.SpriteLoeschen(x,y);
+        f.PosY:=24;
+        x:=10+f.PosX*10;
+        y:=400-f.PosY*10;
+        Grafik.SpriteSetzen(s,x,y);
+        Feld[f.PosX,f.PosY]:=kennung;
+        resultat:=TRUE;
+      ELSE f.Richtung:=stop
+      END
+    END
+  ELSIF f.Richtung=runter THEN
+    IF f.PosY=24 THEN
+      IF (Feld[f.PosX,0]=0) OR (Feld[f.PosX,0]=8) THEN
+        Grafik.SpriteLoeschen(x,y);
+        f.PosY:=0;
+        x:=10+f.PosX*10;
+        y:=400-f.PosY*10;
+        Grafik.SpriteSetzen(s,x,y);
+        Feld[f.PosX,f.PosY]:=kennung;
+        resultat:=TRUE;
+      ELSE f.Richtung:=stop
+      END
+    END
+  END;
+  RETURN resultat;
+END RandHuepfen;
+
+PROCEDURE NeuePosition(VAR f:figur);
+BEGIN
+  IF f.Richtung=links THEN
+    IF  ~((Bitmuster(Feld[f.PosX-1,f.PosY],7) OR Bitmuster(Feld[f.PosX-1,f.PosY],6)) OR
+      Bitmuster(Feld[f.PosX-1,f.PosY],5)) THEN DEC(f.PosX)
+    ELSE f.Richtung:=stop
+    END
+  ELSIF f.Richtung=rechts THEN
+    IF  ~((Bitmuster(Feld[f.PosX+1,f.PosY],7) OR Bitmuster(Feld[f.PosX+1,f.PosY],6)) OR
+      (Bitmuster(Feld[f.PosX+1,f.PosY],5))) THEN INC(f.PosX)
+    ELSE f.Richtung:=stop
+    END
+  ELSIF f.Richtung=hoch THEN
+    IF ~((Bitmuster(Feld[f.PosX,f.PosY-1],7) OR Bitmuster(Feld[f.PosX,f.PosY-1],6)) OR
+      Bitmuster(Feld[f.PosX,f.PosY-1],5)) THEN DEC(f.PosY)
+    ELSE f.Richtung:=stop
+    END
+  ELSIF f.Richtung=runter THEN
+    IF ~((Bitmuster(Feld[f.PosX,f.PosY+1],7) OR Bitmuster(Feld[f.PosX,f.PosY+1],6)) OR
+      Bitmuster(Feld[f.PosX,f.PosY+1],5)) THEN INC(f.PosY)
+    ELSE f.Richtung:=stop
+    END
+  END;
+END NeuePosition;
+
+PROCEDURE GeistliRichtung(VAR f:figur; VAR erwischt:BOOLEAN);
+VAR zufall:INTEGER;
+  fertig:BOOLEAN;
+BEGIN
+  fertig:=FALSE;
+  DEC(Feld[f.PosX,f.PosY],2);
+  zufall:=SHORT(ENTIER(10*RandomNumbers.Uniform()));
+  IF (zufall<9) & (f.Richtung#stop) THEN
+    IF RandHuepfen(geistli,f,2) THEN
+      f.Richtung:=stop;
+      RETURN;
+    END;
+    NeuePosition(f);
+    erwischt:=Bitmuster(Feld[f.PosX,f.PosY],0);
+    IF f.Richtung#stop THEN
+      INC(Feld[f.PosX,f.PosY],2);
+      fertig:=TRUE;
+    END;
+  END;
+  IF ~fertig THEN
+    REPEAT
+      REPEAT
+        zufall:=SHORT(ENTIER(10*RandomNumbers.Uniform()))
+      UNTIL zufall<=4;
+      f.Richtung:=zufall;
+      IF RandHuepfen(geistli,f,2) THEN
+        f.Richtung:=stop;
+        RETURN;
+       END;
+      NeuePosition(f);
+      erwischt:=Bitmuster(Feld[f.PosX,f.PosY],0);
+    UNTIL f.Richtung#stop;
+    INC(Feld[f.PosX,f.PosY],2);
+  END;
+END GeistliRichtung;
+
+PROCEDURE Bewegen(VAR erwischt:BOOLEAN);
+VAR ax,ay,bx,by,richtung:ARRAY 5 OF INTEGER;
+  i,j:INTEGER;
+  alt:ARRAY 5 OF figur;
+BEGIN
+  alt[0]:=pcm;
+  ax[0]:=10+pcm.PosX*10;
+  ay[0]:=400-pcm.PosY*10;
+  richtung[0]:=pcm.Richtung;
+  DEC(Feld[pcm.PosX,pcm.PosY]);
+  RichtungAnpassen(pcman,pcm);
+  IF RandHuepfen(pcman,pcm,1) THEN RETURN END;
+  NeuePosition(pcm);
+  erwischt:=Bitmuster(Feld[pcm.PosX,pcm.PosY],1);
+  IF erwischt THEN RETURN END;
+  INC(Feld[pcm.PosX,pcm.PosY]);
+  IF Bitmuster(Feld[pcm.PosX,pcm.PosY],3) THEN
+    DEC(Feld[pcm.PosX,pcm.PosY],8); 
+    INC(score,10);
+    DEC(AnzPunkte);
+  END;
+  FOR i:=1 TO 4 DO 
+    richtung[i]:=stop;
+    ax[i]:=0;
+    ay[i]:=0;
+    ax[i]:=10+geist[i-1].PosX*10;
+    ay[i]:=400-geist[i-1].PosY*10;
+    alt[i]:=geist[i-1];
+    GeistliRichtung(geist[i-1],erwischt);
+    IF erwischt THEN RETURN END;
+    richtung[i]:=geist[i-1].Richtung;
+  END;
+  FOR j:=0 TO 9 DO
+    FOR i:=0 TO 4 DO
+      bx[i]:=ax[i];
+      by[i]:=ay[i];
+      IF richtung[i]=links THEN DEC(bx[i])
+      ELSIF richtung[i]=rechts THEN INC(bx[i])
+      ELSIF richtung[i]=hoch THEN INC(by[i])
+      ELSIF richtung[i]=runter THEN DEC(by[i])
+      END;
+      IF (i=0) & (richtung[0]#stop) THEN 
+        IF ~((alt[0].PosX=pcm.PosX) & (alt[0].PosY=pcm.PosY)) THEN
+          Grafik.SpriteBewegen(pcman,ax[0],ay[0],bx[0],by[0],Bremse)
+        END;
+      ELSE
+        IF richtung[i]#stop THEN
+          Grafik.SpriteBewegen(geistli,ax[i],ay[i],bx[i],by[i],Bremse);
+          IF Bitmuster(Feld[alt[i].PosX,alt[i].PosY],3) THEN
+            Grafik.SpriteEinfuegen(punkt,10+alt[i].PosX*10,400-alt[i].PosY*10);
+          END;
+        END;
+      END;
+      ax[i]:=bx[i];
+      ay[i]:=by[i];
+    END;
+  END;
+END Bewegen;
+
+PROCEDURE SpielStart;
+VAR c:CHAR;
+  abbruch:BOOLEAN;
+BEGIN
+  REPEAT
+    c:=XYplane.Key();
+  UNTIL c#CHR(0);
+  IF c="4" THEN pcm.Richtung:=links;
+  ELSIF c="6" THEN pcm.Richtung:=rechts;
+  ELSIF c="8" THEN pcm.Richtung:=hoch;
+  ELSIF c="2" THEN pcm.Richtung:=runter;
+  ELSIF c=" " THEN pcm.Richtung:=stop;
+  END;
+  Grafik.Schreiben('PUNKTE:',7,250,420);
+  Grafik.ZahlSchreiben(score,390,420);
+  abbruch:=FALSE;
+  REPEAT
+    Bewegen(abbruch);
+    IF abbruch THEN Grafik.Schreiben('ERWISCHT!',9,160,290) END;
+    Grafik.ZahlSchreiben(score,390,420);
+    IF AnzPunkte=99 THEN Grafik.SpriteSetzen(Grafik.buchstaben[0],10,420) END;
+    IF AnzPunkte=9 THEN Grafik.SpriteSetzen(Grafik.buchstaben[0],20,420) END;
+    Grafik.ZahlSchreiben(AnzPunkte,30,420);
+    IF AnzPunkte<1 THEN
+      abbruch:=TRUE;
+      Grafik.Schreiben('!YOU WIN!',9,160,290);
+    END;
+    c:=XYplane.Key();
+    IF c="4" THEN pcm.Richtung:=links;
+    ELSIF c="6" THEN pcm.Richtung:=rechts;
+    ELSIF c="8" THEN pcm.Richtung:=hoch;
+    ELSIF c="2" THEN pcm.Richtung:=runter;
+    ELSIF c=" " THEN pcm.Richtung:=stop;
+    ELSIF c="q" THEN
+      abbruch:=TRUE;
+      Grafik.Schreiben('GAME OVER',9,160,290);
+    END;
+  UNTIL abbruch;
+END SpielStart;
+
+PROCEDURE Spielen*;
+BEGIN
+  XYplane.Open;
+  Level1;
+  SpielStart;
+END Spielen;
+
+BEGIN
+   Spielen
+END PacMan.
diff --git a/src/test/X11/pacman/makefile b/src/test/X11/pacman/makefile
new file mode 100644
index 00000000..7ae675c3
--- /dev/null
+++ b/src/test/X11/pacman/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 Grafik.Mod PacMan.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