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