      *> sequence.ins
      $SET ALIGN(8)
       78  numberOfStandardOutputs      value 20.
       78  numberOfStandardSockets      value 5.
       78  numberOfStandardDependants   value 5.
       78  numberOfStandardSpies        value 1.
       78  numberOfSocketSignals        value 20.
       78  numberOfHandlersForSignal    value 5.
       78  traceRecordTooLong           value 101.
       78  inputSocketUndefined         value 93.
       78  outputSocketUninitialized    value 94.
       78  outputSignalUndefined        value 95.
       78  duplicateOutputSignal        value 96.
       78  internalError                value 97.
       78  duplicateInputSignal         value 98.
       78  resourceNotFound             value 99.
       78  resourceFileError            value 100.
      *>>---------------------------------------------------------------
      *>> The maximum size in bytes of an OBJECT.  Limit is 256Meg.
      *>>---------------------------------------------------------------
       78 maxnumberbytes               value h"0FFFFFFF".
      *>>---------------------------------------------------------------
      *>> The size of an object reference
      *>>---------------------------------------------------------------
       78 objectReferenceSize          value length of self.
      *>----------------------------------------------------------------
      *> Answer true if the receiver is a kind of menu, else answer
      *> false.
      *>----------------------------------------------------------------
      *>----------------------------------------------------------------
      *> Add a dependent for this object. The dependent will be notified
      *> if this object receives the changed or deleted message.
      *>----------------------------------------------------------------
       01 ObjectStatus                pic x comp-5.
                88 storingObjects       value 1.
                88 notStoringObjects    value 0.
       78 bufferSize       value 36.
       01 COLLECTABLE is typedef.
           03 abyte  pic x(objectreferencesize).
       01 collPtr                       POINTER COLLECTABLE.
      *>>---------------------------------------------------------------
      *>> The length of the elements within the collection
      *>>---------------------------------------------------------------
       01 collectionstride              pic x(4) comp-5 value 0.
      *>>---------------------------------------------------------------
      *>> Determines whether objects or a particular class of intrinsic
      *>> types are being stored. Has the value of NULL if objects are
      *>> being stored otherwise it stores the class of the intrinsic to
      *>> be stored within this collection
      *>>---------------------------------------------------------------
       01 collectiontemplate           usage object reference
               value null.
      *>>---------------------------------------------------------------
      *>> Specifies how many elements are stored within the collection
      *>>---------------------------------------------------------------
       01 numberelements               pic x(4) comp-5 value 0.
      *>>---------------------------------------------------------------
      *>> Specifies how many bytes are required for the whole collection
      *>>---------------------------------------------------------------
       01 storagerequirements          pic x(4) comp-5 value 0.
       01 ooiteratorflag pic x comp-5.
           88 ooquit   value 1.
           88 oonoquit value 0.
      *>----------------------------------------------------------------
      *> PRIVATE. Return the template which indicates what Class of
      *> elements are being stored within this collection. If the value
      *> returned is NULL then the collection is storing objects.
      *>----------------------------------------------------------------
      *>----------------------------------------------------------------
      *> Return true if this collection is the same species as
      *> aCollection and they store the same type of elements and the
      *> elements are of the same value and in the same
      *> order. If the species or the type of elements are different
      *> raise an incompatible collection exception.
      *>----------------------------------------------------------------
