%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1559 File Name:TIR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \ClrGraph \Locate 1,1,"ISZGAME PRESENTE:" \Locate 1,2,"TIR A L'ARC" \Locate 1,3,"DEVELOPE PAR ISZ" \Do:\Locate 6,7,"[PRESS EXE]" \Locate 6,7,"[PRESS EXE]" \Locate 6,7," " \Locate 6,7," " \Getkey LpWhile\Ans\<>31 \ViewWindow 0,126,1,0,62,1 \Cls:\AxesOff \For 5\->X \To 30 \Step 5 \Circle 63,31,X \Next \PlotOn 63,31 \Vertical 20 \For 52\->X \To 12 \Step -10 \Text X,5,"-\->" \Next \Disp\StoPict 2:\StoPict 3 \ClrText \Lbl Z \Cls 0\->G \RclPict 2 " " " " \Locate 1,1,"CHOISISSEZ VOTRE NIVEAU" \Locate 1,2,"DE DIFFICULTE:1,2,3" ?\->A \Lbl 0 A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 \Lbl 1 \Int 10\Ran#\->B B>3\=>\Goto1 \GotoB \Lbl 2 \Int 10\Ran#\->B B>5\=>\Goto2 \GotoB \Lbl 3 \Int 10\Ran#\->B \GotoB \Lbl B \Int 10\Ran#\->C C>4\=>\GotoB \ClrText \If B=0 \Then "PAS DE VENT"\Disp\IfEnd \If C=1\ And B\<>0 \Then "VENT VERS LE HAUT ET DE FORCE" B\Disp\IfEnd \If C=2\ And B\<>0 \Then "VENT VERS LA DROITE ET DE FORCE" B\Disp\IfEnd \If C=3\ And B\<>0 \Then "VENT VERS LE BAS ET DE FORCE" B\Disp\IfEnd \If C=1\ And B\<>0 \Then "VENT VERS LA GAUCHE ET DE FORCE" B\Disp\IfEnd \For 0\->Z \To 600 \Next \Lbl C 1\->E~F \Text 1,1,"+" \Do \RclPict 3 \Getkey\->D D=28\=>E-1\->E D=27\=>F+1\->F D=37\=>E+1\->E D=38\=>F-1\->F \Text E,F,"+" \Text E,F," " LpWhileD\<>31 D=31\=>G+1\->G G=1\=>\Text 12,5," " G=2\=>\Text 22,5," " G=3\=>\Text 32,5," " G=4\=>\Text 42,5," " G=5\=>\Text 52,5," " \StoPict 3 \If B=0 \Then \Text E,F,"*" \IfEnd \If C=1 \Then E-B*5\->E \IfEnd \If C=3 \Then E+B*5\->E \IfEnd \If C=2 \Then F+B*5\->E \IfEnd \If C=4 \Then F-B*5\->E \IfEnd \If E<1\ Or F<1 \Then \Goto0 \Else \Text E,F,"*" \IfEnd E=63\ And F=31\=>P+30\->P E>63\ And E\<=68\=>P+25\->P E>68\ And E\<=73\=>P+20\->P E>73\ And E\<=78\=>P+15\->P E>78\ And E\<=83\=>P+10\->P E>83\ And E\<=88\=>P+5\->P E>88\=>P+1\->P E<63\ And E\>=58\=>P+25\->P E<58\ And E\>=53\=>P+20\->P E<53\ And E\>=48\=>P+15\->P E<48\ And E\>=43\=>P+10\->P E<43\ And E\>=38\=>P+5\->P E<38\=>P+1\->P F>31\ And F\<=36\=>P+25\->P F>36\ And F\<=41\=>P+20\->P F>41\ And F\<=46\=>P+15\->P F>46\ And F\<=51\=>P+10\->P F>51\ And F\<=56\=>P+5\->P F>56\=>P+1\->P F<31\ And F\>=26\=>P+25\->P F<26\ And F\>=21\=>P+20\->P F<21\ And F\>=16\=>P+15\->P F<16\ And F\>=11\=>P+10\->P F<11\ And F\>=6\=>P+5\->P F<6\=>P+1\->P G<5\=>\Goto0 P\Disp\Lbl E \ClrText " " " " \Locate 1,1,"1\->NOUVAEU" \Locate 1,2,"2\->QUITTER" ?\->I I=1\=>\Lbl Z \ClrGraph 0\->A~Z \ClrText " " \Locate 1,1,"PLANET-CASIO %End