rem ********************************
rem LABEL N°03
rem ********************************

rem on déclare le LABEL
label imprime
dim i

rem on crée un bouton (objet système qui prendra le numéro 1)
button 1
rem on lui met un "intitulé" (ce n'est pas indispensable)
caption 1,"Cliquez"
rem on exécutera imprime à chaque fois qu'on clique dessus
on_click 1,imprime

end

imprime:
i=i+1
rem on affiche dans le bandeau de la fenêtre 
caption 0,"on a cliqué "+str$(i)+" fois sur le bouton"
return