%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:245 File Name:REFLEX Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->\theta \Prog "I" "VITESSE (DE 0 A 9)" \Prog "K" \Lbl 0 \ClrText 28-2K\->F G>9\=>\Goto1 \Int 19\Ran#\->A \Int 11\Ran#\->B B>9\=>A\->B A=B\=>\Isz G \Locate 8,4,A \Locate 13,4,B \For 0\->D \To F \cos D \Getkey\->E E>9\=>\Break \Next E\<=9\=>\Goto0 \If A=B \Then \Isz C \Locate 9,1,"BRAVO" \Else \Dsz C \Locate 9,1,"PERDU" \IfEnd 9\->U \Prog "T" \Goto0 \Lbl 1 \Locate 5,7,"SCORE=" \Locate 12,7,C \Locate 15,7,"\slash" \Locate 16,7,G\Disp %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:217 File Name:K Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->V:0\->Z \Lbl 0:\theta=6\=>\GotoK \If \theta=9 \Then \Locate 4,7,"0\-> NON, 1\-> OUI" \IfEnd \Do:\Getkey\->K \theta=7\=>K=31\=>\Return \LpWhileK<52\ Or K>74 \Lbl K K=71\=>0\->K:K=72\=>1\->K \theta\>=8\=>\Return K>1\=>K/-10+31\Frac (K/10)+2\->K K\<=9\=>\theta<7\=>\Return:K\->Z \If W=0\ And \theta=7 \Then Z+V\->Z:\Return \IfEnd \If \theta=7 \Then K\10^xW:\Ans+V\->V \Dsz W:\IfEnd \For 0\->K \To 9:\Next \Goto0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:64 File Name:I Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Deg \ViewWindow 0,126,1,1,63,0 \AxesOff \CoordOff \ClrText \Norm \theta\<=1\=>0\->A~V \theta=1\=>\Goto1 0\->\theta \Return \Lbl 1 \AxesOn \CoordOn %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:17 File Name:T Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \For 0\->T \To U \cos T \Next %End