function count(p :Value):integer;
begin with p^ do
      if tag in processvalues then
      case tag of
         paraprocessval:   count:=count(p1)+count(p2);
         choiceprocessval: count:=ord(count(p1)+count(p2) > 0);
         inprocessval, outprocessval: count:=1;
         stopprocessval:   count:=0
      end
      else error('in count  ')
end;

{\fB Count Number of Active Processes. \fP}