graphsize 600,600 clg lh=int(rand*26)+65 t=0 gosub alph deb: input "Quelle lettre ? ", a$ gosub transfo gosub interro if a=lh then print "O.K." end end if cls goto deb alph: clg affx$="A - B - C - D - E - F - G - H - I - J - K - L - M - N - O - P - Q - R - S - T - U - V - W - X - Y - Z" font "arial", 10,80 color black Text 10,10,affx$ return interro: t=t+1 coup$=" coup." if t> 1 then coup$=" coups." clg font "arial", 10,80 color black Text 10,10,affx$ font "arial", 20,80 color black Text 100,100,"Votre choix : " font "arial", 30,80 Text 300,90,a$ font "arial", 20,80 if a < lh then Text 100,200,"C'est après." end if if a > lh then Text 100,200,"C'est avant." end if if a = lh then Text 100,200,"C'est gagné en "+t+coup$ end if return transfo: rem je transforme une minuscule en majuscule a=asc(a$) if (a>90)then a=a-32 a$=chr(a) end if return