nLen = LEN(YourOutput) x = 1 DO WHILE x<=nLen ??? SUBSTR(YourOutput,x,1000) INKEY(5) && wait some time x = x + 1000 ENDDO