home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pcresorc / pcr815.arc / WORDCT.BAS < prev   
BASIC Source File  |  1988-08-04  |  591b  |  21 lines
  1. 10 REM WORDCT, a program to count words in a text file
  2. 20 DIM A$(1500)
  3. 30 CLS
  4. 40 INPUT "Name of text file: ",F$
  5. 50 OPEN F$ FOR INPUT AS 1
  6. 60 LOCATE 10,30: PRINT "LOADING THE TEXTFILE"
  7. 70 IF EOF(1) THEN 110
  8. 80 Q = Q + 1
  9. 90 INPUT #1, A$(Q)
  10. 100 GOTO 70
  11. 110 CLOSE 1
  12. 120 CLS: LOCATE 10,36: PRINT "COUNTING"
  13. 130 FOR I = 1 TO Q
  14. 140 IF LEN(A$(I)) < 1 THEN WDCT = WDCT-1: GOTO 180
  15. 150    FOR J=1 TO LEN(A$(I))
  16. 160       IF MID$(A$(I),J,1) = " " AND MID$(A$(I),J,2)
  17.              <> "  " THEN WDCT = WDCT + 1
  18. 170    NEXT J
  19. 180 NEXT I
  20. 190 CLS: PRINT F$;" contains";WDCT + Q;"words"
  21.