# printarraytest.bas

draw -1

for i = 1 to 140 step 15

form cbx i,20,w,h,"",1

form cbx i,40,w,h,"",1

form cbx i,60,w,h,"",1

form cbx i,80,w,h,"",1

next i

x = asc(input$(1))

end



    Source: geocities.com/greenchile505