0 SCREEN,0:PRINT:PRINT"     WORDS  by James Main Kenney 1995":PRINT:DEFSTRC-K:DEFINTL-W:DIMN(255):INPUT".DO file";F:PRINT:OPENFFORINPUTAS1
1 C=INPUT$(1,1):PRINTC;:V=ASC(C):N(V)=N(V)+1:L=L+1:IFNOTEOF(1)ANDINKEY$=""THEN1ELSEP=N(13)\2:S=N(46)+N(63)+N(33):W=N(32)-S+2*P:CLS:PRINTP"pgph",S\P"snt/pgph",S"snt",W\S"wrd/snt",W"wrd",L\W"chr/wrd
2 PRINTL"chr",N(40)"()"N(41),N(91)"[]"N(93),N(123)"{}"N(125),N(60)"<>"N(62),N(34);CHR$(34)" "N(44)", "N(59)"; "N(58)":",N(96)"`'"N(39),N(46)". "N(33)"! "N(63)"? "N(38)"&
3 K="":INPUT"Chr/[More]/Menu";K:IFK=""THEN1ELSEIFK="Menu"THENMENUELSEV=ASC(K):PRINTN(V);K:GOTO3