10 PRINT"[147][155]":POKE53280,0:POKE53281,0
20 PRINTTAB(14)"WORDCOUNTER"
100 DATA 169,0,141,240,37,141,241,37
110 DATA 141,255,37,162,1,32,198,255
120 DATA 32,228,255,168,185,0,38
130 DATA 205,255,37,240,14,141,255
140 DATA 37,168,240,8,238,240,37,208,3
150 DATA 238,241,37,165,144,240,226
160 DATA 76,204,255
200 FOR J=9472 TO 9520
210 READ X:T=T+X
220 POKE J,X
230 NEXT J
240 IF T<>7145 THEN STOP
500 C=9728:C0=C+128
510 FOR J=0 TO 255:POKE J+C,0:NEXT J
520 FOR J=48 TO 57:POKE J+C,1:NEXT J
530 FOR J=65 TO 90
540 POKE J+C,1:POKE J+C0,1
550 NEXT J
600 OPEN 15,8,15
610 INPUT "FILENAME";F$
620 OPEN 1,8,2,F$
630 INPUT#15,A,A$,A1,A2:IF A<>0 THEN PRINT A$:STOP
640 SYS 9472
650 CLOSE 1
660 CLOSE 15
670 W=PEEK(9712)+PEEK(9713)*256
680 PRINT "FILE HAS";W;"WORDS."