carpetquote.sim

    class Carpet;
        virtual: procedure price is Real procedure price(area); Real area;;
    begin
    end;

    class Room;
        virtual: Real procedure area();
    begin
    end;