Sorry your browser is not supported!

 dim ages(150)

pageheight=35
width=100

   for x=1 to 150

      ages(x)=rnd(100)

   next x

   for y=1 to 150

      print y,"= ",ages(y)
      wait 100

          if y=>pageheight
          set cursor width,y
          endif

   next y

wait key
end

randomize timer()

dim ages(150)

pageheight=24
width=60
height=20

set text font "arial"

for x=1 to 150
   ages(x)=rnd(100)
next x

for y=1 to 150
   text xpos, ypos, str$(y) + "= " + str$(ages(y))
   wait 10
   inc ypos, height

   if (y - pageheight*(xpos/width))=>pageheight
      inc xpos, width
      ypos = 0
   endif
next y


wait key

end

randomize timer()

randomize timer()

dim ages(150)

pageheight=35
width=100

z = 1

   for x=1 to 150

      ages(x)=rnd(100)

   next x

   for x = 1 to 5  `<<<columns

      for y = 1 to 30 `<<<rows
        set cursor x*80,y*20 `<<<cursor off-sets
        print z," = ",ages(z)
        inc z
      next y

   next x

wait key
end

pageheight=35
width=100