Interface for qBeta module object

Origin: workspace

MiniVal: obj  

   Point: Value

      %globals 

      in X: var Integer

      in Y: var Integer

      moveTo: 

         in P: var Point(,)

      print:< 

   cPoint: Point

      print::< 

   Line: Value

      %globals 

      PL1: var Point(,) -- 1

      PL2: var Point(,) -- 3

      x: var integer

      print: 

      moveLine: 

         in Pa: var Point(,)

         in Pb: var Point(,)

         y: var integer

   dummy: var integer

   dummy2: var integer

   dummy3: var integer

   dummy4: var integer

   P1: var Point(,) -- 6: P1.X, 7: P1.Y

   P2: var Point(,) -- 8: P2.X, 9: P2.Y

   CP: val cPoint(,) -- 10

   L: var Line -- 13/14

   Record: 

      age: var integer

      bingo: 

   R1: obj Record -- 17/18

   R2: ref Record -- 16

   Px: var Point(,) -- 19/20

   Py: var Point(,) -- 21/22

   PointerTest: 

      Pt: var Point(,)