0→Y
20→X
RanInt#(1000,9999)→N
ClrText
Do
Locate 4,7,"Essais restants"
Locate 20,7,X
"Quel est le nombre"?→M
If M≠N
Then If M<N
Then ClrText
"C'est plus"
Else ClrText
"C'est moins"
IfEnd
Y+1→Y
X-1→X
If X≤0
Then ClrText
Locate 8,2,"Dommage"
Do
GetKey→Z
Z=47=>Goto 0    <0 étant le début du programme (une sorte de menu)>
LpWhile 1=1
IfEnd
Else ClrText
Locate 5,2,"Félicitations"
Do
GetKey→Z
Z=47=>Goto 0
LpWhile 1=1
IfEnd
LpWhile 1=1