Histoire de fous

rem ' Henri IV
dim a$ , b$ , c$
c$="Mauvaise réponse !!!"+chr$(13) : a$="Noir, "
b$="Vous vous laissez prendre à n'importe quel piège,"+chr$(13)
a$=a$+"on vous a dit, écoutez quand on vous pose une question !"
b$=b$+"enfin, voyons, tout le monde sait que le cheval d'Henri IV était"
a$=c$+a$ : b$=c$+b$+" blanc !"
label blanc , noir
left 0,200 : top 0,100 : width 0,470 : height 0,170
caption 0,"Parviendrez-vous à avoir raison ?"
alpha 1 : left 1,20 : top 1,10 : font_size 1,14
caption 1,"Quelle était la couleur du cheval noir d'Henri IV ?"
button 2 : left 2,50 : top 2,50
caption 2,"Blanc" : on_click 2,blanc
button 3 : left 3,50 : top 3,90
caption 3,"Noir" : on_click 3,noir
end
blanc:
message a$
return
noir:
message b$
return