# array test.bas

dim a(20)

for i = 1 to 20

a(i)=i

next i

print a(5)

end

    Source: geocities.com/greenchile505