PROCEDURE (f:Frame) Modify*(dy:INTEGER);
VAR
    y:INTEGER;
BEGIN
    y:=f.y;
    f.Modify^(dy); //WHAT THE HELL IS THIS ?
    IF y>f.y THEN
        f.RedrawFrom(y);
    ELSE
        f.RedrawFrom(f.y);
    END;
END Modify;