# loop test.bas



draw -1

#qbtn$="end"

#form btn 0,160,0,0, qbtn$, 1

form btn 40,40,40,12, "one",1



top:



a=a+1

a$=a

draw a$,88,70

m$=inkey$

n$=asc(m$)

draw n$,88,80

for z=1 to 110

next z

goto top

end

    Source: geocities.com/greenchile505