INTERFACE Cell;

CONST
  Brand = "Cell";
  
TYPE
  T = RECORD
    X,Y,D:INTEGER := 0;
  END;
  
END Cell.