Define quel_chiffre()=
Prgm
:Local n,r,c,i
:0→n:0→r:0→c
:randInt(0,100)→n
:For i,1,7
:  Disp ""
:EndFor
:Text "Deviner le nombre caché entre 0 et 100"
:Lbl deb
:Request "Votre essai ?",r
:c+1→c
:If r=n Then
:  Goto fin
:EndIf
:If r<n Then
:  Text "Trop petit"
:Else
:  Text "Trop grand"
:EndIf
:Goto deb
:Lbl fin
:For i,1,4
:  Disp ""
:EndFor
:Disp n," Trouvé en",c,"essai(s)"
:For i,1,3
:  Disp ""
:EndFor
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:EndPrgm