<> <> <> DIRECTORY StatsDefs USING [StatCounterIndex], StatsOps USING []; StatsHot: PROGRAM EXPORTS StatsDefs, StatsOps = BEGIN OPEN StatsDefs; <> <> statGrand: PUBLIC POINTER TO ARRAY StatCounterIndex OF LONG CARDINAL _ NIL; StatIncr: PUBLIC PROCEDURE [which: StatCounterIndex] = BEGIN IF statGrand#NIL THEN statGrand[which] _ statGrand[which] + 1; END; StatBump: PUBLIC PROCEDURE [which: StatCounterIndex, howmuch: CARDINAL] = BEGIN IF statGrand#NIL THEN statGrand[which] _ statGrand[which] + howmuch; END; StatGetCounter: PUBLIC PROCEDURE [which: StatCounterIndex] RETURNS [LONG CARDINAL] = BEGIN RETURN[IF statGrand#NIL THEN statGrand[which] ELSE 0]; END; END.