0→Y 20→X RanInt#(1000,9999)→N ClrText Do Locate 5,7,"Essais restants" Locate 20,7,X "Quel est le nombre"?→M If M≠N Then If MGoto 0 <0 étant le début du programme (une sorte de menu)> LpWhile 1=1 IfEnd Else ClrText Locate 5,2,"Félicitations" Locate 5,3,"-------------" Locate 5,5,"Tu as trouvé!" Locate 5,6,"Nombre d'éssais:" Locate 15,6,Y Locate 1,7,"Presse [Exit]" Do GetKey→Z Z=47=>Goto 0 LpWhile 1=1 IfEnd LpWhile 1=1