Sorry your browser is not supported!

sync on
sync rate 1

dim Text$()
empty array Text$()

LineAmount = 0
for DataReader = 1 to 8
   Read TextCHK$
   array insert at bottom Text$()
   Text$() = TextCHK$
   inc LineAmount
next
array index to top Text$()

for a = 1 to LineAmount/2
   next array index Text$()
next a

LinePlacement = LineAmount/2
sync

do
TextHeight = LinePlacement*16

   if array index valid(Text$())
      set cursor 0, TextHeight: Print Text$()
      inc LinePlacement
      next array index Text$()

   else
      array index to top Text$()
      LinePlacement = 0
   endif

sync
loop

end


data "Line 1: This is just some random text!!!!!!"
data "Line 2: It has no purpose other than filling"
data "Line 3: in the gaps. If you would like to be"
data "Line 4: a part of this craziness, then by all"
data "Line 5: means, jump in and scream.  The crazy"
data "Line 6: thing about random text is that it is"
data "Line 7: completely random.  Who knows what is"
data "Line 8: going to happen next."