' *** ARR_FREQ.LST *** 2nd GFA-Manual, page 6-7 > PROCEDURE array_frequency(VAR proc(),freq()) ' ' *** Count frequency of positive numbers in word-array (no negative numbers!) ' *** Put result in frequency-array (created in this Procedure) ' ' *** Function: Array_max ' LOCAL i IF DIM?(freq())=0 DIM freq(@array_max(proc())) ELSE ERASE freq() DIM freq(@array_max(proc())) ENDIF FOR i=0 TO PRED(DIM?(proc())) INC freq(proc(i)) NEXT i RETURN ' ********* '