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