Codes pas bien compliqué

label print1, print2, print3, print4, print5
label Quitter, Effacer

button 1
caption 1, "1ère Conjugaison"
on_click 1,Print1
top 1,10
left 1,200
width 1,200
height 1,50

button 2
caption 2,"2ème Conjugaison"
on_click 2,print2
top 2,60
left 2,200
width 2,200
height 2,50

button 3
caption 3,"3ème Conjugaison"
on_click 3,print3
top 3,110
left 3,200
width 3,200
height 3,50

button 4
caption 4,"3ème Conjugaison Mixte"
on_click 4,print4
top 4,160
left 4,200
width 4,200
height 4,50

button 5
caption 5, "4ème Conjugaison"
on_click 5,print5
top 5,210
left 5,200
width 5,200
height 5,50

button 6
caption 6,"Quitter"
on_click 6,Quitter
top 6,330
left 6,200
width 6,200
height 6,50

button 7
caption 7,"Effacer"
on_click 7,Effacer
top 7,280
left 7,200
width 7,200
height 7,50

end

Print1:
print "1ère Conjugaison:"
print "Amo"
print "Amas"
print "Amat"
print "Amamus"
print "Amatis"
print "Amant"

return

print2:
PRINT "2ème Conjugaison:"
print "Deleo"
print "Deles"
print "Delet"
print "Delemus"
print "Deletis"
print "Delent"

return

print3:
PRINT "3ème Conjugaison:"
print "Lego"
print "Legis"
print "Legit"
print "Legimus"
print "Legitis"
print "Legunt"

return

print4:
PRINT "3ème Conjugaison mixte:"
print "Capio"
print "Capis"
print "Capit"
print "Capimus"
print "Capitis"
print "Capiunt"

return

print5:
PRINT "4ème Conjugaison:"
print "Audio"
print "Audis"
print "Audit"
print "Audimus"
print "Auditis"
print "Audiunt"

return

Quitter:
terminate

return

Effacer:
cls

dim i%,question$(7)
dim reponse_correcte$(7), reponse_utilisateur$

label compare

rem création des objets
alpha 1
edit 2:top 2,50
button 3:top 3,100
caption 3,"OK"
hint 3,"Valide la question"

rem si on clique sur le bouton, on exécute compare
on_click 3,compare

rem données des questions/réponses
data "Quel est le génitif Singulier de causa,ae?","quel est le nominatif singulier de causa,ae ?"
data "Quel est le datif singulier de causa,ae ?","Quel est le vocatif singulier de causa,ae ?"
data "Quel est le génitif pluriel de causa,ae?","Quel est l'accusatif pluriel de causa,ae ?"
data "quel est le nominatif pluriel de causa,ae ?"

data "causae","causa","causae"
data "causa","causarum","causas","causae"

rem boucle de lecture des questions
for i%=1 to 7
  read question$(i%)
next i%

rem boucle de lecture des réponses
for i%=1 to 7
  read reponse_correcte$(i%)
next i%

rem initialisation avec la première question
i%=1
caption 1,question$(i%)

end

compare:
rem lecture de la réponse de l'utilisateur
reponse_utilisateur$=text$(2)
if reponse_utilisateur$=reponse_correcte$(i%)
  caption 1,"C'est correct"
else
  caption 1,"La réponse correcte est "+reponse_correcte$(i%)
end_if
text 2,"":rem on efface l'EDIT

rem on attend une seconde
wait 2000
rem on prépare le couple suivant des questions/réponses
if i%<7
  i%=i%+1
  caption 1,question$(i%)
end_if
return