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