0 'Word counter
1 CLS:LINEINPUT"Filename:";F$:OPENF$FORINPUTAS1
2 IFEOF(1)THENPRINTW;"words were found 	in ";F$:BEEP:A$=INPUT$(1):CLOSE:MENU
3 A$=INPUT$(1,1):IFA$<"A"THENX=0ELSEIFX=0THENW=W+1:X=1:PRINT@80,W
4 GOTO2