%Header Record Format:MCS1 Type Number:1 File Name:PLATFORM Option Name: Communication SW:0 Capacity:1680 Data Type:PG %Data Record Password: BaseN:0 \Lbl A \ClrText \Locate 6,1,"PLATE\(-)FORME" \Locate 1,2,"~~~~~~~~~~~~~~~~~~~~~" \Locate 1,4,"1) ENTRAINEMENT" \Locate 1,5,"2) JEU" \Locate 1,6,"~~~~~~~~~~~~~~~~~~~~~" \Locate 4,7,"PAR GADGETROCH" \Do \Getkey\->M M=72\=>\GotoB M=62\=>\GotoC \LpWhile 0\<=M \Lbl B 0\->U \Goto0 \Lbl C 1\->U \ClrText "VITESSE "?\->Y Y\->W \Goto0 \Lbl 0 \ClrText 0\->X {21,7}\->\Dim \Mat G \Int 4\Ran#+4\->D \Int 4\Ran#+4\->F \Int 4\Ran#+4\->H \Int 4\Ran#+4\->J \Int 4\Ran#+4\->L \Int 4\Ran#+4\->N \Int 4\Ran#+4\->P 0\->Q 0\->R 1\->O 5\->C 5\->F 10\->E 12\->G 15\->I 19\->K 20\->M 10\->A 4\->B \Goto1 \Lbl 1 \Locate A,B," " \Locate A,B,"\theta" \Int 2\Ran#+1\->Q 1\->Q \If C=0 \Then \Int 4\Ran#+4\->D 21\->C \IfEnd \If E=0 \Then \Int 4\Ran#+4\->F 21\->E \IfEnd \If G=0 \Then \Int 4\Ran#+4\->H 21\->G \IfEnd \If I=0 \Then \Int 4\Ran#+4\->J 21\->I \IfEnd \If K=0 \Then \Int 4\Ran#+4\->L 21\->K \IfEnd \If M=0 \Then \Int 4\Ran#+4\->N 21\->M \IfEnd \If O=0 \Then \Int 4\Ran#+4\->P 21\->O \IfEnd \Locate A,B,"\theta" \Int 21\Ran#+1\->\r \Int 7\Ran#+1\->\theta \EE6\->\Mat G[\r,\theta] \Locate \r,\theta,"*" \EE9\->\Mat G[C,D] \EE9\->\Mat G[E,F] \EE9\->\Mat G[G,H] \EE9\->\Mat G[I,J] \EE9\->\Mat G[K,L] \EE9\->\Mat G[M,N] \EE9\->\Mat G[O,P] \Locate C,D,"#" \Locate E,F,"#" \Locate G,H,"#" \Locate I,J,"#" \Locate K,L,"#" \Locate M,N,"#" \Locate O,P,"#" \Do \If \Mat G[A,B]=\EE9 \Then \Int 2\Ran#+1\->T \If T=1 \Then B-1\->B \IfEnd \If T\<>1 \Then B+1\->B \IfEnd \IfEnd \If B=7\ Or A=1\ Or \Mat G[A,B]=\EE6 \Then \ClrText \Locate 1,2,"MORT" \Locate 1,3,"SCORE" \Locate 1,4,R\Disp\GotoA \IfEnd R+1\->R \Getkey\->Z \If Z=31 \Then \Locate A,B," " R-50\->R 1\->Q 1\->B \Locate A,B,"\theta" \IfEnd \If Z=48 \Then \Locate 1,1," "\Disp\IfEnd \If \Mat G[A,B+1]\<>\EE9\ And X\<=0 \Then \Locate A,B," " B+1\->B \Locate A,B,"\theta" \For 1\->V \To 100 \Next \IfEnd \If Z\<>0 \Then \Locate A,B," " \IfEnd \If X>0\ And B\<>1 \Then \Locate A,B," " B-1\->B \Locate A,B,"\theta" \For 1\->V \To 100 \Next X-1\->X \IfEnd \If B=1 \Then 0\->X \IfEnd \If B=7\ Or A=1\ Or \Mat G[A,B]=\EE6 \Then \ClrText \Locate 1,2,"MORT" \Locate 1,3,"SCORE" \Locate 1,4,R\Disp\GotoA \IfEnd \If Z=78\ And \Mat G[A,B+1]=\EE9 \Then \If X\<=0 \Then 3\->X \Locate A,B,"\theta" \IfEnd \IfEnd \If Z=38 \Then \If U=1 \Then \Locate A,B," " A-1\->A \Locate A,B,"\theta" \For 1\->V \To 100 \Next \IfEnd \IfEnd Y-1\->Y \If U=1\ And Y\<=0\ Or Z=27\ And U=1\ And A\<>21\ Or Z=27\ And U=0\ And A\<>21 \Then \If Z=27\ And U=1\ And A\<>21 \Then \Locate A,B," " A+1\->A \Locate A,B,"\theta" \IfEnd \If A=21\ And \Mat G[A,B+1]=\EE9 \Then R+100\->R \Locate 1,2,"GAGNE" \Locate 1,3,R\Disp\GotoA \IfEnd \If Z=27\ And U=0\ Or U=1\ And Y\<=0 \Then \Locate A,B," " \Locate A,B,"\theta" \ClrText {21,7}\->\Dim \Mat G \If Y\<=0\ And U=1 \Then \Locate A,B," " A-1\->A \Locate A,B,"\theta" \IfEnd C-1\->C E-1\->E G-1\->G I-1\->I K-1\->K M-1\->M O-1\->O \Locate A,B,"\theta" W\->Y \Goto1 \IfEnd \IfEnd \Locate A,B,"\theta" \LpWhile 0\<=Z \@00 %End