Program LABYRINTHE;
 
Begin
 Pref MOUSE Block
 
  Unit LABYGRAPH: IIUWGRAPH Class;
 
    Unit LIFO: Class;
 
      Unit ELEM: Class (S: SALLE);
        Var ANTE: ELEM;
      End ELEM;
 
      Unit PILE: Class;
        Var PREM: ELEM;
      End PILE;
 
      Unit EMPIL: Procedure (InOut E: ELEM; InOut P: PILE);
      Begin
        If Not VIDE (P)
        Then
          E.ANTE:= P.PREM;
        Fi;
        P.PREM:= E;
      End EMPIL;
 
      Unit DEPIL: Procedure (InOut P: PILE);
        Var AUX: ELEM;
      Begin
        If Not VIDE (P)
        Then
          AUX:= P.PREM;
          If AUX.ANTE=/=None
          Then
            P.PREM:= AUX.ANTE;
          Fi;
          Kill (AUX.S);
          Kill (AUX);
        Fi;
      End DEPIL;
 
      Unit VIDE: Function (P: PILE): Boolean;
      Begin
        Result:= (P.PREM=None);
      End VIDE;
 
    End LIFO;
 
    Unit PIECE: Class (N,E,S,O: Boolean; MARQUE: Boolean);
    End PIECE;
 
    Unit SALLE: Class (L,C: Integer; PC: PIECE);
    End SALLE;
 
    Unit PRINCE: Procedure (X,Y: Integer);
    Begin
      Call Move (X+5,Y+10);  Call Draw (X+5,Y+6);
      Call Move (X+6,Y+5);   Call Draw (X+6,Y+6);
      Call Move (X+7,Y+2);   Call Draw (X+7,Y+3);
      Call Move (X+7,Y+5);   Call Draw (X+7,Y+15);
      Call Point (X+6,Y+15);
      Call Move (X+8,Y+1);   Call Draw (X+8,Y+10);
      Call Move (X+9,Y+1);   Call Draw (X+9,Y+10);
      Call Move (X+10,Y+2);  Call Draw (X+10,Y+3);
      Call Move (X+10,Y+5);  Call Draw (X+10,Y+15);
      Call Move (X+11,Y+5);  Call Draw (X+11,Y+6);
      Call Point (X+11,Y+15);
      Call Move (X+12,Y+6);  Call Draw (X+12,Y+10);
      Call Draw (X+15,Y+13); Call Draw (X+15,Y+15);
      Call Move (X+14,Y+14); Call Draw (X+16,Y+14);
    End;
 
    Unit PRINCNORD: Procedure (OutPut PNORD: ArrayOf Integer);
      Var X,Y: Integer;
    Begin
      X:=0;
      Y:=0;
      Call Cls;
      Call Move (X+5,Y+10);  Call Draw (X+5,Y+6);
      Call Move (X+6,Y+5);   Call Draw (X+6,Y+6);
      Call Move (X+7,Y+2);   Call Draw (X+7,Y+3);
      Call Move (X+7,Y+5);   Call Draw (X+7,Y+15);
      Call Point (X+6,Y+14);
      Call Move (X+8,Y+1);   Call Draw (X+8,Y+10);
      Call Move (X+9,Y+1);   Call Draw (X+9,Y+10);
      Call Move (X+10,Y+2);  Call Draw (X+10,Y+3);
      Call Move (X+10,Y+5);  Call Draw (X+10,Y+15);
      Call Move (X+11,Y+5);  Call Draw (X+11,Y+6);
      Call Point (X+11,Y+14);
      Call Move (X+12,Y+6);  Call Draw (X+12,Y+10);
      Call Move (X+13,Y+10); Call Draw (X+13,Y+16);
      Call GOODGET (PNORD);
    End;
 
    Unit PRINCEST: Procedure (OutPut PEST: ArrayOf Integer);
      Var X,Y: Integer;
    Begin
      X:=0;
      Y:=0;
      Call Cls;
      Call Move (X+1,Y+13);  Call Draw (X+4,Y+13);
      Call Draw (X+6,Y+11);  Call Draw (X+6,Y+9);
      Call Draw (X+10,Y+5);  Call Draw (X+10,Y+12);
      Call Draw (X+9,Y+13);  Call Draw (X+7,Y+13);
      Call Draw (X+7,Y+14);
      Call Move (X+10,Y+1);  Call Draw (X+10,Y+3);
      Call Move (X+11,Y+1);  Call Draw (X+11,Y+10);
      Call Move (X+12,Y+1);  Call Draw (X+12,Y+3);
      Call Point (X+13,Y+2);
      Call Move (X+12,Y+5);  Call Draw (X+12,Y+15);
      Call Point (X+13,Y+15);
      Call Point (X+13,Y+7);
      Call Move (X+14,Y+8);  Call Draw (X+15,Y+8);
      Call GOODGET (PEST);
    End;
 
    Unit PRINCSUD: Procedure (OutPut PSUD: ArrayOf Integer);
      Var X,Y: Integer;
    Begin
      X:=0;
      Y:=0;
      Call Cls;
      Call Move (X+4,Y+1);   Call Draw (X+4,Y+9);
      Call Point (X+5,Y+10);
      Call Move (X+6,Y+10);  Call Draw (X+6,Y+6);
      Call Move (X+7,Y+5);   Call Draw (X+7,Y+6);
      Call Move (X+8,Y+2);   Call Draw (X+8,Y+3);
      Call Move (X+8,Y+5);   Call Draw (X+8,Y+15);
      Call Point (X+7,Y+16);
      Call Move (X+9,Y+1);   Call Draw (X+9,Y+10);
      Call Move (X+10,Y+1);  Call Draw (X+10,Y+10);
      Call Move (X+11,Y+2);  Call Draw (X+11,Y+3);
      Call Move (X+11,Y+5);  Call Draw (X+11,Y+15);
      Call Move (X+12,Y+5);  Call Draw (X+12,Y+6);
      Call Move (X+12,Y+5);  Call Draw (X+12,Y+6);
      Call Point (X+12,Y+16);
      Call Move (X+13,Y+6);  Call Draw (X+13,Y+10);
      Call GOODGET (PSUD);
    End;
 
    Unit PRINCOUEST: Procedure (OutPut POUEST: ArrayOf Integer);
      Var X,Y: Integer;
    Begin
      X:=0;
      Y:=0;
      Call Cls;
      Call Move (X+2,Y+8);   Call Draw (X+3,Y+8);
      Call Point (X+4,Y+2);
      Call Point (X+4,Y+7);
      Call Move (X+5,Y+1);   Call Draw (X+5,Y+3);
      Call Move (X+5,Y+5);   Call Draw (X+5,Y+15);
      Call Draw (X+4,Y+15);
      Call Move (X+6,Y+1);   Call Draw (X+6,Y+10);
      Call Move (X+7,Y+1);   Call Draw (X+7,Y+3);
      Call Move (X+16,Y+4);  Call Draw (X+11,Y+4);
      Call Move (X+11,Y+5);
      Call Draw (X+9,Y+7);   Call Draw (X+7,Y+5);
      Call Draw (X+7,Y+12);  Call Draw (X+8,Y+13);
      Call Draw (X+10,Y+13); Call Draw (X+10,Y+14);
      Call GOODGET (POUEST);
    End;
 
    Unit PRINCESSE: Procedure (X,Y: Integer);
    Begin
      Call Point (X+5,Y+5);
      Call Point (X+12,Y+5);
      Call Move (X+8,Y+1);   Call Draw (X+11,Y+4);
      Call Move (X+9,Y+1);   Call Draw (X+6,Y+4);
      Call Move (X+7,Y+2);   Call Draw (X+13,Y+8);
      Call Move (X+10,Y+2);  Call Draw (X+4,Y+8);
      Call Point (X+4,Y+12);
      Call Move (X+5,Y+11);  Call Draw (X+5,Y+12);
      Call Move (X+6,Y+9);   Call Draw (X+6,Y+12);
      Call Point (X+7,Y+6);
      Call Move (X+7,Y+8);   Call Draw (X+7,Y+15);
      Call Move (X+8,Y+5);   Call Draw (X+8,Y+12);
      Call Move (X+9,Y+5);   Call Draw (X+9,Y+12);
      Call Point (X+10,Y+6);
      Call Move (X+10,Y+8);  Call Draw (X+10,Y+15);
      Call Move (X+11,Y+9);  Call Draw (X+11,Y+12);
      Call Move (X+12,Y+11); Call Draw (X+12,Y+12);
      Call Point (X+13,Y+12);
    End;
 
    Unit COEUR: Procedure (X,Y: Integer);
    Begin
      Call Move (X+8,Y+5);   Call Draw (X+6,Y+3);
      Call Draw (X+4,Y+3);   Call Draw (X+2,Y+5);
      Call Draw (X+2,Y+9);   Call Draw (X+7,Y+14);
      Call Draw (X+10,Y+14); Call Draw (X+15,Y+9);
      Call Draw (X+15,Y+5);  Call Draw (X+13,Y+3);
      Call Draw (X+11,Y+3);  Call Draw (X+9,Y+5);
      Call Move (X+4,Y+7);   Call Draw (X+4,Y+8);
      Call Draw (X+8,Y+12);  Call Draw (X+9,Y+12);
    End;
 
    Unit BBLANC: Procedure (X,Y: Integer);
    Begin
      Call Move (X+7,Y+3);   Call Draw (X+3,Y+7);
      Call Draw (X+3,Y+10);  Call Draw (X+7,Y+14);
      Call Draw (X+10,Y+14); Call Draw (X+14,Y+10);
      Call Draw (X+14,Y+7);  Call Draw (X+10,Y+3);
      Call Draw (X+7,Y+3);
      Call Move (X+5,Y+8);   Call Draw (X+5,Y+9);
      Call Draw (X+8,Y+12);  Call Draw (X+9,Y+12);
    End;
 
    Unit BNOIRE: Procedure (X,Y: Integer);
    Begin
      Call Move (X+3,Y+7);   Call Draw (X+3,Y+10);
      Call Move (X+4,Y+6);   Call Draw (X+4,Y+11);
      Call Move (X+5,Y+5);   Call Draw (X+5,Y+7);
      Call Move (X+5,Y+10);  Call Draw (X+5,Y+12);
      Call Move (X+6,Y+4);   Call Draw (X+6,Y+9);
      Call Move (X+6,Y+11);  Call Draw (X+6,Y+13);
      Call Move (X+7,Y+3);   Call Draw (X+7,Y+10);
      Call Move (X+7,Y+12);  Call Draw (X+7,Y+14);
      Call Move (X+8,Y+3);   Call Draw (X+8,Y+11);
      Call Move (X+8,Y+13);  Call Draw (X+8,Y+14);
      Call Move (X+9,Y+3);   Call Draw (X+9,Y+11);
      Call Move (X+9,Y+13);  Call Draw (X+9,Y+14);
      Call Move (X+10,Y+3);  Call Draw (X+10,Y+14);
      Call Move (X+11,Y+4);  Call Draw (X+11,Y+13);
      Call Move (X+12,Y+5);  Call Draw (X+12,Y+12);
      Call Move (X+13,Y+6);  Call Draw (X+13,Y+11);
      Call Move (X+14,Y+7);  Call Draw (X+14,Y+10);
    End;
 
    Unit BARNORD: Procedure (X,Y: Integer);
    Begin
      Call Move (X+5,Y+1);   Call Draw (X+5,Y+4);
      Call Move (X+12,Y+1);  Call Draw (X+12,Y+4);
    End;
 
    Unit BAROUEST: Procedure (X,Y: Integer);
    Begin
      Call Move (X+1,Y+5);   Call Draw (X+4,Y+5);
      Call Move (X+1,Y+12);  Call Draw (X+4,Y+12);
    End;
 
    Unit BARSUD: Procedure (X,Y: Integer);
    Begin
      Call Move (X+5,Y+13);  Call Draw (X+5,Y+16);
      Call Move (X+12,Y+13); Call Draw (X+12,Y+16);
    End;
 
    Unit BAREST: Procedure (X,Y: Integer);
    Begin
      Call Move (X+13,Y+5);  Call Draw (X+16,Y+5);
      Call Move (X+13,Y+12); Call Draw (X+16,Y+12);
    End;
 
    Unit BARHORIZ: Procedure (X,Y: Integer);
    Begin
      Call Move (X+1,Y+5);   Call Draw (X+16,Y+5);
      Call Move (X+1,Y+10);  Call Draw (X+16,Y+10);
      Call Move (X+1,Y+12);   Call Draw (X+16,Y+12);
    End;
 
    Unit BARVERTI: Procedure (X,Y: Integer);
    Begin
      Call Move (X+5,Y+1);   Call Draw (X+5,Y+16);
      Call Move (X+7,Y+1);   Call Draw (X+7,Y+16);
      Call Move (X+12,Y+1);  Call Draw (X+12,Y+16);
    End;
 
    Unit TOMBE: Procedure (X,Y: Integer);
    Begin
      Call Move (X+2,Y+5);   Call Draw (X+6,Y+3);
      Call Move (X+4,Y+1);   Call Draw (X+4,Y+8);
      Call Draw (X+6,Y+8);   Call Draw (X+15,Y+13);
      Call Draw (X+12,Y+16);
      Call Move (X+11,Y+16); Call Draw (X+2,Y+11);
      Call Move (X+2,Y+10);  Call Draw (X+4,Y+8);
      Call Move (X+4,Y+11);  Call Draw (X+11,Y+14);
    End;
 
    Unit PELOTE: Procedure (X,Y: Integer);
    Begin
      Call Move (X+6,Y+2);
      Call Draw (X+2,Y+6);   Call Draw (X+2,Y+11);
      Call Draw (X+6,Y+15);  Call Draw (X+11,Y+15);
      Call Draw (X+15,Y+11); Call Draw (X+15,Y+6);
      Call Draw (X+11,Y+2);  Call Draw (X+6,Y+2);
      Call Draw (X+6,Y+9);   Call Draw (X+11,Y+14);
      Call Draw (X+11,Y+8);
      Call Move (X+4,Y+5);   Call Draw (X+4,Y+10);
      Call Draw (X+8,Y+14);
      Call Move (X+13,Y+12); Call Draw (X+13,Y+5);
      Call Draw (X+9,Y+9);   Call Draw (X+9,Y+11);
      Call Point (X+8,Y+10);
      Call Move (X+9,Y+3);   Call Draw (X+7,Y+5);
      Call Move (X+11,Y+4);  Call Draw (X+7,Y+8);
    End PELOTE;
 
 
    Unit FIN: Procedure (X,Y: Integer);
    Begin
      Call Move (X,Y);       Call Draw (X+32,Y);
      Call Draw (X+32,Y+19); Call Draw (X,Y+19);
      Call Draw (X,Y);
      Call Move (X+10,Y+5);
      Call Draw (X+10,Y+4);  Call Draw (X+4,Y+4);
      Call Draw (X+4,Y+15);  Call Draw (X+6,Y+15);
      Call Draw (X+6,Y+4);
      Call Point (X+7,Y+10); Call Point (X+8,Y+10);
      Call Point (X+8,Y+11);
      Call Move (X+13,Y+4);  Call Draw (X+17,Y+4);
      Call Move (X+13,Y+15); Call Draw (X+17,Y+15);
      Call Move (X+14,Y+5);  Call Draw (X+14,Y+14);
      Call Move (X+16,Y+5);  Call Draw (X+16,Y+14);
      Call Move (X+22,Y+4);  Call Draw (X+20,Y+4);
      Call Draw (X+20,Y+15); Call Draw (X+22,Y+15);
      Call Draw (X+22,Y+4);  Call Draw (X+29,Y+15);
      Call Draw (X+29,Y+4);  Call Draw (X+28,Y+4);
    End FIN;
 
    Unit BLANC: Procedure (X,Y: Integer);
      Var I: Integer;
    Begin
      Call Color (0);
      For I:=1 To 16
      Do
        Call Move (X+1,Y+I);
        Call Draw (X+16,Y+I);
      Od;
      Call Color (15);
    End BLANC;
 
(* ------------------------------------------------------------------------- *)
 
    Unit GOODGET: Procedure (OutPut PDIR: ArrayOf Integer);
      Var TAB: ArrayOf Integer,
          I,J: Integer;
    Begin
      Array PDIR Dim (1:66);
      Call Move (1,1);
      TAB:= GetMap (16,16);
      PDIR (1):= TAB (1);
      For I:=1 To 4
      Do
        For J:=1 To 8
        Do
          PDIR (1+8*(I-1)+J):= TAB (1+J);
        Od;
      Od;
      Kill (TAB);
    End GOODGET;
 
(* ------------------------------------------------------------------------- *)
 
    Unit TEMPO: Procedure (T: Integer);
      Var I: Integer;
    Begin
      For I:=1 To T
      Do
      Od;
    End TEMPO;
 
(* ------------------------------------------------------------------------- *)
 
      Unit XCASE: Function (XC: Integer): Integer;
      Begin
        Result:= BX+32*(XC-1)+16;
      End;
 
(* ------------------------------------------------------------------------- *)
 
      Unit YCASE: Function (YC: Integer): Integer;
      Begin
        Result:= BY+32*(YC-1)+16;
      End;
 
(* ------------------------------------------------------------------------- *)
(* ------------------------------------------------------------------------- *)
 
    Unit INITLABY: Procedure (OutPut LABY: ArrayOf ArrayOf PIECE);
      Var I,J,LIG,COL: Integer;
    Begin
      LIG:= 10;
      COL:= 15;
      Array LABY Dim (1:LIG);
      For I:=1 To LIG
      Do
        Array LABY (I) Dim (1:COL);
        For J:=1 to COL
        Do
          LABY (I,J):= New PIECE (True,True,True,True,False);
        Od
      Od;
      BX:= (496-(COL*32+16)) DIV 2;
      BY:= (336-(LIG*32+16)) DIV 2;
    End INITLABY;
 
(* ------------------------------------------------------------------------- *)
(* ------------------------------------------------------------------------- *)
 
    Unit BATIR: Procedure (InOut LABY: ArrayOf ArrayOf PIECE;
                                               OutPut ENTREE,SORTIE: SALLE);
 
      Unit XBOUL: Function (XB: Integer): Integer;
      Begin
        Result:= BX+32*(XB-1);
      End;
 
(* ------------------------------------------------------------------------- *)
 
      Unit YBOUL: Function (YB: Integer): Integer;
      Begin
        Result:= BY+32*(YB-1);
      End;
 
(* ------------------------------------------------------------------------- *)
 
      Unit AFFMUR: Procedure (YDEB,XDEB: Integer; COUL,DIR: Boolean);
        Var X,Y: Integer;
      Begin
        If COUL
        Then
          Call Color (15);
        Else
          Call Color (0);
        Fi;
        X:= XBOUL (XDEB);
        Y:= YBOUL (YDEB);
        If DIR= VERTI
        Then
          Call BARSUD (X,Y);
          Call BARVERTI (X,Y+16);
          Call BARNORD (X,Y+32);
          If XDEB>1
          Then
            LABY(YDEB,XDEB-1).E:= Not COUL;
          Fi;
          If XDEB<=Upper (LABY (1))
          Then
            LABY(YDEB,XDEB).O:= Not COUL;
          Fi;
        Else                        (* DIR=HORIZ *)
          Call BAREST (X,Y);
          Call BARHORIZ (X+16,Y);
          Call BAROUEST (X+32,Y);
          If YDEB>1
          Then
            LABY(YDEB-1,XDEB).S:= Not COUL;
          Fi;
          If YDEB<=Upper (LABY)
          Then
            LABY(YDEB,XDEB).N:= Not COUL;
          Fi;
        Fi;
        Call Color (15);
      End AFFMUR;
 
(* ------------------------------------------------------------------------- *)
 
      Unit AFFLONGMUR: Procedure (XDEB,YDEB,XFIN,YFIN: Integer,COUL: Boolean);
        Var DEB,FIN,I: Integer;
      Begin
        If XDEB=XFIN And YDEB=/=YFIN
        Then
          DEB:= IMIN (YDEB,YFIN);
          FIN:= IMAX (YDEB,YFIN);
          For I:= DEB To FIN-1
          Do
            Call AFFMUR (I,XDEB,COUL,VERTI);
          Od;
        Else
          If YDEB=YFIN And XDEB=/=XFIN
          Then
            DEB:= IMIN (XDEB,XFIN);
            FIN:= IMAX (XDEB,XFIN);
            For I:= DEB To FIN-1
            Do
              Call AFFMUR (YDEB,I,COUL,HORIZ);
            Od;
          Else
            Write (Chr(7));
          Fi;
        Fi;
      End AFFLONGMUR;
 
(* ------------------------------------------------------------------------- *)
 
      Unit CREERLABY: Procedure (InOut LABY: ArrayOf ArrayOf PIECE);
 
        Unit BOULPROCH: Procedure (X,Y: Integer;
                               OutPut XBL,YBL: Integer; OutPut ERR: Boolean);
        Begin
          ERR:= False;
          XBL:= (X-BX+8) DIV 32+1;
          If XBL>Upper (LABY (1))+1
          Then
            ERR:= True;
          Else
            YBL:= (Y-BY+8) DIV 32+1;
            If YBL>Upper (LABY)+1
            Then
              ERR:= True;
            Fi;
          Fi;
        End BOULPROCH;
 
(* ------------------------------------------------------------------------- *)
 
        Unit BOULBLNR: Procedure (XBL,YBL: Integer);
          Var X,Y: Integer;
        Begin
          X:= XBOUL (XBL);
          Y:= YBOUL (YBL);
          Call Move (X,Y);
          Call Color (0);
          Call BBLANC (X,Y);
          Call Color (15);
          Call BNOIRE (X,Y);
        End BOULBLNR;
 
(* ------------------------------------------------------------------------- *)
 
        Unit BOULNRBL: Procedure (XBL,YBL: Integer);
          Var X,Y: Integer;
        Begin
          X:= XBOUL (XBL);
          Y:= YBOUL (YBL);
          Call Move (X,Y);
          Call Color (0);
          Call BNOIRE (X,Y);
          Call Color (15);
          Call BBLANC (X,Y);
        End BOULNRBL;
 
(* ------------------------------------------------------------------------- *)
 
        Var X,Y,XDEB,YDEB,XFIN,YFIN: Integer,
            LEFT,RIGHT,CENTER,ERREUR,BORD: Boolean;
      Begin
        Call ShowCursor;
        Do
          Call Status (X,Y,LEFT,RIGHT,CENTER);
          If (LEFT Or RIGHT) And X>XFINI And X<XFINI+32
                             And Y>YFINI And Y<YFINI+18
          Then
            Exit;
          Else
            If LEFT
            Then
              Call BOULPROCH (X,Y,XDEB,YDEB,ERREUR);
              If Not ERREUR
              Then
                Call HideCursor;
                Call BOULBLNR (XDEB,YDEB);
                Call ShowCursor;
                Call TEMPO (200);
                Do
                  Call Status (X,Y,LEFT,RIGHT,CENTER);
                  If RIGHT
                  Then
                    Call HideCursor;
                    Call BOULNRBL (XDEB,YDEB);
                    Call ShowCursor;
                    Call TEMPO (200);
                    Exit;
                  Else
                    If LEFT
                    Then
                      Call BOULPROCH (X,Y,XFIN,YFIN,ERREUR);
                      If Not ERREUR
                      Then
                        Call HideCursor;
                        Call BOULNRBL (XDEB,YDEB);
                        BORD:= (XDEB=XFIN And (XDEB=1 Or
                                XDEB=Upper (LABY(1))+1)) Or
                               (YDEB=YFIN And (YDEB=1 Or
                                YDEB=Upper (LABY)+1));
                        If Not BORD
                        Then
                          Call AFFLONGMUR (XDEB,YDEB,XFIN,YFIN,BLANC);
                          Call ShowCursor;
                          Call TEMPO (200);
                        Else
                          Call ShowCursor;
                          Write (Chr (7));
                        Fi;
                        Exit;
                      Fi;
                    Fi;
                  Fi;
                Od;
              Fi;
            Else
              If RIGHT
              Then
                Call BOULPROCH (X,Y,XDEB,YDEB,ERREUR);
                If Not ERREUR
                Then
                  Call HideCursor;
                  Call BOULBLNR (XDEB,YDEB);
                  Call ShowCursor;
                  Call TEMPO (200);
                  Do
                    Call Status (X,Y,LEFT,RIGHT,CENTER);
                    If LEFT
                    Then
                        Call HideCursor;
                        Call BOULNRBL (XDEB,YDEB);
                        Call ShowCursor;
                        Call TEMPO (200);
                        Exit;
                    Else
                      If RIGHT
                      Then
                        Call BOULPROCH (X,Y,XFIN,YFIN,ERREUR);
                        If Not ERREUR
                        Then
                          Call HideCursor;
                          Call BOULNRBL (XDEB,YDEB);
                          BORD:=(XDEB=XFIN And (XDEB=1 Or
                                 XDEB=Upper(LABY(1))+1)) Or
                                (YDEB=YFIN And (YDEB=1 Or
                                 YDEB=Upper (LABY)+1));
                          If Not BORD
                          Then
                            Call AFFLONGMUR (XDEB,YDEB,XFIN,YFIN,NOIR);
                            Call ShowCursor;
                            Call TEMPO (200);
                          Else
                            Call ShowCursor;
                            Write (Chr (7));
                          Fi;
                          Exit;
                        Fi;
                      Fi;
                    Fi;
                  Od;
                Fi;
              Fi;
            Fi;
          Fi;
        Od;
        Call HideCursor;
        Call TEMPO (200);
      End CREERLABY;
 
(* ------------------------------------------------------------------------- *)
 
      Unit PLACENTSORT: Procedure (OutPut ENTREE,SORTIE: SALLE);
 
        Unit CASEPROCH: Procedure (X,Y: Integer;
                               OutPut XC,YC: Integer; OutPut ERR: Boolean);
        Begin
          ERR:= False;
          XC:= (X-BX-8) DIV 32+1;
          If XC>Upper (LABY (1)) Or XC<1
          Then
            ERR:= True;
          Else
            YC:= (Y-BY-8) DIV 32+1;
            If YC>Upper (LABY) Or YC<1
            Then
              ERR:= True;
            Fi;
          Fi;
        End CASEPROCH;
 
(* ------------------------------------------------------------------------- *)
 
        Var X,Y,XC,YC: Integer,
            LEFT,RIGHT,CENTER,ERREUR,PLACENTREE,PLACSORTIE,OCCUPEE: Boolean;
      Begin
        Call ShowCursor;
        PLACENTREE:= False;
        PLACSORTIE:= False;
        Do
          Call Status (X,Y,LEFT,RIGHT,CENTER);
          If (LEFT Or RIGHT) And PLACENTREE And PLACSORTIE And X>XFINI
                             And X<XFINI+32 And Y>YFINI And Y<YFINI+16
          Then
            Exit;
          Else
            If LEFT
            Then
              Call CASEPROCH (X,Y,XC,YC,ERREUR);
              If Not ERREUR
              Then
                If PLACENTREE AndIf ENTREE.L=YC And ENTREE.C=XC
                Then
                  PLACENTREE:= False;
                  Kill (ENTREE);
                  Call HideCursor;
                  Call Color (0);
                  Call PRINCE (XCASE (XC),YCASE (YC));
                  Call Color (15);
                  Call ShowCursor;
                  Call TEMPO (200);
                Else
                  If Not PLACENTREE
                  Then
                    If Not PLACSORTIE OrIf (PLACSORTIE And
                                           (SORTIE.L=/=YC Or SORTIE.C=/=XC))
                    Then
                      ENTREE:= New SALLE (YC,XC,LABY (YC,XC));
                      PLACENTREE:= True;
                      Call HideCursor;
                      Call PRINCE (XCASE (XC),YCASE (YC));
                      Call ShowCursor;
                      Call TEMPO (200);
                    Else
                      Write (Chr (7));
                    Fi;
                  Fi;
                Fi;
              Fi;
            Else
              If RIGHT
              Then
                Call CASEPROCH (X,Y,XC,YC,ERREUR);
                If Not ERREUR
                Then
                  If PLACSORTIE AndIf SORTIE.L=YC And SORTIE.C=XC
                  Then
                    PLACSORTIE:= False;
                    Kill (SORTIE);
                    Call HideCursor;
                    Call Color (0);
                    Call PRINCESSE (XCASE (XC),YCASE (YC));
                    Call Color (15);
                    Call ShowCursor;
                    Call TEMPO (200);
                  Else
                    If Not PLACSORTIE
                    Then
                      If Not PLACENTREE OrIf (PLACENTREE And
                                             (ENTREE.L=/=YC Or ENTREE.C=/=XC))
                      Then
                        SORTIE:= New SALLE (YC,XC,LABY (YC,XC));
                        PLACSORTIE:= True;
                        Call HideCursor;
                        Call PRINCESSE (XCASE (XC),YCASE (YC));
                        Call ShowCursor;
                        Call TEMPO (200);
                      Else
                        Write (Chr (7));
                      Fi;
                    Fi;
                  Fi;
                Fi;
              Fi;
            Fi;
          Fi;
        Od;
        Call HideCursor;
        Call TEMPO (200);
      End PLACENTSORT;
 
(* ------------------------------------------------------------------------- *)
 
      Const VERTI= True,
            HORIZ= False,
            BLANC= True,
            NOIR = False,
            XFINI= 552,
            YFINI= 310;
      Var LIG,COL: Integer;
    Begin
      Call Cls;
      For LIG:=1 To Upper (LABY)+1
      Do
        For COL:=1 To Upper (LABY (1))+1
        Do
          Call BBLANC (BX+32*(COL-1), BY+32*(LIG-1));
        Od;
      Od;
      Call AFFLONGMUR (1,1,Upper (LABY(1))+1,1,BLANC);
      Call AFFLONGMUR (1,Upper (LABY)+1,
                                      Upper (LABY(1))+1,Upper (LABY)+1,BLANC);
      Call AFFLONGMUR (1,1,1,Upper (LABY)+1,BLANC);
      Call AFFLONGMUR (Upper (LABY(1))+1,1,
                                       Upper(LABY(1))+1, Upper (LABY)+1,BLANC);
      Call FIN (XFINI,YFINI);
      Call CREERLABY (LABY);
      Call PLACENTSORT (ENTREE,SORTIE);
      Call Color (0);
      Call FIN (XFINI,YFINI);
      Call Color (15);
    End BATIR;
 
(* ------------------------------------------------------------------------- *)
(* ------------------------------------------------------------------------- *)
 
    Unit CHERCHER: LIFO Procedure (LABY: ArrayOf ArrayOf PIECE,
                                                        ENTREE,SORTIE: SALLE);
 
    Unit DEPNORD: Procedure (E: ELEM; InOut POS: Integer);
      Var I: Integer;
    Begin
      Call Color (COUL);
      If E.S.L+1=/=ENTREE.L Or E.S.C=/=ENTREE.C
      Then
        Case POS
          When 1 : Call Move (XCASE (E.S.C)+12,YCASE (E.S.L)+47);
                   Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L)+32);
          When 2 : Call Move (XCASE (E.S.C),YCASE (E.S.L)+44);
                   Call Draw (XCASE (E.S.C)+6,YCASE (E.S.L)+44);
                   Call Move (XCASE (E.S.C)+7,YCASE (E.S.L)+43);
                   Call Draw (XCASE (E.S.C)+8,YCASE (E.S.L)+43);
                   Call Draw (XCASE (E.S.C)+11,YCASE (E.S.L)+40);
                   Call Draw (XCASE (E.S.C)+11,YCASE (E.S.L)+39);
                   Call Move (XCASE (E.S.C)+12,YCASE (E.S.L)+38);
                   Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L)+32);
          When 4 : Call Move (XCASE (E.S.C)+15,YCASE (E.S.L)+35);
                   Call Draw (XCASE (E.S.C)+14,YCASE (E.S.L)+35);
                   Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L)+33);
                   Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L)+32);
        Esac;
      Fi;
      Call Move (XCASE (E.S.C),YCASE (E.S.L)+16);
      Call XorMap (PNORD);
      Call TEMPO (TEMPS);
      Call XorMap (PNORD);
      Call Move (XCASE (E.S.C)+12,YCASE (E.S.L)+31);
      Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L)+16);
      Call Move (XCASE (E.S.C),YCASE (E.S.L));
      Call XorMap (PNORD);
      Call TEMPO (TEMPS);
      Call XorMap (PNORD);
      Call Color (15);
      POS:= 1;
    End DEPNORD;
 
(* ------------------------------------------------------------------------- *)
 
    Unit DEPEST: Procedure (E: ELEM; InOut POS: Integer);
      Var I: Integer;
    Begin
      Call Color (COUL);
      If E.S.L=/=ENTREE.L Or E.S.C-1=/=ENTREE.C
      Then
        Case POS
          When 2 : Call Move (XCASE (E.S.C)-32,YCASE (E.S.L)+12);
                   Call Draw (XCASE (E.S.C)-17,YCASE (E.S.L)+12);
          When 3 : Call Move (XCASE (E.S.C)-29,YCASE (E.S.L));
                   Call Draw (XCASE (E.S.C)-29,YCASE (E.S.L)+6);
                   Call Move (XCASE (E.S.C)-28,YCASE (E.S.L)+7);
                   Call Draw (XCASE (E.S.C)-28,YCASE (E.S.L)+8);
                   Call Draw (XCASE (E.S.C)-27,YCASE (E.S.L)+11);
                   Call Draw (XCASE (E.S.C)-26,YCASE (E.S.L)+11);
                   Call Move (XCASE (E.S.C)-25,YCASE (E.S.L)+12);
                   Call Draw (XCASE (E.S.C)-17,YCASE (E.S.L)+12);
          When 1 : Call Move (XCASE (E.S.C)-20,YCASE (E.S.L)+15);
                   Call Draw (XCASE (E.S.C)-20,YCASE (E.S.L)+14);
                   Call Draw (XCASE (E.S.C)-18,YCASE (E.S.L)+12);
                   Call Draw (XCASE (E.S.C)-17,YCASE (E.S.L)+12);
        Esac;
      Fi;
      Call Move (XCASE (E.S.C)-16,YCASE (E.S.L));
      Call XorMap (PEST);
      Call TEMPO (TEMPS);
      Call XorMap (PEST);
      Call Move (XCASE (E.S.C)-16,YCASE (E.S.L)+12);
      Call Draw (XCASE (E.S.C)-1,YCASE (E.S.L)+12);
      Call Move (XCASE (E.S.C),YCASE (E.S.L));
      Call XorMap (PEST);
      Call TEMPO (TEMPS);
      Call XorMap (PEST);
      Call Color (15);
      POS:= 2;
    End DEPEST;
 
(* ------------------------------------------------------------------------- *)
 
    Unit DEPSUD: Procedure (E: ELEM; InOut POS: Integer);
      Var I: Integer;
    Begin
      Call Color (COUL);
      If E.S.L-1=/=ENTREE.L Or E.S.C=/=ENTREE.C
      Then
        Case POS
          When 3 : Call Move (XCASE (E.S.C)+3,YCASE (E.S.L)-32);
                   Call Draw (XCASE (E.S.C)+3,YCASE (E.S.L)-17);
          When 4 : Call Move (XCASE (E.S.C)+15,YCASE (E.S.L)-29);
                   Call Draw (XCASE (E.S.C)+9,YCASE (E.S.L)-29);
                   Call Move (XCASE (E.S.C)+8,YCASE (E.S.L)-28);
                   Call Draw (XCASE (E.S.C)+7,YCASE (E.S.L)-28);
                   Call Draw (XCASE (E.S.C)+4,YCASE (E.S.L)-27);
                   Call Draw (XCASE (E.S.C)+4,YCASE (E.S.L)-26);
                   Call Move (XCASE (E.S.C)+3,YCASE (E.S.L)-25);
                   Call Draw (XCASE (E.S.C)+3,YCASE (E.S.L)-17);
          When 2 : Call Move (XCASE (E.S.C),YCASE (E.S.L)-20);
                   Call Draw (XCASE (E.S.C)+1,YCASE (E.S.L)-20);
                   Call Draw (XCASE (E.S.C)+3,YCASE (E.S.L)-18);
                   Call Draw (XCASE (E.S.C)+3,YCASE (E.S.L)-17);
        Esac;
      Fi;
      Call Move (XCASE (E.S.C),YCASE (E.S.L)-16);
      Call XorMap (PSUD);
      Call TEMPO (TEMPS);
      Call XorMap (PSUD);
      Call Move (XCASE (E.S.C)+3,YCASE (E.S.L)-16);
      Call Draw (XCASE (E.S.C)+3,YCASE (E.S.L)-1);
      Call Move (XCASE (E.S.C),YCASE (E.S.L));
      Call XorMap (PSUD);
      Call TEMPO (TEMPS);
      Call XorMap (PSUD);
      Call Color (15);
      POS:= 3;
    End DEPSUD;
 
(* ------------------------------------------------------------------------- *)
 
    Unit DEPOUEST: Procedure (E: ELEM; InOut POS: Integer);
      Var I: Integer;
    Begin
      Call Color (COUL);
      If E.S.L=/=ENTREE.L Or E.S.C+1=/=ENTREE.C
      Then
        Case POS
          When 4 : Call Move (XCASE (E.S.C)+47,YCASE (E.S.L)+3);
                   Call Draw (XCASE (E.S.C)+32,YCASE (E.S.L)+3);
          When 1 : Call Move (XCASE (E.S.C)+44,YCASE (E.S.L)+15);
                   Call Draw (XCASE (E.S.C)+44,YCASE (E.S.L)+9);
                   Call Move (XCASE (E.S.C)+43,YCASE (E.S.L)+8);
                   Call Draw (XCASE (E.S.C)+43,YCASE (E.S.L)+7);
                   Call Draw (XCASE (E.S.C)+40,YCASE (E.S.L)+4);
                   Call Draw (XCASE (E.S.C)+39,YCASE (E.S.L)+4);
                   Call Move (XCASE (E.S.C)+38,YCASE (E.S.L)+3);
                   Call Draw (XCASE (E.S.C)+32,YCASE (E.S.L)+3);
          When 3 : Call Move (XCASE (E.S.C)+35,YCASE (E.S.L));
                   Call Draw (XCASE (E.S.C)+35,YCASE (E.S.L)+1);
                   Call Draw (XCASE (E.S.C)+33,YCASE (E.S.L)+3);
                   Call Draw (XCASE (E.S.C)+32,YCASE (E.S.L)+3);
        Esac;
      Fi;
      Call Move (XCASE (E.S.C)+16,YCASE (E.S.L));
      Call XorMap (POUEST);
      Call TEMPO (TEMPS);
      Call XorMap (POUEST);
      Call Move (XCASE (E.S.C)+31,YCASE (E.S.L)+3);
      Call Draw (XCASE (E.S.C)+16,YCASE (E.S.L)+3);
      Call Move (XCASE (E.S.C),YCASE (E.S.L));
      Call XorMap (POUEST);
      Call TEMPO (TEMPS);
      Call XorMap (POUEST);
      Call Color (15);
      POS:= 4;
    End DEPOUEST;
 
(* ------------------------------------------------------------------------- *)
 
    Unit DEMITOUR: Procedure (E: ELEM; InOut POS: Integer, DMTR: Boolean);
    Begin
      If DMTR
      Then
        Call Color (COUL);
        Case POS
          When 1 : Call Move (XCASE (E.S.C)+3,YCASE (E.S.L));
                   Call Draw (XCASE (E.S.C)+3,YCASE (E.S.L)+5);
                   Call Draw (XCASE (E.S.C)+5,YCASE (E.S.L)+7);
                   Call Draw (XCASE (E.S.C)+10,YCASE (E.S.L)+7);
                   Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L)+5);
                   Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L));
          When 2 : Call Move (XCASE (E.S.C)+15,YCASE (E.S.L)+3);
                   Call Draw (XCASE (E.S.C)+10,YCASE (E.S.L)+3);
                   Call Draw (XCASE (E.S.C)+8,YCASE (E.S.L)+5);
                   Call Draw (XCASE (E.S.C)+8,YCASE (E.S.L)+10);
                   Call Draw (XCASE (E.S.C)+10,YCASE (E.S.L)+12);
                   Call Draw (XCASE (E.S.C)+15,YCASE (E.S.L)+12);
          When 3 : Call Move (XCASE (E.S.C)+3,YCASE (E.S.L)+15);
                   Call Draw (XCASE (E.S.C)+3,YCASE (E.S.L)+10);
                   Call Draw (XCASE (E.S.C)+5,YCASE (E.S.L)+8);
                   Call Draw (XCASE (E.S.C)+10,YCASE (E.S.L)+8);
                   Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L)+10);
                   Call Draw (XCASE (E.S.C)+12,YCASE (E.S.L)+15);
          When 4 : Call Move (XCASE (E.S.C),YCASE (E.S.L)+3);
                   Call Draw (XCASE (E.S.C)+5,YCASE (E.S.L)+3);
                   Call Draw (XCASE (E.S.C)+7,YCASE (E.S.L)+5);
                   Call Draw (XCASE (E.S.C)+7,YCASE (E.S.L)+10);
                   Call Draw (XCASE (E.S.C)+5,YCASE (E.S.L)+12);
                   Call Draw (XCASE (E.S.C),YCASE (E.S.L)+12);
        Esac;
        Call Color (15);
        POS:= 0;
        DMTR:= False;
      Fi;
      If E.S.L=E.ANTE.S.L
      Then
        If E.S.C>E.ANTE.S.C
        Then
          Call DEPOUEST (E.ANTE,POS);
        Else
          Call DEPEST (E.ANTE,POS);
        Fi;
      Else
        If E.S.L>E.ANTE.S.L
        Then
          Call DEPSUD (E.ANTE,POS);
        Else
          Call DEPNORD (E.ANTE,POS);
        Fi;
      Fi;
    End DEMITOUR;
 
(* ------------------------------------------------------------------------- *)
 
      Const TEMPS= 150,
            COUL= 7;
      Var I,POS: Integer,
          TROUVE,FIN,DMTR: Boolean,
          AUX,ENT: SALLE,
          E: ELEM,
          P: PILE,
          TAB: ArrayOf Integer;
    Begin
      DMTR:= True;
      P:= New PILE;
      ENTREE.PC.MARQUE:= True;
      E:= New ELEM (ENTREE);
      Call EMPIL (E,P);
      Call BLANC (XCASE (ENTREE.C),YCASE (ENTREE.L));
      Call PELOTE (XCASE (ENTREE.C),YCASE (ENTREE.L));
      ENT:= Copy (ENTREE);
      TROUVE:= False;
      While Not TROUVE
      Do
        FIN:= False;
        While Not FIN
        Do
          AUX:= E.S;
          If E.S.PC.N AndIf Not LABY (E.S.L-1,E.S.C).MARQUE
          Then
            E:= New ELEM (New SALLE (AUX.L-1,AUX.C,LABY (AUX.L-1,AUX.C)));
            E.S.PC.MARQUE:= True;
            Call EMPIL (E,P);
            Call DEPNORD (E,POS);
          Else
            If AUX.PC.E AndIf Not LABY (AUX.L,AUX.C+1).MARQUE
            Then
              E:= New ELEM (New SALLE (AUX.L,AUX.C+1,LABY (AUX.L,AUX.C+1)));
              E.S.PC.MARQUE:= True;
              Call EMPIL (E,P);
              Call DEPEST (E,POS);
            Else
              If AUX.PC.S AndIf Not LABY (AUX.L+1,AUX.C).MARQUE
              Then
                E:= New ELEM (New SALLE (AUX.L+1,AUX.C,LABY (AUX.L+1,AUX.C)));
                E.S.PC.MARQUE:= True;
                Call EMPIL (E,P);
                Call DEPSUD (E,POS);
              Else
                If AUX.PC.O AndIf Not LABY (AUX.L,AUX.C-1).MARQUE
                Then
                  E:= New ELEM (New SALLE (AUX.L,AUX.C-1,
                                                       LABY (AUX.L,AUX.C-1)));
                  E.S.PC.MARQUE:= True;
                  Call EMPIL (E,P);
                  Call DEPOUEST (E,POS);
                Else
                  FIN:= True;
                Fi;
              Fi;
            Fi;
          Fi;
          If Not FIN
          Then
            DMTR:= True;
            If E.S.L=SORTIE.L And E.S.C=SORTIE.C
            Then
              TROUVE:= True;
              FIN:= True;
            Fi;
          Fi;
        Od;
        If Not TROUVE
        Then
          Call DEMITOUR (E,POS,DMTR);
          Call DEPIL (P);
          If Not VIDE (P)
          Then
            E:= P.PREM;
          Else
            Exit;
          Fi;
        Fi;
      Od;
      If TROUVE
      Then
        Call BLANC (XCASE (SORTIE.C),YCASE (SORTIE.L));
        Call COEUR (XCASE (SORTIE.C),YCASE (SORTIE.L));
        Write (Chr(7));
        Write (Chr(7));
      Else
        Call BLANC (XCASE (ENT.C),YCASE (ENT.L));
        Call TOMBE (XCASE (ENT.C),YCASE (ENT.L));
        Call BLANC (XCASE (SORTIE.C),YCASE (SORTIE.L));
        Call TOMBE (XCASE (SORTIE.C),YCASE (SORTIE.L));
        Write (Chr(7));
      Fi;
    End CHERCHER;
 
(* ------------------------------------------------------------------------- *)
 
  Unit TOUCHE: Procedure;
    Var I: Integer;
  Begin
    I:= 0;
    While I<>32
    Do
      I:= Inkey;
    Od;
  End TOUCHE;
 
(* ------------------------------------------------------------------------- *)
 
    Var BX,BY,NBOUT: Integer,
        SOURIS: Boolean,
        PNORD,PEST,PSUD,POUEST: ArrayOf Integer;
  Begin
    Call Gron (1);
    Call PRINCNORD (PNORD);
    Call PRINCEST (PEST);
    Call PRINCSUD (PSUD);
    Call PRINCOUEST (POUEST);
    SOURIS:= Init (NBOUT);
    If SOURIS
    Then
      Inner;
    Fi;
    Call TOUCHE;
    Call Groff;
  End LABYGRAPH;
 
(* ------------------------------------------------------------------------- *)
(* ------------------------------------------------------------------------- *)
 
 Begin
 
  Pref LABYGRAPH Block
    Var LABY: ArrayOf ArrayOf PIECE,
        ENTREE,SORTIE: SALLE;
  Begin
    (*Do*)
      Call INITLABY (LABY);
      Call BATIR (LABY,ENTREE,SORTIE);
      Call CHERCHER (LABY,ENTREE,SORTIE);
    (*Od;*)
  End;
 End;
End LABYRINTHE