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