5000 '*** ERROR TALKER ***
5010 '*** HAVE PROGRAM GOSUB5000 AT START ***
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 '*** ERROR TRAPPING ***
5080 '*** ON ERROR GOSUB HERE ***
5090 PRINT"*** INPUT ERROR ***"
5100 '*** TALKING ERROR ***
5110 A$="#NPUT 5)4/OR":GOSUB5150 
5120 A$="PL.&Z D((UIIT":GOSUB5150 
5130 A$="W877N MOR T;5&M":GOSUB5150 
5140 RETURN
5150 '*** TALKER ***
5160 X%=VARPTR(VO$)
5170 XX=PEEK(X%+1)+PEEK(X%+2)*256
5180 IFXX>32767THENDEFUSR1=-1*(65536-XX)ELSEDEFUSR1=XX
5190 XX=USR1(VARPTR(A$))
5200 FORII=1TO500:NEXT
5210 RETURN
