FUNCTION pick

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

    save_scr = savescreen(t, l, b, r)
    scroll(t, l, b, r, 0)
    @ t, l TO b, r
    ret_val = achoice(t + 1, l + 1, b - 1, r - 1, ar)
    restscreen(t, l, b, r, save_scr)

RETURN  ret_val

