dim as string strings = "hello world"
 do
  color 6
  for i as long = -9 to 8
    if i=0 then color 4
    locate 1,abs(i)+1,0
    print " "+strings+" ";
    sleep 100
  next i
loop