# fld test.bas

draw -1

form fld 50,33,64,12, "",1

form fld 50,53,64,12, "",1

form fld 50,73,64,12, "",1

form fld 50,93,64,12, "",1

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

x = asc(input$(1))

print s$(0)

print s$(1)

print s$(2)

print s$(3)

end

    Source: geocities.com/greenchile505