# listbox test.bas

draw -1

dim a$(10)

a$(1)="grape"

a$(2)="apple"

a$(3)="watermelon"

a$(4)="orange"

a$(5)="lemon"

dim b$(10)

b$(1)="grape2"

b$(2)="apple2"

b$(3)="watermelon2"

b$(4)="orange2"

b$(5)="lemon2"

form lst 20,50,5,1,a$,1

form lst 20,70,5,1,b$,1

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

while

x = asc(input$(1))

print s$(0)

print s$(1)

wend

end

    Source: geocities.com/greenchile505