Interface for qBeta module object

Origin: LIB

EMC2array: obj
   %Public
   Array:
      %Public
      pos: var integer
      noof: var integer
      rep: ref Indexed
      put:
         in e: var integer
         out res: ref array
      get:
         out res: var integer
      nxt:
         out res: var integer
      prv:
         out res: var integer
      forAll:
         %Public
         current: var integer
         loop:
      print:<
   Range:
      in low: var integer
      in upp: var integer
      noof: obj +
      check:
         in inx: var integer
      print:
   D1_Array: Array
      in R: ref Range
      ElmType:< Object
      %Public
      putAt:
         in inx: var integer
         in exp: var integer
         out res: ref Array
      getAt:
         in inx: var integer
         out res: var integer
      print::<
   D2_Array: Array
      in R1: ref Range
      in R2: ref Range
      out res: ref D2_array
      %Public
      putAt:
         in inx1: var integer
         in inx2: var integer
         in exp: var integer
         out res: ref D2_Array
         repPos: var integer
      getAt:
         in inx1: var integer
         in inx2: var integer
         out exp: var integer
         repPos: var integer
      print::<