%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:440 File Name:TIRTIR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText " " " " "DEVELOPPEUR: BATISTO" \For 1\->W \To 75 \Next "PROGRAMMEUR: BATISTO" \For 1\->W \To 175 \Next \Lbl 6 \ClrText \Locate 2,3,"~~ TIR A L'ARC ~~" \Locate 17,7,"[EXE]" \Lbl Z \Getkey\<>31\=>\GotoZ 0\->S \Lbl A \ClrText 2\->A \Int 18\Ran#+2\->B 1\->C 3\->D \Int 7\Ran#+1\->E \Locate B,E,"O" \Do \Locate C,D,"\->" \If \Getkey=37 \Then \Locate C,D," " D+1\->D \IfEnd \If \Getkey=28 \Then \Locate C,D," " D-1\->D \IfEnd D=0\=>1\->D D=8\=>7\->D \LpWhile \Getkey\<>25 A-1\->A \Do \Locate C,D," \->" C+1\->C C=22\=>\Goto9 \LpWhile (C\<>B\ Or D\<>E) "SUPER !" S+1\->S \GotoA \Lbl 9 "MAIS T'ES UNE GROSSE MERDE !!!" \Locate 4,5,"SCORE:" \Locate 12,5,S \Do \Getkey=31\=>\Goto6 \LpWhile 1 \LpWhile \Getkey=31 %End