msg$ = "There have been no clicks yet"
[loop] cls                                        ' clear screen
print msg$
button #c, "Click Me", [clickMe]                  'create a button with handle and goto [tag]
wait

[clickMe]
clicks = clicks + 1
msg$ = "Button has been clicked ";clicks;" times"
goto [loop]