# button2.bas

draw -1

draw "Enter your first name",60,60

form fld 60,70,80,12, "First",1

draw "Enter your last name",60,100

form fld 60,110,80,12, "Last",1

form btn 40,147,60,12, "Enter",1

x = asc(input$(1))  :' wait for button

? "Your name is",s$(0),s$(1); "."

end

    Source: geocities.com/greenchile505