Lbl 1
ClrText
Cls
ViewWindow 1,127,1,1,63,1
AxesOff
LabelOff
CoordOff
GridOff
3ÞV
0ÞL
1ÞH
0ÞC
Locate 3,2,"F1=>TRES FACILE"
Locate 3,3,"F2=>FACILE"
Locate 3,4,"F3=>NORMAL"
Locate 3,5,"F4=>DIFFICILE"
Locate 3,6,"F5=>TRES DIFFICILE"
Do
GetkeyÞZ
Z=39ã5ÞL
Z=49ã10ÞL
Z=59ã15ÞL
Z=69ã25ÞL
Z=79ã30ÞL
LpWhile L=0
Do
Int (5Ran#+0)¹20ÞP
Int (2Ran#+0)ÞQ
ClrText
Q=0ãP>0ãLocate 15,7,"GAUCHE"
Q=1ãP>0ãLocate 15,7,"DROITE"
P=0ãLocate 15,7,"NULLE"
Locate 6,2,"VIE :"
Locate 15,2,V
Locate 9,4,"VENT"
Locate 6,6,"FORCE :"
Locate 15,6,P
Locate 2,7,"DIRECTION :"Ý
0ÞS
0ÞA
0ÞB
0ÞC
0ÞE
0ÞO
Int (7Ran#+1)©10+50ÞO
PlotOn O,H
PlotOn O-L,H
1ÞX
0ÞY
Int (8Ran#+0)©5+20ÞY
F-Line 1,Y-1,30,Y-1
Do
GetkeyÞZ
Z=47ãStop
If Z=31 And E=0
Then 1ÞE
A+0.6ÞA
IfEnd
X+AÞX
X>30ãB+0.1ÞB
Y-BÞY
PlotOn X,Y
If Z=0 And E=1
Then 0ÞE
IfEnd
Q=0ãX>30ãA-PÞA
Q=1ãX>30ãA+PÞA
Y<H-1ãXÞS
LpWhile S=0
If S>O-L And S<O
Then Text 31,61,"GAGNE ¯«¯"Ý
V+1ÞV
C+1ÞC
Else Text 31,61,"PERDU ¯«¯"Ý
V-2ÞV
IfEnd
ClrText
Cls
LpWhile V>0
Locate 6,3,"1=REJOUER"
Locate 6,5,"2=QUITTER"
Do
GetkeyÞZ
Z=72ãGoto 1
Z=62ãBreak
LpWhile 1=1
ClrText