5000 '*** TALKER PROGRAM FOR GENERAL USE ***
5010 '*** INSERT A GOSUB 5000 AT START OF PROGRAM ***
5020 '*** LOADS MEMORY FOR TALKER ***
5030 DATA205,127,10,70,35,94,35,86,33,255,63,78,54,63,54,48,120,
  183,40,5,26,119,19,16,251,54,48,54,45,54,63,113,201
5040 RESTORE:VO$=""
5050 FORX=1TO33:READA:VO$=VO$+CHR$(A):NEXTX
5060 RETURN
5070 '*** HAVE PROGRAM GOSUB TO HERE ***
5080 '*** INSERT WORDS HERE ***
5090 '*** A$=<WORDS>:GOSUB5120 ***
5100 RETURN
5110 '*** TALKER ***
5120 X%=VARPTR(VO$)
5130 XX=PEEK(X%+1)+PEEK(X%+2)*256
5140 IFXX>32767THENDEFUSR1=-1*(65536-XX)ELSEDEFUSR1=XX
5150 XX=USR1(VARPTR(A$))
5160 FORII=1TO500:NEXT
5170 RETURN
