http://www.scriptlogic.com/kixtart UDF: TypeWrite()

FUNCTION TypeWrite ($ystart, $xstart, $text)
  ; Author: Rob van der Velden 
  ;
  ; Display specified text at a specified location using
  ; a 'command & conquer' typewriter style (E.V.A.)
  ;
  ; Syntax:  TypeWrite (Ylocation, Xlocation, )
  ; Example: TypeWrite (10,5, "Hello World.")

  COLOR g+/n
  At($ystart,$xstart) Substr($text,1,1)
  msecsleep(100)
  FOR $count=1 TO (Len($text)-1)
    COLOR g/n
    At($ystart,$xstart+$count-1) Substr($text,$count,1)
    COLOR g+/n
    At($ystart,$xstart+$count) Substr($text,$count+1,1)
    msecsleep(100)
  NEXT
  COLOR g/n
  At($ystart,$xstart+$count-1) Substr($text,$count,1)
  COLOR w/n
ENDFUNCTION ; - TypeWrite -

18 November 2002	TypeWrite()
Author	Rob van der Velden
Action	Display specified text at a specified location using a 'command & conquer' typewriter style (E.V.A.).
Syntax	TypeWrite (Y, X, text)
Parameters	Y (Required / Numeric) Y-Position on Screen X (Required / Numeric) X-Position on Screen Text (Required / String) Text to 'type' on the screen
Remarks	No Remarks,
Returns	Nothing.
Dependencies	MsecSleep()
Examples	TypeWrite (0,0,"Hello World")
Source	FUNCTION TypeWrite ($ystart, $xstart, $text) ; Author: Rob van der Velden ; ; Display specified text at a specified location using ; a 'command & conquer' typewriter style (E.V.A.) ; ; Syntax: TypeWrite (Ylocation, Xlocation, ) ; Example: TypeWrite (10,5, "Hello World.") COLOR g+/n At($ystart,$xstart) Substr($text,1,1) msecsleep(100) FOR $count=1 TO (Len($text)-1) COLOR g/n At($ystart,$xstart+$count-1) Substr($text,$count,1) COLOR g+/n At($ystart,$xstart+$count) Substr($text,$count+1,1) msecsleep(100) NEXT COLOR g/n At($ystart,$xstart+$count-1) Substr($text,$count,1) COLOR w/n ENDFUNCTION ; - TypeWrite -

original source of UDF topic. show actual FunctionLibrary list on Scriptlogic site
printer-friendly mirror of UDF topic on scripting@wanadoo.nl site