5 'Prog from Portable 100 Magazine 10/84  Page 32
10 BEEP:CLEAR 533:CLS:PRINT:PRINTTAB(12)"* WORDCOUNTER *":MAX FILES =1:FILES
12 INPUT" Filename";A$
16 PRINT:INPUT" Word Count or character Count Count (W/C)";C$
18 IF ASC(C$)>96 THEN C$=CHR$(ASC(C$)-32)
20 IF C$<>"W" AND C$<>"C"THEN 10 ELSE OPEN A$ FOR INPUT AS 1:A=0
70 IF EOF(1)THEN CLOSE:PRINT@280,"Total number of words is "A".":GOSUB190:RUN
80 LINEINPUT #1,A$:IFC$="W"THEN 110
90 A=A+LEN(A$):IF LEN(A$)=0 THENA=A+1
100 PRINT@280,USING "Character Count = ##,###";A;:IF EOF(1)THEN PRINT@280,"File Length is "A"characters.":GOSUB190:RUNELSE 80
110 B=0:IF D=1 THEN D=0:IFLEFT$(A$,1)<>" "THEN A=A-1
130 IF B=225THEN D=1:GOTO 70
140 C=INSTR(B+1,A$," "):IF B=0 AND C=0 THEN A=A+1:GOTO 70
150 IF NOT C THEN D=1
160 A=A+1:B=C:PRINT@280,USING "Word Count = #,###";A;
170 IF B<255THEN IF MID$(A$,B+1,1)=" "THEN B=B+1:GOTO 170
180 IF C THEN 130ELSE 70
190 PRINT@281,"Press <ENTER> to continue, M for MENU";
200 A$=INKEY$:IFA$="M"ORA$="m"THEN MAX FILES =0:MENUELSE IF A$<>CHR$(13)THEN 200ELSE RETURN