Description: Determine the number of active objects in the region array
Mapped Command:
FUNCTION __ActiveObjects()
   local n
   local k := 0                                  // establish an active object counter
   for n := 1 to MaxHandles                      // loop through the object array
      k := if(_handles_[n,9] > 0,k++,k)          // if it's an active object in the get array, increment the counter
   next                                          // for n := 1 to MaxHandles
RETURN(k)                                        // return the number of objects that are active