%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:808
File Name:J-race3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Xavier"
"www.chez.com\slashxizard"
"NIVEAU (1\->3)"?\->H
H<1\ Or H>3\=>\Stop
"OBSTACLES"
"0\->NON"
"1\->OUI"?\->\theta
\ClrText
H=1\=>6\->\r
H=2\=>4\->\r
H=3\=>2\->\r
\For 1\->Z \To \r+1
\Locate 1,Z,"/////////   /////////"
\Next 
\For 1\->Z \To 7
\Locate 1,Z,"/"
\Locate 21,Z,"/"
\Next 
\r=6\=>7\->\r
9\->A~G
1\->Q~Z
11\->T
0\->J~P
\Lbl 2
\For 0\->V \To 30
\Locate A,1,"/   /"
J\<>0\=>\Locate J,1,"#"
\Locate B,2,"/   /"
K\<>0\=>\Locate K,2,"#"
\Locate C,3,"/   /"
L\<>0\=>\Locate L,3,"#"
H<3\=>\Locate D,4,"/   /"
H<3\=>M\<>0\=>\Locate M,4,"#"
H<3\=>\Locate E,5,"/   /"
H<3\=>N\<>0\=>\Locate N,5,"#"
H<2\=>\Locate F,6,"/   /"
H<2\=>O\<>0\=>\Locate O,6,"#"
H<2\=>\Locate G,7,"/   /"
H<2\=>P\<>0\=>\Locate P,7,"#"
D\->U
H=1\=>G\->U
H=3\=>B\->U
\If Y=\theta
\Then M\->X
H=1\=>P\->X
H=3\=>K\->X
\IfEnd
\Getkey=38\=>T-1\->T
\Getkey=27\=>T+1\->T
\Locate T,\r,"\@5C"
T\<=U\=>\Goto5
T\>=4+U\=>\Goto5
\theta=1\=>T=X\=>\Goto5
\Ran#
\Ans<0.5\=>\(-)S\->I
\Ans\>=0.5\=>S\->I
A+I<1\=>S\->I
A+I>17\=>\(-)S\->I
\If \theta=1
\Then \Int (5\Ran#)
\Ans\<=1\=>0\->J
\Ans=2\=>A+1\->J
\Ans=3\=>A+2\->J
\Ans=4\=>A+3\->J
O\->P
N\->O
M\->N
L\->M
K\->L
J\->K
\IfEnd
F\->G
E\->F
D\->E
C\->D
B\->C
A\->B
I+A\->A
R+S\->R
\Next 
W+1\->W
\Goto2
\Lbl 5
\ClrText
"PERDU"
"NIVEAU"
S+0.2\->S
W\Disp"VOTRE SCORE :"
R
\Stop
%End