t  "Name of file to be analyzed";NM$NAM$(NM$,(NM$,"."))"two"(E$"sort < "NAM$" > "(NM$,(NM$,"."))"srt"(2 "***** Breaking sentences into single words ";B< NAM$ OUTPUT AS #VF NM$ AS #P () #,Q:#: #:: "***** Sorting words *****": E$: NAM$: "file.txt" OUTPUT AS #: #,(NM$,(NM$));"tal": #: "tal.bas"Z #,A$: "-";d A$"" P#nA(A$," ")Ax A B$A$: : PmB$(A$,A):A$(A$,A): : d B$""  I (B$)C$(B$,I,) C$"a" C$"z" C$((C$) ) C$"A" C$"Z" D$D$C$ I D$"" #,D$:QQ!D$""'