home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SPEECH / TEXT.READER.ORG (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1997-08-17  |  542 b   |  30 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5  HIMEM: 8192
  2. 10  ONERR  GOTO 1000
  3. 20 D$ =  CHR$(4)
  4. 30 R$ =  CHR$(13)
  5. 40 CA$ =  CHR$(1)
  6. 50  HOME : VTAB 23: HTAB 1: PRINT "PRESS <RETURN> TO RETURN TO SPEECH MENU"
  7. 55  HTAB 1: VTAB 1
  8. 60  INPUT "NAME OF TEXT FILE? ";NF$
  9. 70  IF NF$ = ""  THEN  PRINT : POKE 35,24: PRINT D$"RUN SPEECH"
  10. 72  POKE 35,21
  11. 80  PRINT D$;"OPEN ";NF$
  12. 90  PRINT D$;"READ ";NF$
  13. 110  GET C$
  14. 120  IF C$ = R$  THEN 500
  15. 130 MB$ = MB$ +C$
  16. 140  GOTO 110
  17. 500  PRINT CA$;MB$
  18. 520  CALL 26123
  19. 540  IF  PEEK(255) >0  THEN 540
  20. 545 MB$ = ""
  21. 550  GOTO 90
  22. 1000 ERR =  PEEK(222)
  23. 1010  PRINT D$;"CLOSE ";NF$
  24. 1020  IF ERR = 5  THEN  GOTO 2000
  25. 1030  PRINT "ERROR NUMBER ";ERR;" OCCURED."
  26. 1040  END 
  27. 2000  PRINT : PRINT "END OF TEXT FILE": VTAB 23: HTAB 40
  28. 2010  GET V$
  29. 2015  IF V$ =  CHR$(13)  THEN  PRINT : POKE 35,24: PRINT D$"RUN SPEECH"
  30. 2020  GOTO 2010