home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SPEECH / TEXT.READER.2 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1998-04-16  |  764 b   |  39 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5  HIMEM: 8192
  2. 10  ONERR  GOTO 1000
  3. 20 D$ =  CHR$(4)
  4. 30 P1$ = ".":P2$ = "!":P3$ = "?"
  5. 35 P4$ = ",":P5$ = "/"
  6. 40 CA$ =  CHR$(1)
  7. 50  HOME : VTAB 23: HTAB 1: PRINT "PRESS <RETURN> TO RETURN TO SPEECH MENU"
  8. 55  HTAB 1: VTAB 1
  9. 60  INPUT "NAME OF TEXT FILE? ";NF$
  10. 70  IF NF$ = ""  THEN  PRINT : POKE 35,24: PRINT D$"RUN SPEECH"
  11. 71  PRINT  CHR$(4)"VERIFY "NF$
  12. 72  POKE 35,21
  13. 80  PRINT D$;"OPEN ";NF$
  14. 90  PRINT D$;"READ ";NF$
  15. 100 CT = 0
  16. 110  GET C$: PRINT C$;
  17. 120  IF (C$ = P1$)  OR (C$ = P2$)  OR (C$ = P3$)  THEN 510
  18. 125  IF (C$ = P4$)  OR (C$ = P5$)  THEN 140: REM  SKIP COMMA AND SLASH
  19. 130 M$ = M$ +C$
  20. 135 CT = CT +1
  21. 140  IF CT <250  THEN 110
  22. 150 C$ = ""
  23. 510  IF  PEEK(255) >0  THEN 510
  24. 515 MB$ = M$
  25. 520  CALL 26123
  26. 545 M$ = ""
  27. 550  GOTO 100
  28. 1000 ERR =  PEEK(222)
  29. 1010  PRINT D$;"CLOSE ";NF$
  30. 1020  IF ERR = 5  THEN 2000
  31. 1030  PRINT "ERROR NUMBER ";ERR;" OCCURED."
  32. 1040  END 
  33. 2000  IF  PEEK(255) >0  THEN 2000
  34. 2003 MB$ = M$: CALL 26123
  35. 2004  IF  PEEK(255) >0  THEN 2004
  36. 2005  PRINT : PRINT "END OF TEXT FILE": VTAB 23: HTAB 40
  37. 2010  GET V$
  38. 2015  IF V$ =  CHR$(13)  THEN  PRINT : POKE 35,24: PRINT D$"RUN SPEECH"
  39. 2020  GOTO 2010