10 PRINT"[147]FILE SCANNER":POKE53280,0:POKE53281,0
100 DATA 162,0,169,0,157,0,48,157,0,49,232,208,247
110 DATA 162,1,32,198,255,32,228,255
120 DATA 170,254,0,48,208,3,254,0,49
130 DATA 165,144,240,240,32,204,255,96
200 FOR J=9472 TO 9509
210 READ X
220 T=T+X
230 POKE J,X
240 NEXT J
250 IF T<>4954 THEN STOP
300 INPUT "FILE NAME";F$
310 OPEN 15,8,15
320 OPEN 1,8,2,F$
330 INPUT#15,A,B$,C,D
340 IF A<>0 THEN PRINT B$:END
350 SYS 9472
360 CLOSE 1
370 CLOSE 15
400 C=0:P=0:N=0:FOR J=0 TO 95
410 IF J>64 AND J<91 GOTO 520
420 V=PEEK(12288+J)+256*PEEK(12544+J)
430 IF J=0 THEN PRINT "NULLS:";V:GOTO 520
440 IF J=13 THEN PRINT "RETURNS:";V:GOTO 520
450 IF J=32 THEN PRINT "SPACES:";V:GOTO 520
460 IF J=34 THEN PRINT "QUOTES:";V:GOTO 520
470 IF J=44 THEN PRINT "COMMAS:";V:GOTO 520
480 IF J=58 THEN PRINT "COLONS:";V:GOTO 520
490 IF J<32 THEN C=C+V:GOTO 520
500 IF J>47 AND J<58 THEN N=N+V:GOTO 520
510 P=P+V
520 NEXT J
530 PRINT "CONTROL:";C
540 PRINT "NUMERICS:";N
550 PRINT "PUNCTUATION:";P
560 L=0:U=0:FOR J=65 TO 90
570 V=PEEK(12288+J)+256*PEEK(12544+J)
580 L=L+V
590 V=PEEK(12288+128+J)+256*PEEK(12544+128+J)
600 U=U+V
610 NEXT J
620 PRINT "UPPER CASE ALPHA:";U
630 PRINT "LOWER CASE ALPHA:";L
640 T=0:FOR J=96 TO 255
650 IF J>128+64 AND J<128+91 GOTO 680
660 V=PEEK(12288+J)+256*PEEK(12544+J)
670 T=T+V
680 NEXT J
690 PRINT "UNUSUAL CHARACTERS:";T