Interface for qBeta module object

Origin: workspace

DumpObjEx: obj  

   %requires MetaSystem

   %include MetaSystem

   Point: Value

      %globals 

      in X: var Integer

      in Y: var Integer

      move: 

         in dx: var integer

         in dy: var integer

      moveTo: 

         in P: var Point(,)

      print:< 

   ColorPoint: Point

      in C: var integer

      print::< 

   Line: Value

      %globals 

      in X1: var integer

      in X2: var integer

      PL1: var Point(X1,)

      PL2: var Point(X2,)

      moveLine: 

         in Pa: var Point(,)

         in Pb: var Point(,)

      print: 

   record: 

      in age: var integer

      print: 

   q1: var integer

   q2: val 

   P1: val Point(,)

   P2: var Point(,)

   L1: val Line(,)

   S1: obj Record()

   S2: ref Record

   SN: ref ObjSnap