ClrText
" "
"Goal"
" "
" "
"             TheProg"
" "
"V.1"
For 1->T To 100:Next
Do:LpWhile Getkey =/= 31
For 1->T To 100:Next
ClrText
Locate 8,1,"- MENU -"
Locate 1,3,"  Match"
Locate 1,4,"  Entrainement"
Locate 1,7,"  Quitter"
3->X
Do
Locate 1,X,"->"
Getkey->K
For 1->T To 25:Next
Locate 1,X," "
K=28 => Dsz X
K=37 => Isz X
X=2 => 7->X
X=6 => 4->X
X=8 => 3->X
X=5 => 7->X
LpWhile K =/= 31
X=4 => 1->M
X=7 => ClrText
X=7 => Stop
If X=3
Then ClrText
0->M
Locate 8,1,"-> MATCH"
Locate 5,4,"Niveau:"
5->L
Do
Locate 13,4,6-L
Do
0->K
Getkey->K
LpWhile K=0
Locate 13,4,"  "
K=37 Or K=38 => L+1->L
K=27 Or K=28 => L-1->L
L=0 => 1->L
L=6 => 5->L
LpWhile K =/= 31
2.5L->L
Int L->L
IfEnd
ClrText
Locate 8,4,"PRET ->"
For 1->T To 100:Next
Do:LpWhile Getkey =/= 31
ClrText
"        GOAL 1"
"  +---------------+"
"  |               |"
"  |               |"
"  |               |"
" -------------------"
10->X
-1->S
M=1 => 21->L
0->T
Do
If T=0
Then Isz S
M=1 => Dsz L
Int 15Ran#+4->B
B-X+1->A
Abs A->A
IfEnd
Isz T
Locate X,3," O "
Locate X-1,4," +-+ "
Locate X,5," | "
Locate B,4,"o"
Getkey->K
K=27 => X+1->X
K=38 => X-1->X
X=3 => 4->X
X=17 => 16->X
B=X Or B=X+1 Or B=X+2 => 0->T
Locate 10,7,"  "
Locate 10,7,Abs (T-(A+L))
LpWhile T =/= A+L
ClrText
Locate 7,4,"GOOOOAAL !"
For 1->T To 50:Next
Locate 7,7,"Score:"
Locate 14,7,S