cls
t=0
h=0
freq=3
f$=" trois secondes"
bon=0
niveau:
Input "nombre de chiffres ", niv

affiche:
if (niv=1) then gosub niv1
if (niv=2) then gosub niv2
if (niv=3) then gosub niv3
if (niv=4) then gosub niv4
if (niv=5) then gosub niv5
if (niv=6) then gosub niv6
if (niv=7) then gosub niv7
if(niv>7) then
print "pas plus de 7 chiffres !"
goto niveau
end if
cls
t=t+1
print T$
graphsize 200,50
color green
rect 0,0,graphwidth,graphheight

color black
font "times", 20,100
    text h,10,T$
pause freq
color green
rect 0,0,graphwidth,graphheight
 text 20,10,u$
input "Qu'avez vous vu ?  ", rep1$
rep$=Replace(rep1$," ","")
rem if(rep$=Ta$) or (rep$=T$) then
if(rep$=Ta$) then
bon=bon+1
end if
if (bon>0) then 
freq=2
f$=" deux secondes"
end if
if (bon>1) then 
freq=1
f$=" une seconde"
end if
if (bon>5) then 
freq=0.5
f$=" cinq dixièmes de seconde"
end if
if (bon>10) then
freq=0.2
f$=" deux dixièmes de seconde"
end if
if (bon>15) then 
freq=0.1
f$=" un dixième de seconde"
end if


if (t=1) then goto fin
goto affiche

niv1:
nb = int(rand * 9)
l1$=nb
T$=l1$
Ta$=T$
u$="   "
h=40
return

niv2:
nb1 = int(rand * 8)+1
nb2=int(rand * 9)
l1$=nb1
l2$=nb2
T$=l1$+l2$
Ta$=T$
u$="   "
h=40
return

niv3:
nb1 = int(rand * 8)+1
nb2=int(rand * 9)
nb3=int(rand * 9)
l1$=nb1
l2$=nb2
l3$=nb2
T$=l1$+l2$+l3$
Ta$=T$
u$="   "
h=40
return

niv4:
nb1 = int(rand * 8)+1
nb2=int(rand * 9)
nb3=int(rand * 9)
nb4=int(rand * 9)
l1$=nb1+" "
la1$=nb1
l2$=nb2
l3$=nb3
l4$=nb4
T$=l1$+l2$+l3$+l4$
Ta$=la1$+l2$+l3$+l4$
u$="        "
h=40

return

niv5:
nb1 = int(rand * 8)+1
nb2=int(rand * 9)
nb3=int(rand * 9)
nb4=int(rand * 9)
nb5=int(rand * 9)
l1$=nb1
l2$=nb2+" "
la2$=nb2
l3$=nb3
l4$=nb4
l5$=nb5
T$=l1$+l2$+l3$+l4$+l5$
Ta$=l1$+la2$+l3$+l4$+l5$
u$="        "
h=40
return

niv6:
nb1 = int(rand * 8)+1
nb2=int(rand * 9)
nb3=int(rand * 9)
nb4=int(rand * 9)
nb5=int(rand * 9)
nb6=int(rand * 9)
l1$=nb1
l2$=nb2
l3$=nb3+" "
la3$=nb3
l4$=nb4
l5$=nb5
l6$=nb6
T$=l1$+l2$+l3$+l4$+l5$+l6$
Ta$=l1$+l2$+la3$+l4$+l5$+l6$
u$="         "
h=40
return

niv7:
nb1 = int(rand * 8)+1
nb2=int(rand * 9)
nb3=int(rand * 9)
nb4=int(rand * 9)
nb5=int(rand * 9)
nb6=int(rand * 9)
nb7=int(rand * 9)
l1$=nb1+" "
la1$=nb1

l2$=nb2
l3$=nb3
l4$=nb4+" "
la4$=nb4

l5$=nb5
l6$=nb6
l7$=nb7

T$=l1$+l2$+l3$+l4$+l5$+l6$+l7$
Ta$=la1$+l2$+l3$+la4$+l5$+l6$+l7$
u$="         "
h=40
return

fin: 
cls
print "Vous avez "+bon+" bonnes réponses"
print "La dernière fréquence était : "+freq+ " soit "+f$