for lover

    for i : 1 .. 3       % top of ball
        if whatdotcolour (x - 3 + i, y + 3) = 42 then
            hit := "finish"
            exit
        end if
        if whatdotcolour (x - 3 + i, y - 3) = 42 then
            hit := "finish"
            exit
        end if
        if whatdotcolour (x + 3, y - 3 + i) = 42 then
            hit := "finish"
            exit
        end if
        if whatdotcolour (x - 3, y - 3 + i) = 42 then
            hit := "finish"
            exit
        end if
    end for
    View.Update
    exit when hit = "yes"