Lbl Z ClrText 0->A~Z 0->r 0->t {7,21->Dim Mat A {2,5->Dim Mat B Do RanBin#(1,21->A RanBin#(1,7->B LpWhile Mat A[B,A 1->Mat A[B,A Locate A,B,"$" 2->X~Y 0->C~E 0->T~V 1->S 3->N 5->L 0->Z While 1 Isz N N=L=>1->N Getkey If Ans=79 Then Do Getkey LpWhile Ans!=31 IfEnd If S Then If Ans=28 Then 0->S º1->T IfEnd If Ans=37 Then 0->S 1ã->T IfEnd Else If Ans=27 Then 0->T 1->S IfEnd If Ans=38 Then 0->T -1->S IfEnd IfEnd X+S->X Y+T->Y X=0=>21->X X=22=>1->X Y=0=>7->Y Y=8=>1->Y If Mat B[1,N Then 0->Mat A[Mat B[2,N],Mat B[1,N Locate Mat B[1,N],Mat B[2,N]," " IfEnd Locate X,Y,"#" If 1=Mat A[Y,X Then Isz L Augment(Mat B,[[0][0->Mat B Do Int 21Ran#+1->A Int 7Ran#+1->B LpWhile Mat A[B,A 1->Mat A[B,A Locate A,B,"$" L=R=>1->Z If L=25 And r Then 2->Z IfEnd r=>200(r-2)+10L-50->P r=π=>2000ãP 0=r×10L-50->P Locate 19,1,P Else Mat A[Y,X=>1->Z IfEnd Z=>Break 3->Mat A[Y,X] X->Mat B[1,N] Y->Mat B[2,N] WhileEnd ClrText Locate 9,3,"PERDU" Locate 7,5,"SCORE: " Locate 13,5,P While 1 Getkey Getkey=47=>Stop Getkey=31=>Goto Z WhileEnd