home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / talk.bas < prev    next >
BASIC Source File  |  1988-05-22  |  156b  |  7 lines
  1. 10    print "Please enter your text"
  2. 20    line input text$
  3. 30    if text$="" then end
  4. 40    ph$=translate$(text$)
  5. 50    i%=narrate(ph$,a%())
  6. 60    goto 10
  7.