home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / wcount.ba < prev    next >
Text File  |  2006-10-19  |  532b  |  12 lines

  1. 0 'WCOUNT.BA Andrew Moore 10/85
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 ONERRORGOTO9:CLS:PRINT:PRINT"WCOUNT by Andrew Moore":PRINT
  4. 3 PRINT"Filename (RETURN exits): ";CHR$(27);"K";:LINEINPUTF$:IFF$=""THENMENU
  5. 4 OPENF$FORINPUTAS1
  6. 5 IFEOF(1)THENCLOSE1:GOTO8
  7. 6 I$=INPUT$(1,1):IFB$<>" "AND(I$=" "ORI$="-"ORI$=CHR$(13))THENI=I+1:PRINT@172,I;
  8. 7 B$=I$:GOTO5
  9. 8 PRINTCHR$(13);"Total words:":PRINT@120,"";:GOTO3
  10. 9 IFERL=4THENCLOSE1:PRINT"No file":END
  11. 10 PRINT:PRINT"Error";ERR;"at";ERL:STOP
  12.