It's a simple function that takes a string and the wait time as parameters. It would look something like this...
DEF TYPE S$,W
FOR I=0 TO LEN(S$)-1
PRINT MID$(S$,i,1)
WAIT W
NEXT
END
Afterwards, you can simply call TYPE like this...
TYPE "This is a test.",10