function Cursor_out,in_data,button=button,data=data, $
device=device,normal=normal,start=start,Dt=Dt,model=model,time=time, $
top=top

;	Issues coordinates of the cursor in graphics window.

if n_elements(model) le 0 then model='hh:mm:ss.***'
if n_elements(Dt) le 0 then Dt=1

	if n_elements(start) le 0 then begin
start=0
UT=0
	endif else UT=1

if keyword_set(time) then ut=1

height=15

erase=replicate(!p.background,!d.x_size/2, height)

Xout=0.01
Yout=0.01; 1-0.01

;	if keyword_set(top) then begin
;tv,erase, 0, !d.y_size-height
;Yout=1-0.01
;	endif else begin
;tv,erase, 0, 0
;Yout=0.01
;	endelse

tv,erase, 0, 0	;!d.y_size-height


	old_data=' '

	if n_elements(in_data) gt 0 then begin
		xc=in_data(0)
if n_elements(in_data) eq 2 then yc=in_data(1) else yc=0
	endif

REPEAT BEGIN

if n_elements(in_data) le 0 then cursor,xc,yc,/ch,data=data, $
	device=device,normal=normal
button=!err

	if UT then begin

x=SMH(xc*3600,ms=3)

	CASE strlowcase(Model) OF

'hh:mm':	x=strmid(x,0,5)
'mm:ss':	x=strmid(x,3,5)
'ss':		x=strmid(x,6,6)
'hh:mm:ss':	x=strmid(x,0,8)

ELSE:
	ENDCASE

aa=x+'  '+string(yc,format='(g12.5)')

	endif else aa=string(xc,yc,format='(g12.5, ", ", g12.5)')

xyouts,Xout,Yout,old_data,/norm,font=0,col=!p.background
xyouts,Xout,Yout,aa,/norm,font=0

old_data=aa

ENDREP UNTIL ((button and 7B) ge 1B) or $
		n_elements(in_data) gt 0

	RETURN,[xc,yc]
end