' *** ARR_FRQ.LST *** 2nd GFA-Manual, page 6-8 FUNCTION array_freq(elem,VAR proc()) ' ' *** Return frequency of elem& in word-array ' LOCAL freq,i FOR i=0 TO PRED(DIM?(proc())) IF proc(i)=elem INC freq ENDIF NEXT i RETURN freq ENDFUNC ' ***** '