Date: Mon, 11 May 92 06:47:03 PDT From: "Peter Jorgensen" Subject: Word Counter Stack Here's a very simple stack that counts the unique words in text files. It creates a list of words and their frequencies for each file. It can process files in "batch" mode. It ignores stop words as defined by a list on the first card. It's not too fast, especially on older Macs, but it does the job and can be customized. This is freeware, copyright 1992 - Interactive Publishing, all rights reserved. You may distribute this stack for free. You may not include it in any commercial offering without prior written consent of the copyright owner, Interactive Publishing, PO Box 325, Hamilton, NY 13346. Peter Jorgensen: User Services/VAX/Mac/DOS Consultant, PostMaster, PMDF guru PJORGENSEN@COLGATEU.BITNET Colgate University - 315-824-7742 (This file must be converted with BinHex 4.0) :#PG[FQ3J3fpeER3!8e4"5eG*6%3!N!3U`!!!!PD8k3!!#!"69%&,rj!%!*!(#J! !+X!!!!J!N!`"!!!+l`#3!`)!!!Xh!!!*33#3%38!!"!!N"-#%)!!!K#!!!)3J!! #%)!!ha,Me!#3"5J!-!&3!G!!N!3"9J)!N2m!N#`0dJ!!$(B"+!'J!*$r!*!0J!# 3!`J!N!1)!#)!L!!L!)L))L+)L#)LL+SLUSLU)UV-UM1Uc+ScUZkUZkVZUVZUlVZ llZklZqlrZrrZrl[rl[qlrj!$ZrrrJ"!#)!%)3!6rN!L))SJLL#+))K%L4)J4)N5 )a)!-D%-#-#Da-!-Ef-!-MDS!UJ#U!+S!L#*9)SJL95+)95*9L&8L9AIGGpehhAI GJ!#3"kT9UP@U9DT9!i4)-!`#!3'#4$P%JJ'3!iJ8)N')35)8J)""2JJ)&1-L")a d)KHB%,k!L!MV#)L!*FJbL@3N6*+LR%'q+XN8kd#J!!!%#J!!J%!J!!)%#!#U!)! !L!#!!2q!N!F)(#,"J!%#"2q!N!2r#*!$q(3L4imA)R'r!,qrX*!%rhqqAD*"J!$ kpIVeS&#J8!#3r`#3r`#3r`#3r`#3"J)!68&692q3"!#3&3%ZS3!!8%%!!*6[!!% J0`!"8(B!!925!*!'9-8!N2m!N-5!6%P69!!!#8%!N!F"!!!)!*!%!J!X!!)!#J! $S!!"qJ#3!`)!N!B2a3!#!*"-#!"338G&!!!2a3#3"JP"r!!"3!!!#cGJ"`S!!N! !4QJB1TN#!M-!-2!39!#!JR!j3&)d!!!U)"!)++Q3!!`F'J!!#+'J,XTNJpL!rfk mZpP,FMH`G0VaAG8SjR[pjYir"Ri-E6I)[GLpE2pr!*$r!*$r!*$r!*$r!*$r!*$ r!*$r!*#C%B"#5dG%!!!+l`#3$`)!!!V[!!!+l`!)!!S!!!9'!*!(K!!"!J8!"`! Q!"F"I!!#!*!(!`!*!*!$$%PZ4QPXC3!!EfiJE@peFf99F!e"ER0hCA)JCQPXC5! L8f9XC@0d)'%JCQPXC5"dEb"`FQpMCA0c,L)JEfBJG(P`C5!L9%9B9#)0F(9d)'P d)'PZG'mJE@80C@jN)'e[GA0P9A!!!!%b!!-#"3!f!#B")`'J!!F!N!F$!!`!N!- 39fpbC(-!!'pZ)'e[GA0P9A!0Ff9d)(4SC5"XEf0VG'9iG#"[CL"YC5"dEb"QB@a cC3eME'PMDb"KG#"dD'8JBfaTBfYXEf-0D@BJG'KP)'0[E@eKEQ4VCANJDA-JC'p hEL"dD'9Z$@4PE'9dC5"dD'8JFf9XC@0dC@4XD@jP$@KTC'8JG'KP)'ecC`ePE(0 P$@GPG#"TG'9Y)$%JEfBJGQ&XG@8SG'KP)(0PE'9MG'9NE'PZC5N0F(9d)(*PG(9 bEL!Q)'Pd)'&QG'9b)'CXC#!L9fpbC(-L)'pQ)'0N)$%0C@jN)'PQ$A0PG#"dD'8 JE'pMDh4PH(3JEfBJE@8JG'mJG(*eC3ePEQ3J6@peFf99F!#3!bB!"!)%!"m!*`! a!BX!!J#3"`-!#3#3!`a6G'&dF`#3"))!"3%!!!F!"!!F!#+!!`#3"3%!N!--!*! $%%G[!!"[EL"YEh9cC99`$A0PG#"dD'8JD'PXDA4P)'pQ)'eP)(4[)(4bG@80F(* [Bf9cFdCTE'9c$A0PG#"dD'8JD'PXDA4P)'pQ)'eP)(4[)'CKE(0P$@9ZC#"YEh9 cC99`!!!"K!!'!3!!1!!"!%i!*)!$!*!&!3#3!``!N!-38fpbG!!!EfiJE@peFf9 9F!ecCA3JG'KP)'KTE'PdC5"[CL"YC5"dEb"dFR9P$A0PG#"dD'8JE'pMDh0MFQ9 PEL"dEb"dFR9P$8&ZFhGPFL!L8fpbG#""E("SB@*PG'PMB@aXH5"[FL"LH5"QFQ9 aG@9ZBhNr)L"hDA4S)#*$B@jMC@`L)'pb)#*"E("SB5)JEh)J)NCbCA%L$@PQ)'P d)'Pc)#*$B@jMC@`L)(4SC@iJCAKTG#"YEh9cC99`$@PQ)'Pd)'Pc)#*"E("SB5) JG'KPEL"cEh*d)'CXC#!L9fpbC(-L$@PQ)'Pd)'Pc)#*'FQ9a)L"dD'9Z$9*PGQ9 bFf9*G'9YF`ecEh*d)'CXC#!L9fpbC(-L)'4PFf0PEQ4TEQF08Q9cG'pbC8PdC@e c$@9ZC#"TCJeLC@9`$A0PG#"dD'8JD'PXDA4P)'pQ)'eP)(4[)'CKE(0P$@9ZC#" YEh9cC99`!!"-!!F#"3!'!B-!&`'H!*!'rrm!!`!-!*!$%%0N6R9Y!!"[EL"YEh9 cC99`$@4[6@9ZG5!L8Q9MC@jd)JePEQ3JE@peFf998!!!5!!)!3!!(`!$!$3!*+! $!*!&!3#3!``!N!-35'9XF!!!EfiJE@peFf99F!e(Eb"MC#!L5'9XF#)0C@jN)'e [GA0P9A!!!0!!#3%!!&B!#`"X!"d!N!3Jm`!"!*!$$!#3!a"-Ef0V!!"[EL"YEh9 cC99`$@PQ)(4SC5"TBfpZ)'pQ)'eP)'Pc)$Jd-c8JG'KPEL"cCA3JG'KP)'PMEfi JEfBJE@8JG'mJ-6!e-$F0C@acC5"cCA3JG'KP)'PMEfiJEfBJE@8JG'mJ1$3c03e cCA3JG'KP)'a[BfYdCAKd)'pQ)'CXC#!LGfpbC(-L)(4[)(4SC5"TBfpZ)'pQ)'e P)'Pc)$Jd-c80C@jN)'e[GA0P9A!!!'pZ)(*PGQ9bFf9*G'9YF`ebCA"PBA3JGfP dD#"T)$dJ-5"dEb"dD'8JER9YBQ9b)'pQ)'aTEQ9c)'PZ)'CXC#!L9fpbC(-L$A0 PG#"dD'8JBh9bFfpb)(4[)'*eFhN0F(9d)'aKFh3JDA4PE5"[CL"XD@jP)'NJEfB JCQaN)#*AEh*NFb)J*L!L,#)JBQ9QEh*P)'PdC@dJ-5"[CL"XD@jP)'NJEfBJCQa N)#*AEh*NFb)0C@jN)(*PF'9KG!ePEQ3JFQ9fCA*cC8PdC@ec$3e[EL"bCA0dEh* P5A4PEA-0FQ9`C@&d)(GTG'JJD5!p)$%JG'mJG'KP)'jeE@*PFL"[CL"XD@jPFb" TEL"QE'3J)PG[FQ4c)JecCA3JG'KP)'0eFR0[FL"dEb"LGA0j$@4PE'9dC5"TG'9 Y)$%JEfBJE'PZC5"T)'pQ)'CXC#!L9fpbC(-L$@9ZC#"bCA"PBA30C@jN)(*PFh4 [FQ9*G'9YF`d0EfiJ9'&XE(NJB9G[FQ30Ff9XC@0d)'0SBA)J-5"dEb"[CQCcCA3 SB9G[FQ3Q)L`L,'CXC#!L9fpbC(-L+5"[CL"QE'3J)RG[FQ4c)JeRCA3JG'KP)'j eE@*PFL"[CL"XD@jPFb"TEL"dD'8JFf9XC@0dD@pZ$@&NC#!a)(4[)'aKFh3JDA4 PE5"[CL"XD@jP)'Pd)'pQ)'CXC#!L9fpbC(-L$@9ZC#"8B@aXH3d0EfiJF(*[Bf9 cFfCTE'9c$8&ZFhGPFL"QD@aP)#*$D'p[Ff8JB5"QD@aP)(4[)'&ZB@ajHQ8Z)L" [CL"dHA"P)#*849K8)Je`GA3JDA3JD@jdEb"dD'9'D@aPF`e5CA"PBA3JG@jdD@` JDA3JDA-JC@e`G(N03@jcGf9b)'CTE'8J)N0SEfpcC5"KEQpdD'9b)'CTE'8JG'm JB@jKE(PkC5`JEh)JBfaTBfXJBf&ZBf9X)(4[)'*PCfPZ,L)JEfBJG(P`C5!L9%9 B9#)0D@BJDA3JDA-JEQpd)'PZ)(4SC8CTE'9c)(4SC@iJF(9d)(*PG(9bEL!Q)'P d)'&QG'9b)(4SC8CTE'9c$@9XFf8J3@jcGf9b)#,5)LCTG#BLdb"hBA-JB@abC@& NH5"cC@aPBh4PC#"QEh)JF(*[Bf9cFfPZCbiL$@9ZC#"bCA"PBA30FQ9`C@&d)(G TG'JJD5!p)$%JG'mJG'KP)'jeE@*PFL"[CL"XD@jPFb"TEL"dD'9'D@aPF`e`GA3 J)P"bEf0PFh0TEQFJCQPXC5!L)#BJD5!Q)#)JEfBJ)L!Q)(4SC5"ZG@eLCA)JEfB JE'PZCA-JD@iJG'KP4QPXCA-0CfmJE'&cG!eNEdePER8J)NjPGb"$BA*N)Je`GA3 JE'PZC5"T)'pQ)(4SC8CTE'9c)'PZG'mJCQaN)#**ENCTE'8L$9"bEf0PFh0'D@a P$@9ZC#"bCA"PBA30C@jN)("bEf0PFh0QD@aPF`d0EfiJ8(*[Bf9cFdCTE'80Ff9 d)(4SC5"XEf0VFf0bC@9Z)(4[)(4bG@80F(9d)'CXC#!L9fpbC(-L)'pQ)'0KFQ3 J-5"TER4[)&0dEh"AC(-0D@BJCQaN)#**ENCTE'8L)'Pc)'9YF(4j)(4SC@iJFf9 ZC#!LE@peFf99F#)JG'mJCQaN)#**ENCTE'8L$A"eG#"QE'3J)NPZ4QPXC5)JD@j dEb"*ENCTE'80Eh"PEL"QD@aP)%PZ4QPXC3eTCL"dD'8JFQ9cG@ad)'Pc)'9YF(4 j)(4SC@i0FQ9KC#"QFQpY)'CTE'8J5@j'D@aP)(9ZG'PX)(*PG(9bEJe`GA3J-#! Q)(*PG(9bEL"TER4[)'CXC#!L9fpbC(-L$A"eG#"kCA*[)'PZG'mJ9fpbC(03FQp MCA0cC@30FQ9`C@&d)(9ZG'PX)'Pd)'Pc)'9YF(4j$@&NC#"dD'8JER9YBQ9b)'p Q)(G[FQ4c)'PZ)'Pd)(4[)&G[FQ4c8(*[Bf9cFf9N$A*PF'9KG#"hDA4S)'NJ25! a)(4[)(4SC5"ZG@eLCA)JEfBJGfpbC(-JD@iJDA30Ff9d)(4SC5"MGA*cEh)JG'm JBR9cH3e`GA3JFh4bDA"3G@jMG#KhEh*N)'NJEfBJDA3T)'PZG'mJG'KP9fpbC!e TCL"bCA4eFQiJ*L"dD'9AEh*N)#BJFQ9dGA*Z)'Pc)'PZ)&0dEh"AC(-JG'KPEJe "C'3J-5"dEb"XD@jP)$%JEfBJCQaN)#*AEh*NFb)0EQ9iG#"bCA"PBA30C@acC5" TCL"bCA4eFQiJ*L"dD'9AEh*N)#BJ)L`L)'Pc)'j[G#"TEL"QE'3J)PG[FQ4c)L" dD'9Z$A"eG#"dD'9AEh*N)#BJ)L`a)L!Q)(*PG(9bEL"KCR4PFL"QE'3J)PG[FQ4 c)JePE(0P$94KE'aj)(4SC9G[FQ30C@jN)'PQ$@9ZC#"bCA"PBA30D@BJG'KP)'e [GA0PBfaTBfXJG'KPEL"PH'Pd)(*PF'9KG!ebC@&N)'CbEfdJCQPXC5"*ENCTE'8 JG@jdD@`JFQ9dGA*Z$@9ZC#"bCA"PBA30Bfa[Ff8JCQPXC5"*ENCTE'80Fh4KG(- J9fpbC(03FQpMCA0cC@30BQ9PF!ePE(0P$A"eG#"PEA"dH5"TER4[)'CXC#!L5@j 'D@aP)Je3FQpMCA0c4QPXC3ePEQ3JD@B0C@jN)&"bEf0PFh0'D@aP$3eQG@jMG'P [EL"$Eh9ZG&G[FQ4c$A0PG#"dD'8JBh9bFfpb)(4[)(GKG'0S$A"eG#!`)'PZG'm JG'pdB@`0FQ9`C@&d)(GTG'JJD5!p)$%JG'mJG'KP)'jeE@*PFL"[CL"XD@jPFb" TEL"QE'3J)PG[FQ4c)JeKC'3JE'&cG#"TG'9Y)'pQ)'aTEQ8JD5"[CL"QE'3J)PG [FQ4c)L"dEb"8Eh4KE!ePEQ3JFQ9`C@&d$A*PG(9bEL"dEh4KE!ePEQ3J3fpeER4 AEh*NF`d0EfiJ8h4KG(-J9fpbC(03FQpMCA0cC@30D@BJ9fpbC(03FQpMCA0cC@3 JDA-JC@e`G(NJG'KPEL"`GA3J3fpeER4AEh*NFbJT)'PZG'mJ9fpbC(03FQpMCA0 cC@30F(9d)&G[FQ4c8(*[Bf9cFf9N)#BQ)#*hEh*NFb"`FQpMCA0cC@3l)L!Q*X) 0G'KP)'jeE@*PFL"[CL"XD@jPFb"TEL"QE'3J)PG[FQ4c)L!Y)$%J*LBJ)R9ZDA& eC5"hEh*NFcXL)#BQ`JeXD@jP)$%JEfBJCQaN)#*AEh*NFb)J*LBJ)R0dEh!JGfp bC(-Z)L"TER4[)'CXC#!L8h4KG(-L$@4PE'9dC5"XD@jP)$%JEfBJCQaN)#*AEh* NFb)0FfpbG#"QD@9XC#!L9fpbC(-L$@9ZC#"6G'&dF`d0CR9ZBh4TEfiJFh4bDA" 3G@jMG#"K9fpbC!ebCA"PBA30D@BJE'&cG#"MD'&bB@0dCA)JEfBJB9G[FQ3JDA- JD@iJ)L`Z,5NS+LCH*53M3#%r1cSR@eelI9am,b)Q)(&eEh4P)#BJ6R9Y9'p$D'& b+$)f+5"dD'9Z$@4PE'9dC5"XBA0d)'0SBA*KBh4PFL"[CL"K9fpbC!ePE(0P)'P Q)'CTFR0d)'0SBA)JEfBJB9G[FQ3JDA-JD@iJ)L`Z,5NS+LCH*53M3#%r1cSR@ee lI9am,b)Q)(&eEh4P)#BJ6R9Y9'p$D'&b+$)f+5"dD'9Z$@4PE'9dC5"QDA*cG#" MD'&bB@0dCA)JEfBJB9G[FQ30C@acC5"bCA4eFQiJB9G[FQ30C@jN)(*PF'9KG!e PEQ3JFh4bDA"3G@jMG!d0EfiJEh"PEN0KFQ30F(9d)(4SC5"ZG@eLCA)JEfBJG'K TFb"MC#!Y)$)JD@jdEb"QE'3J)N0N6R9Y)Je`BA0c)'p`C@j$BA*N$@9ZC#"2F'9 Z3f&bC!d0EfiJC'p0C@je)&GSD@0S5A4PE5aAD'PMD%ePER80D@BJ9fKTBfK*G'9 Y)'Pc)#*)C@a`)L"dD'9Z)'G[)'0N)#*)C@a`)JePE(0P)("KFh-JC'p0C@je$@9 ZC#"NEdePER8!N"F"`%0"8N3!!!Xh!*!)3!#3$3r&!!!+l`!#!!3!N!0H!!3!N!2 Z!$`!!J%!N!3Q!5J"N!!!N!F"!*!$$!#3!a!!!'pZ)'e[GA0P9A!0BQ9PF!ePEQ3 JE@peFf99F!!!)J!$!3!!"3',!"J"S!!"!*!&!3#3!``!N!-3!*!&!`"M!!eK$@& XFfm0B@d0B@i0B@jN$@&ZH3eKFQ80BA-0BA30BQ9PEJeLGA30BRN0Bf&Z$@0KELG d$@4[$8N055GY$8NRGQ80DA-0EfB0Eh)0G'KP$A4SCA*P$A4SDA-09'K[Ff80!!! "!$)!9'KPFf8JBA*P)(4SC5"cG'p`)(G[FQ4c,#"NEfiRG#"NC@aPG'8JG'KTFb" MBA*N,J!(!!-!,6%!!!3!3`"8Eb"bC@e[GQ8JGfpbC#`JBfpYE@&ZC#eME'PMDb" [EL"TG#iJ9'mJC@jdCA)X)'0XD@0V)'pZ)'aTFh3YGfpbC#i!!'pZ)'p`C@j$BA* N$A0[FR3JCQaN)#*AEh*NFb)0F'&cFb"[F'9Z3f&bC!ePEQ3JEh"PEN0KFQ3!N!J %3%0"8N3!!!LK!*!)5!#3$3r&!!!+l`!#!!)!N!0H!!3!!!1N!$`!!3%!N!8"+!' 3!!#3"`%!N!--!*!$%!!!EfiJE@peFf99F!eLC@9`$@9ZC#"YEh9cC99`!!!L!!) "!!!&!Bm!'3'J!!%!N!8"!*!$$!#3!a!!N!8(!!)!-!!"!$)!3faTBfXJD@iJG'K TFb"QD@9XC#"dEb"6C@aPBh3JCQPXC5Kc+5"dEb"`FQpMCA0c,J!%!"B!8h9YE@& bH5"KF("PBA*c)'KPFQ8Z!!-$5S!f!*!$!3%a!!)"0!!"!9%!!J&H!!%"R`!#!DF !!3)J!!-#*J!"!T3!!`+B!!%#f!!$!Y`!!94SDA-JFh4KBfXJGfPXE#"MEh9ZG#" dD'8JER9YBQ9b)'pQ)(9ZDA&eC5"hEh*NFb"TEL"K)(4PH(3JCQPXC5iJ$5!J5A3 JBh*PBA4PFb"K)(0[FR4PC#"XDA0d)'pQ)(4SEh0P)(G[FQ4c)(GTG'JJG'KPDA) JCR*PFA9PEQ0TCA-JD@iJG'KTFb"QD@9XC#iJ$5!J5A3JBfpeER4c,#"LGA3JC'p PFb"ZEh3JE'PcG#`JFh4[F#"hEh*NFbiJ8h4[F#"hEh*NFb"KFQ8JE'PcG'9N)'P Z)(4SDA-JCQPPE'3JEfiJBf&bC#!a,JdJ)&4[)'&NC#"K)(0dEh!JGfpbC#`JFfP YF'aj)'0XD@0V)'pZ)'Pd)'PZ)(4SDA-JCQPPE'3JEfiJB@jj)'0KFQ3JBR9d)'0 KFQ3J-5i0)#"8Eb"bC@e[GQ8JB5"hEh*N,#"MEfeYB@jN,@0XD@0V)'pZ)(4SC5" hEh*N,L"8D'Pc)(GTE'`JGfpbDb"[EL"MBA*N)$%JBA-JGf9XE#i0)#"CEh8JBf& Z)(0PE'9MG#"YG@adDA"XC5"QD@aPFb"dEb"`FQpMCA0c,#"cD@e`E(NJDf9PF#" cC@aPBh4TEQFJCQPXCA-JD@iJG'KP)(0dB@jNBA*N)'CTE'8JC'PKE'pR)'*[H#i J9fKPEL"jEh8JBA*P)'4[EQ8JFf9XC@0dD@jR)'CTE'9c,#"ME'PMDb"$B@jMC@` Z)%9fC@iJD@BJH@pe)(0PE'9MG#"K)'CTE'8JE@pbC5"dD'&Z)'pZBf8JDA3JGfP XE#"[EQaj)'*P)("bEf0PFh0PC#"[EQ0P,L"&B@0S)'CTE'8JCf9dFb"TG(-JEhG Z)'0KFQ3Z$5!J9'KP)&0[FR3JBR9dG'pZ)(GTE'`JFfpbG#"dD'8JCQPPE'3X)'8 ZCbiJB@CdCA)JH@pe*hCP)'9NDA4PC#"TG#i0)#"8D'8J6'pMDb"TBfpZ)'*eG(4 [EL"hD@aX)'a[BfXJEh)JG@jXEf0V)(4SDA-JCQPPE'3JCQpb)'9NDA4TEQFZ5'9 XF!#3"f"69%*-!!!-GJ#3"`-!N!-%!*!$!3#3!`%!N!6rN!B!N!N#!*!$!3#3"2r r!3$rr`#3#3-!N!-"!*!%rrm#!2rr!*!*3%C83N`!!!h5!*!(!J#3"30(C@jPGQ% !N`!!3fKTBf&RE`!!QJ'J!*X"8`#E!93!Q`'J!*X"S3#3!b"838P-rj!%!*!%$dj e))Tb)'4PG#"cE(9db9iL!!!"!*!$!JJ!!!%)!*!$6QiX0!eTEQ4TGQPNG@&X,$) 0D@jNGA0dFRNX-`eTER4P#PG[FQ3J3fpeER3!!J#3!e0838YA58a%!*!+8e4"5eG *6%3!N"LQ5KmG!*!'!PC0B@0%EfjKE'3RFb`a$@eKEQ&RCA*K,$%0E@&ZB@GPFR- X-JeYC5`a$@j[Gb`a$@pMBh9bFb`a$@pZ,$)0F'9[F'aP,$%0F'9b,$%0F'aKBf9 c,$%0F(*[BQaPE5`a$A"bEfGbB@dXGfKPG'KPFL`a$A"bEfe[G'9N,$%0FQ&dC5` b!*!$J!#3'32!!!!(i!!!$$!!!!``!!!--!!!$$!!N!-`!!!Iq!!!(rJ!!"pi!!! IH!!!(RJ!!"li!!!Hq!!!([J!!!IJ!!!$`!#3+)!!N"d$`!!!"q!!!!``!!!--!! !$$!!!!``!!!Iq!!!(rJ!!"pi!!!IH!!!(RJ!!"li!!!Hq!!!([J!!!IJ!!!$`!# 3*`%!N!-##!!!!3J!N!01!&Y@9!US!*!$(!!q!!"*3dp1!!%!#LN,!!!J!*!()2- !#5!!!)3!N!3)9@j-Ef0VC@3'6'pMDf9NaF-: