Lbl 8
ClrText
Locate 1,2,"I"
Locate 1,3,"I"
5ÞZ
0ÞY
1ÞT
Locate 1,7,"IIIIIIIIIIIIIIIIIIIII"
Locate 1,1,"###VIES: #"
Locate 9,1,Z
Locate 11,1,"REUSSI: ###"
Locate 18,1,Y
1ÞA
2ÞE
Lbl 5
Int 17Ran#‰2ÞB
Int 17Ran#‰2ÞC
Int 17Ran#‰2ÞD
Lbl 1
Locate A,6,"‰"
Locate B,E,"OOOO"
Locate C,E,"OOOO"
Locate D,E,"OOOO"
If Getkey=27
Then Locate A,6," "
A‰1ÞA
IfEnd
If Getkey=38 And A>1
Then Locate A,6," "
A™1ÞA
IfEnd
Locate B,E,"     "
Locate C,E,"     "
Locate D,E,"     "
E‰TÞE
E>6ãA=B Or A=B‰1 Or A=B‰2 Or A=B‰3 Or A=C Or A=C‰1 Or A=C‰2 Or A=C‰3 Or A=D Or A=D‰1 Or A=D‰2 Or A=D‰3ãGoto 2
E>6ãGoto 3
Getkey=71ãGoto M
A>21ãGoto 4
Goto 1
Lbl M
Locate 8,4,"PAUSE"
Do
LpWhile Getkeyá31
Locate 8,4,"     "
Goto 1
Lbl 3
Locate B,6,"    "
Locate C,6,"    "
Locate D,6,"    "
2ÞE
A>21ãGoto 4
Goto 5
Lbl 2
Dsz Z
Locate B,6,"    "
Locate C,6,"    "
Locate D,6,"    "
2ÞE
1ÞA
Locate 9,1,Z
Z=0ãGoto 9
A>21ãGoto 4
Goto 5
Lbl 4
Isz Y
Locate 18,1,Y
Locate 7,4, "REUSSI!!!"
Do
LpWhile Getkeyá31
Locate 7,4,"         "
Locate B,E,"    "
Locate C,E,"    "
Locate D,E,"    "
1ÞA
2ÞE
Goto 5
Lbl 9
ClrText
"PERDU!!!"
"TENTATIVES REUSSIES:"
 YÝ