10 lines
307 B
Text
10 lines
307 B
Text
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]
|