# find text.bas

draw  -1



dim a$(5)



a$(0)="brian"

a$(1)="paul"

a$(2)=""

a$(3)=""

a$(4)="bob"



for m=0 to 4

if a$(m) > "" then print a$(m)

next m



end

    Source: geocities.com/greenchile505