100 DATA 169,0,170,157,0,33,232,224,4,208,248,162,1,32,198,255
110 DATA 32,228,255,41,127,201,48,106,170,77,3,33,142,3,33
120 DATA 45,3,33,10,120,248,162,0,106,42,189,0,33,105,0
130 DATA 157,0,33,106,232,224,3,208,241,216,88,165,144,240,211
140 DATA 32,204,255,162,2,189,0,33,32,76,32,202,16,247,96
150 DATA 72,74,74,74,74,9,48,32,210,255,104,41,15,9,48
160 DATA 32,210,255,96
200 FOR J=8192 TO 8286
210 READ X:T=T+X
220 POKE J,X
230 NEXT J
240 IF T<>10266 THEN STOP
300 PRINT "[147][144]WORD COUNTER - JIM BUTTERFIELD"
310 INPUT "NAME OF TEXT FILE";F$
320 OPEN 15,8,15
330 OPEN 1,8,2,F$
340 INPUT#15,E,E$,E1,E2
350 IF E<>0 THEN PRINT E$:CLOSE 15:END
360 SYS 8192
370 PRINT " WORDS."
380 CLOSE 1
390 CLOSE 15