0 SCREEN,0:PRINT" CHaRacter CouNTer by James Main Kenney":DEFINTJ-V:DIMN(255):L=10000:FILES:INPUT" .DO file";F$:OPENF$FORINPUTAS1:INPUT" Limit 10000 bytes";L:PRINT:FORJ=1TOL:C$=INPUT$(1,1):PRINTC$;:V=ASC(C$):N(V)=N(V)+1:K=K+1:IFNOTEOF(1)THENNEXT
1 PRINT:PRINT:PRINT" Wait for Menu, then enter COUNTS.DO":CLOSE:OPEN"COUNTS"FOROUTPUTAS1:PRINT#1,F$;K:FORV=1TO255:PRINT#1,RIGHT$(STR$(V),LEN(STR$(V))-1);CHR$(V);RIGHT$(STR$(N(V)),LEN(STR$(N(V)))-1):NEXT:MENU