# array test.bas dim a(20) for i = 1 to 20 a(i)=i next i print a(5) end
    Source:
geocities.com/greenchile505