pro get_visible, week, startt, stopt, passn, jst=jst, numss=numss, visss=visss
;+
;   Name: get_visible
;
;   Purpose: return visible KSC orbit data
;
;   Input Parameters:
;      week - week# (default is current week)
;
;   History:
;      6-apr-1995 (SLF) - written
;      8-apr-1995 (SLF) - new visible.dat format (include orbit)
;			  call cont2time to parse contacts/mk_visible output
;     11-jan-1995 (SLF) - force 2 digit year...
;-

if n_elements(week) eq 0 then week=anytim2weekid()
weekstr=(str2arr(gt_day(!stime,/string),'-'))(2) + '_' + $
		string(week,format='(i2.2)')
vfile=concat_dir('$DIR_GEN_STATUS','visible_'+weekstr+'.dat')

cont2time, vfile, startt, stopt, passn, jst=jst, numss=numss, visss=visss

return
end