0 PRINT"CHaRacter COUNTer by James Main Kenney":DEFINT N-V:DIM N(255):FILES:INPUT"Filename";F$:OPEN F$FOR INPUT AS 1:INPUT"Limit 10000 bytes";L:PRINT:IF L=0 THEN L=10000
1 IF K<L AND NOT EOF(1)THEN C$=INPUT$(1,1):PRINT C$;:K=K+1:IF C$>""THEN V=ASC(C$):N(V)=N(V)+1:GOTO 1 ELSE N(0)=N(0)+1:GOTO 1
2 PRINT:PRINT:PRINT"Wait for system, then read COUNTED.CHR":CLOSE:OPEN"COUNTED.CHR"FOR OUTPUT AS 1:PRINT#1,F$;K:FOR V=0 TO 255:PRINT#1,V;CHR$(V);N(V):NEXT:SYSTEM