100 rem button demo 2 , MacOS Chipmunk Basic  
110 graphics 0
120 graphics button "title1",100,40,60,22,"mysub(1)"
130 graphics button "button2",100,80,60,22,"mysub(2)"
140 graphics button "end",100,120,60,22,"myfinish()"
160 flag = 1
170 while flag = 1	: rem idle loop
180 wend
190 end
200 sub mysub(x) : rem called by button presses
210   print x
220 end sub
300 sub myfinish()
310   graphics button "",-1 : rem remove all buttons
320   print "finished"
330   flag = 0		: rem signal exit of idle loop
340 end sub
990 end