home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29b.dsk / WORD.COUNT.bas < prev   
BASIC Source File  |  2023-02-26  |  1KB  |  25 lines
  1. 10  REM  **********************
  2. 20  REM  * WORD.COUNT         *
  3. 30  REM  * BY GEORGE BIGELOW  *
  4. 40  REM  * COPYRIGHT 1986 BY  *
  5. 50  REM  * MICROSPARC, INC.   *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  FOR X = 768 TO 773: READ A: POKE X,A: NEXT 
  9. 90  DATA  165,6,32,240,253,96
  10. 100  ONERR  GOTO 210
  11. 110  HOME :D$ =  CHR$(4):COUNT = 0:B$ =  CHR$(13)
  12. 120  INPUT "FILE TO COUNT (<RETURN> FOR CATALOG)    ";A$: REM  4 SPACES
  13. 130  IF A$ = ""  THEN  PRINT D$; LEFT$("CATALOG",7 -( PEEK(48896) = 76) *4): GOTO 120
  14. 140  HOME : PRINT D$"VERIFY"A$
  15. 150  PRINT D$"OPEN"A$
  16. 160  PRINT D$"READ"A$
  17. 170 C$ = B$: GET B$
  18. 180  POKE 6, ASC(B$) +128: CALL 768
  19. 190  IF ((B$ = " ") +(B$ =  CHR$(13)))  AND ((C$ < >" ")  AND (C$ < > CHR$(13)))  THEN COUNT = COUNT +1: REM ONE SPACE BETWEEN QUOTES
  20. 200  GOTO 170
  21. 210  POKE 216,0: PRINT D$"CLOSE"
  22. 220  HOME : VTAB 10: PRINT : PRINT "NUMBER OF WORDS IN '";A$;"'": PRINT "IS: ";: PRINT COUNT
  23. 230  VTAB 22: PRINT "<RETURN> TO CONTINUE,<ESC> TO QUIT";: GET Q$: PRINT Q$: IF Q$ =  CHR$(13)  THEN  POKE  -16368,0: GOTO 100
  24. 240  IF Q$ < > CHR$(27)  THEN  PRINT  CHR$(7): GOTO 230
  25. 250  HOME : END