%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2124 File Name:FORMULE1 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl Y \AxesOff \CoordOff \ClrText \ClrGraph \Locate 4,1,"***************" \Locate 4,2,"*GRAND PRIX II*" \Locate 4,3,"***************" \Locate 8,4,"JOUER" \Locate 8,5,"TOP 5" \Locate 8,6,"HELP" \Locate 8,7,"QUIT GAME" 4\->M \Lbl M \Locate 6,M,"\->" \If \Getkey=37 \Then \Locate 6,M," " M+1\->M M>7\=>7\->M \GotoM \IfEnd \If \Getkey=28 \Then \Locate 6,M," " M-1\->M M<4\=>4\->M \GotoM \IfEnd \Getkey=31\ And M=4\=>\GotoH \Getkey=31\ And M=5\=>\GotoX \Getkey=31\ And M=6\=>\GotoL \Getkey=31\ And M=7\=>\GotoJ \GotoM \Lbl L \Cls \Text 10,53,"HELP" \Text 31,26,"[4]-[6] GAUCHE-DROITE" \Text 39,33,"[8] PAUSE"\Disp\GotoY \Lbl X \ViewWindow 1,127,0,1,63,0 \F-Line 23,10,103,10 \F-Line 23,54,103,54 \F-Line 23,54,23,10 \F-Line 103,54,103,10 \F-Line 25,9,105,9 \F-Line 26,8,105,8 \F-Line 104,10,104,52 \F-Line 105,9,105,51 \Text 4,53,"TOP 5" \Text 15,26,"1 \->" \Text 23,26,"2 \->" \Text 31,26,"3 \->" \Text 39,26,"4 \->" \Text 47,26,"5 \->" \Text 15,86,"PTS" \Text 23,86,"PTS" \Text 31,86,"PTS" \Text 39,86,"PTS" \Text 47,86,"PTS" \Text 15,42,\Mat A[1,1] \Text 23,42,\Mat A[2,1] \Text 31,42,\Mat A[3,1] \Text 39,42,\Mat A[4,1] \Text 47,42,\Mat A[5,1]\Disp\GotoY \Lbl H \r=1\=>\GotoC 0\->A~Z 1\->N \ClrText \Lbl C \If \r=1 \Then 0\->\r \ClrText \Locate 8,4,"LOADING..." \For 1\->I \To 400 \Next \IfEnd \ClrText " " " " " " " " " " " " \Int 16\Ran#+1\->O 1\->B O+1\->A O\->U~X \For 4\->I \To 6 \Locate O,I,"* *" \Next \Locate 8,1,"LEVEL" \Locate 14,1,N \Locate A,4,"." \For 1\->I \To 300 \Next \Locate O+4,3,"GO" \While 1 M+1\->M M=50+50N\=>\GotoG A\->B " " \Getkey\->K K=73\=>A-1\->A K=53\=>A+1\->A \If K=64 \Then \Do \LpWhile \Getkey\<>31 \IfEnd \Locate A,4,"." \Locate B,3,"." V\->U W\->V X\->W 3\Ran#\->Z Z<2\=>X-1\->X Z>2\=>X+1\->X X=0\=>2\->X X=19\=>17\->X \Locate X,7,"* *" A\<=U\ Or A\>=U+5\=>\GotoE \WhileEnd \Lbl E \For 1\->I \To 200 \Next \ClrText \Locate 7,2,"GAME OVER" M*10+S\->S \Locate 5,4,"SCORE" \Locate 13,4,S \Locate 3,7,"[EXE] TO RESTART" \Do \LpWhile \Getkey\<>31 \Locate 3,7,"[EXE] TO RESTART" \If S>\Mat A[1,1] \Then \Mat A[4,1]\->\Mat A[5,1] \Mat A[3,1]\->\Mat A[4,1] \Mat A[2,1]\->\Mat A[3,1] \Mat A[1,1]\->\Mat A[2,1] S\->\Mat A[1,1] \GotoY \IfEnd \If S>\Mat A[2,1]\ And S<\Mat A[1,1] \Then \Mat A[4,1]\->\Mat A[5,1] \Mat A[3,1]\->\Mat A[4,1] \Mat A[2,1]\->\Mat A[3,1] S\->\Mat A[2,1] \GotoY \IfEnd \If S>\Mat A[3,1]\ And A<\Mat A[2,1] \Then \Mat A[4,1]\->\Mat A[5,1] \Mat A[3,1]\->\Mat A[4,1] S\->\Mat A[3,1] \GotoY \IfEnd \If S>\Mat A[4,1]\ And S<\Mat A[3,1] \Then \Mat A[4,1]\->\Mat A[5,1] S\->\Mat A[4,1] \GotoY \IfEnd \If S>\Mat A[5,1]\ And S<\Mat A[4,1] \Then S\->\Mat A[5,1] \GotoY \IfEnd \Lbl R \Getkey=31\=>\GotoY \GotoR \Lbl G \For 7\->I \To 1 \Step \(-)1 \For 1\->K \To 50 \Next \Locate 1,I,"~~~~~~~~~~~~~~~~~~~~~" \Next \For 1\->K \To 100 \Next \ClrText \Locate 8,2,"LEVEL" \Locate 14,2,N N+1\->N \Locate 7,3,"COMPLETED" \Locate 6,5,"SCORE" M*10+S\->S \Locate 13,5,S \For 1\->I \To 400 \Next \For 1\->K \To 5 \For 1\->I \To 64 \Next 50+50N+S\->S \Locate 13,5,S \Next 0\->M \Locate 7,7,"VERY GOOD" \For 1\->I \To 400 \Next \ClrText \Locate 2,3,"[EXP] \-> SAVE'N EXIT" \Locate 2,5,"[EXE] \-> NEXT LEVEL" \Lbl \r \Getkey=31\=>\GotoC \Getkey=51\=>\GotoD \Goto\r \Lbl J \ClrText \Locate 6,4,"THANK YOU..." \Stop \Lbl D 1\->\r \ClrText \Locate 8,4,"SAVING..." \For 1\->I \To 400 \Next \ClrText \Locate 8,4,"DONE..." \Stop %End