Begin
   Class Point(x, y);
      Real x, y;
   Begin
      Procedure Move(dx, dy);
         Real dx, dy;
      Begin
         x := x + dx;
         y := y + dy;
      End;
      
      Procedure Print;
      Begin
         OutText("Point at (");
         OutFix(x, 2, 5);
         OutText(", ");
         OutFix(y, 2, 5);
         OutText(")");
         OutImage;
      End;
   End Point;
   
   Ref(Point) p;
   p :- New Point(3.0, 4.0);
   p.Print;
   p.Move(1.5, -2.0);
   p.Print;
End