ViewWindow 1,127,0,63,1,0Ů "1:Continuer"Ů "2:Recommencer"Ů "3:Nouvelle grille"Ů DoŮ GetkeyŮ Ans=72×Goto 9Ů Ans=62×0ăOŮ Ans=62×Mat BăMat AŮ Ans=62×Goto 9Ů AnsČ0 And AnsČ31×BreakŮ LpWhile 1Ů Lbl TŮ "Taille de la grille entre 3 et 8"Ů ?ăTŮ T<3 Or T>8×Goto TŮ 1ăDim List 1Ů {T,T}ăDim Mat AŮ {T,T}ăDim Mat BŮ {T,T}ăDim Mat CŮ -35TăO:1ăX:1ăY:1ăU:1ăV:0ăWŮ For 1ăA To TŮ For 1ăB To TŮ WăMat A[A,B]Ů W+1ăMat C[A,B]Ů Isz WŮ NextŮ NextŮ 0ăMat C[T,T]Ů Goto 5Ů Lbl 9Ů F-Line 113,63,113,55Ů F-Line 113,63,127,63Ů F-Line 127,63,127,55Ů F-Line 113,55,127,55Ů F-Line 1,1,1,7T+2Ů F-Line 11T,1,1,1Ů F-Line 11T,1,11T,7T+2Ů F-Line 11T,7T+2,1,7T+2Ů Mat AăMat BŮ For 1ăA To TŮ For 1ăB To TŮ Text 7A-4,11B-8,Mat A[A,B]Ů NextŮ NextŮ For 1ăX To TŮ For 1ăY To TŮ Mat A[X,Y]=0×Goto 0Ů NextŮ NextŮ Lbl 0Ů Text 7X-4,11Y-8," "Ů Text 57,115,OŮ 0ăHŮ For 1ăA To TŮ For 1ăB To TŮ Mat A[A,B]=Mat C[A,B]×Isz HŮ Isz WŮ NextŮ NextŮ H=T’×Goto GŮ DoŮ GetkeyăZŮ Z=78×Goto RŮ LpWhile ZČ28 And ZČ27 And ZČ38 And ZČ37Ů Lbl 5Ů If O<0Ů Then Int (4Ran#)ăäŮ ä=1×27ăZŮ ä=2×28ăZŮ ä=3×37ăZŮ ä=4×38ăZŮ IfEndŮ XăU:YăVŮ XČT×Z=37×X+1ăUŮ YČ1×Z=38×Y-1ăVŮ YČT×Z=27×Y+1ăVŮ XČ1×Z=28×X-1ăUŮ If X=U And Y=VŮ Then If O<0Ů Then Goto 5Ů Else Goto 0Ů IfEnd:IfEndŮ Mat A[U,V]ăAŮ Mat A[X,Y]ăMat A[U,V]Ů OĘ0×Text 7X-4,11Y-8,AŮ AăMat A[X,Y]Ů UăX:VăYŮ Isz OŮ O>0×ZăList 1[O]Ů O<0×Goto 5Ů O=0×Goto 9Ů Goto 0Ů Lbl RŮ 1ăO:1ăX:1ăY:1ăU:1ăVŮ Text 57,115," "Ů For 1ăA To TŮ For 1ăB To TŮ Text 7A-4,11B-8," "Ů Text 7A-4,11B-8,Mat B[A,B]Ů NextŮ NextŮ For 1ăX To TŮ For 1ăY To TŮ Mat B[X,Y]=0×Goto KŮ NextŮ NextŮ Lbl KŮ Text 7X-4,11Y-8," "Ů Text 57,115,O-1Ů If O-1=Dim List 1Ů Then Text 54,90,"Fin"Ř StopŮ IfEndŮ List 1[O]ăZŮ XăU:YăVŮ XČT×Z=37×X+1ăUŮ YČ1×Z=38×Y-1ăVŮ YČT×Z=27×Y+1ăVŮ XČ1×Z=28×X-1ăUŮ If X=U And Y=VŮ Then Goto KŮ IfEndŮ Mat B[U,V]ăAŮ Mat B[X,Y]ăMat B[U,V]Ů OĘ0×Text 7X-4,11Y-8,AŮ AăMat B[X,Y]Ů UăX:VăYŮ Isz OŮ For 0㪠To 100:NextŮ Goto KŮ Lbl GŮ Text 47,90,"WINNER ·!·"Ů DoŮ GetkeyŮ Ans=78×Goto RŮ LpWhile Ans=0Ů Return