%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1984 File Name:Snacky Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \For 1\->F \To 45 \Locate 8,3,"Snacky" \Locate 5,5,"Par Spitzer" \Next 0\->V \ClrText \Locate 4,2,"Facile" \Locate 4,4,"Moyen" \Locate 4,6,"Difficile" \Locate 1,2,"F1" \Locate 1,4,"F2" \Locate 1,6,"F3" \Lbl 0 \Getkey=79\=>\Goto1 \Getkey=69\=>\Goto2 \Getkey=59\=>\Goto3 \Goto0 \Lbl 1 16\->P 10\->T \Goto\theta \Lbl 2 8\->P 20\->T \Goto\theta \Lbl 3 2\->P 40\->T \Lbl \theta \ClrText {8,23}\->\Dim \Mat A \Fill(0,\Mat A) \Mat D[1,1]\->J 4\->\Mat A[4,4] 0\->A~I 0\->K~O 4\->X 4\->Y 5\->Z 3\->E 4\->F 4\->W 10\->M 4\->N \Locate X,Y,"0" \Locate M,N,"\Pi" \For 2\->S \To 7 \Locate 2,S,"." \Locate 20,S,"." \Next \For 2\->S \To 20 \Locate S,2,"." \Locate S,7,"." \Next \Locate 2,1,"Sc\ore :" \Lbl 4 \Getkey=27\=>\GotoD \Getkey=37\=>\GotoB \Getkey=38\=>\GotoG \Getkey=28\=>\GotoH \Goto4 \Lbl D 0\->A \While X<20 \Isz A A=P\=>0\->A \If A=(P/2) \Then X+1\->X \Locate X,Y,0 Z\->\Mat A[Y,X] Z+1\->Z M=X\ And N=Y\=>\Goto5 \Mat A[Y+1,X]\<>0\ And \Mat A[Y-1,X]\<>0\=>\Goto\r E+1 \Ans>21\=>1 \Mat A[F,\Ans]=W\=>E+1\->E F+1 \Ans>8\=>1 \Mat A[\Ans,E]=W\=>F+1\->F E-1 \Ans<1\=>21 \Mat A[F,\Ans]=W\=>E-1\->E F-1 \Ans<1\=>8 \Mat A[\Ans,E]=W\=>F-1\->F \Locate E,F," " 0\->\Mat A[F,E] W+1\->W \IfEnd \Getkey=37\ And Y<7\=>\GotoB \Getkey=28\ And Y>1\=>\GotoH \WhileEnd \Goto\r \Lbl B 0\->A \While Y<7 \Isz A A=P\=>0\->A \If A=(P/2) \Then Y+1\->Y \Locate X,Y,0 Z\->\Mat A[Y,X] Z+1\->Z M=X\ And N=Y\=>\Goto6 \Mat A[Y,X+1]\<>0\ And \Mat A[Y,X-1]\<>0\=>\Goto\r E+1 \Ans>21\=>1 \Mat A[F,\Ans]=W\=>E+1\->E F+1 \Ans>8\=>1 \Mat A[\Ans,E]=W\=>F+1\->F E-1 \Ans<1\=>21 \Mat A[F,\Ans]=W\=>E-1\->E F-1 \Ans<1\=>8 \Mat A[\Ans,E]=W\=>F-1\->F \Locate E,F," " 0\->\Mat A[F,E] W+1\->W \IfEnd \Getkey=27\ And X<21\=>\GotoD \Getkey=38\ And X>1\=>\GotoG \WhileEnd \Goto\r \Lbl G 0\->A \While X>2 \Isz A A=P\=>0\->A \If A=(P/2) \Then X-1\->X \Locate X,Y,0 Z\->\Mat A[Y,X] Z+1\->Z M=X\ And N=Y\=>\Goto7 \Mat A[Y+1,X]\<>0\ And \Mat A[Y-1,X]\<>0\=>\Goto\r E+1 \Ans>21\=>1 \Mat A[F,\Ans]=W\=>E+1\->E F+1 \Ans>8\=>1 \Mat A[\Ans,E]=W\=>F+1\->F E-1 \Ans<1\=>21 \Mat A[F,\Ans]=W\=>E-1\->E F-1 \Ans<1\=>8 \Mat A[\Ans,E]=W\=>F-1\->F \Locate E,F," " 0\->\Mat A[F,E] W+1\->W \IfEnd \Getkey=37\ And Y<7\=>\GotoB \Getkey=28\ And Y>1\=>\GotoH \WhileEnd \Goto\r \Lbl H 0\->A \While Y>2 \Isz A A=P\=>0\->A \If A=(P/2) \Then Y-1\->Y \Locate X,Y,0 Z\->\Mat A[Y,X] Z+1\->Z M=X\ And N=Y\=>\Goto8 \Mat A[Y,X+1]\<>0\ And \Mat A[Y,X-1]\<>0\=>\Goto\r E+1 \Ans>21\=>1 \Mat A[F,\Ans]=W\=>E+1\->E F+1 \Ans>8\=>1 \Mat A[\Ans,E]=W\=>F+1\->F E-1 \Ans<1\=>21 \Mat A[F,\Ans]=W\=>E-1\->E F-1 \Ans<1\=>8 \Mat A[\Ans,E]=W\=>F-1\->F \Locate E,F," " 0\->\Mat A[F,E] W+1\->W \IfEnd \Getkey=27\ And X<21\=>\GotoD \Getkey=38\ And X>1\=>\GotoG \WhileEnd \Goto\r \Lbl 5 \While \Mat A[N,M]>0 \Int 17\Ran#+3\->M \Int 4\Ran#+3\->N \WhileEnd \Locate M,N,"\Pi" V+T\->V \Locate 10,1,V \GotoD \Lbl 6 \While \Mat A[N,M]>0 \Int 17\Ran#+3\->M \Int 4\Ran#+3\->N \WhileEnd \Locate M,N,"\Pi" V+T\->V \Locate 10,1,V \GotoB \Lbl 7 \While \Mat A[N,M]>0 \Int 17\Ran#+3\->M \Int 4\Ran#+3\->N \WhileEnd \Locate M,N,"\Pi" V+T\->V \Locate 10,1,V \GotoG \Lbl 8 \While \Mat A[N,M]>0 \Int 17\Ran#+3\->M \Int 4\Ran#+3\->N \WhileEnd \Locate M,N,"\Pi" V+T\->V \Locate 10,1,V \GotoH \Lbl \r V\->\Mat D[1,2] \If V>J:\Then \Mat D[1,2]\->\Mat D[1,1] \IfEnd \ClrText \Locate 7,4,"Perdu \!mark" \Locate 1,6,"Sc\ore :" \Locate 12,6,V \Locate 1,7,"Meilleur :" \Locate 12,7,\Mat D[1,1] \Locate 16,7,"[EXE]" \Return %End