DEFINITION XYplane;

CONST
  erase = 0;
  draw = 1;

VAR
  X, Y, W, H : INTEGER;

PROCEDURE Clear;
PROCEDURE Open;
PROCEDURE Dot(x, y, mode: INTEGER);
PROCEDURE IsDot(x, y: INTEGER): BOOLEAN;
PROCEDURE Key(): CHAR;

END XYplane.