pro get_box,xd,yd
;-----------------------------------------------------------------------
; Name: GET_BOX
;
; Purpose: Returns the corners of a box the user interactively
;          selects on the screen
;          
; Inputs: 
;         
; Comments: 
;           
; Revision history:
;       written by Michael Wise, 2-23-96
;-----------------------------------------------------------------------
;
; Check for correct number of parameters
;
np=n_params(0)
if ((np lt 0) or (np gt 20)) then begin
   print,string(7B),'CALLING SEQUENCE: ', $
   'get_box,[xd,yd]'
   return   
endif
movbox,x0,y0,dx,dy,code,xrange=xd,yrange=yd
tvbox,x0,y0,dx,dy,255
;
; Return to IDL
;
return
end