# button test.bas

draw -1

form btn 40,40,40,12, "one",1

form btn 40,60,40,12, "two",1

form btn 40,80,40,12, "three",1

form btn 40,100,40,12, "four",1

while

x = asc(input$(1))

print x

wend

end