"Commando  "
"            "
"presente par "
"   Cyril SMITH"
"E™mail:"
"CSMITH@Wanadoo.fr"Ý
"RECUPEREZ LE PARACHUTDEPLACEMENT:"
"( <<™<™0™>™>> )"
"(  4‡5‡6‡©‡¹  )"Ý
CoordOff
0ÞA~Z
8.5ÞF
ViewWindow 1,127,0,0,62,0
Text 1,1,"VENT"
Text 7,1,"‰"
Text 7,14,0
Text 7,27,"‰"
Green Graph Y=2Ran#
StoPict 6
Lbl 9
64ÞA
45ÞB
20‰Int 81Ran#ÞC
Lbl 7
Cls
RclPict 6
Int 14Ran#ÞV
Ran#<.5ã‡VÞV
Text 13,14‰V,"."
F-Line A™3,B™2,A‰6,B‰11
F-Line A‰3,B™2,A™6,B‰11
F-Line A,B‰2,A,B‰8
Plot A™1,B‰7
Plot X,B‰6
Plot A‰1,B‰7
Plot X,B‰6
Plot A‰4,B‰4
F-Line A™7,B‰12,A‰7,B‰12
F-Line A™7,B‰13,A‰7,B‰13
F-Line A™6,B‰14,A‰6,B‰14
F-Line A™5,B‰15,A‰5,B‰15
F-Line A™3,B‰16,A‰3,B‰16
F-Line A™1,B‰17,A‰1,B‰17
F-Line C™4,1,C‰4,1
F-Line C‰4,1,C‰4,4
F-Line C‰4,4,C™9,5
F-Line C™9,5,C™4,1
F-Line C™4,1,C™3,5
F-Line C™3,5,C,6
F-Line C,7,C,5
PlotOn C™1,7
Bà6ãGoto 3
Plot 1,0
A‰VÞA
B™FÞB
'Lbl 1
'Bà1ãGoto 3
‡1ÞD
Do
Getkey=73ã1ÞD
Getkey=63ã2ÞD
Getkey=43ã3ÞD
Getkey=33ã4ÞD
Getkey=53ã0ÞD
LpWhile D=‡1
D=1ãC™11ÞC
D=2ãC™5ÞC
D=3ãC‰5ÞC
D=4ãC‰11ÞC
Cà6ã10ÞC
Câ121ã115ÞC
B>1ãGoto 7
Lbl 3
If A<C™8 Or A>C‰6
Then "C'EST PA GRAVE IL EST MORT"Ý
IfEnd
A<C™8ã"PERDU"Ý
A<C™8ãGoto 8
A>C‰6ã"PERDU"Ý
A>C‰6ãGoto 8
ClrText
"PARACHUTISTE SAUF"Ý
Isz I
Isz F
Lbl 8
ClrText
Isz J
"SCORE"
Locate 7,1,I
Locate 9,1,"/"
Locate 10,1,J
"0=NON"
"CONTINUER"?ÞD
D=0ãStop
Goto 9