FUNCTION pick
 
PARAM t, l, b, r, ar
PRIVATE save_scr, ret_val
 
    save_scr = savescreen(t, l, b, r)
    scroll(t, l, b - 1, r - 1, 0)
 
    * This is from IDL. We set color to white on black
    * without disturbing the characters themselves
    set_attr(7,b, l + 1, b, r)
    set_attr(7,t + 1, r, b, r)
 
    @ 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

