FUNCTION pick

PARAM t, l, b, r, ar
PRIVATE save_scr, ret_val, save_color

    save_scr = savescreen(t, l, b, r)
    scroll(t, l, b, r, 0)

    * save color and set BLACK on BLACK to simulate shadow
    save_color = setcolor("N/N")

    scroll(b, l + 1, b, r, 0)
    scroll(t + 1, r, b, r, 0)

    * restore color for achoice
    setcolor(save_color)

    @ t, l TO b - 1, r - 1
    ret_val = achoice(t + 1, l + 1, b - 2, r - 2, ar)

    restscreen(t, l, b, r, save_scr)

RETURN  ret_val

