*point.MyPoint = NewObject.MyPoint
*circle.Circle = NewObject.Circle

If OpenConsole()
  *point\Print()
  *circle\SetX(3)
  *circle\Print()
  CloseConsole()
EndIf