pro plot_relays,hk,timeint
;
;     hk = array of all monitors from HK TLM stream generated by DACS
;     timeint = 2 word array giving the start and end times for the plot
;
; @(#)plot_relays.pro	1.1 01/23/98 :LASCO IDL LIBRARY
;
; offset the beginning of HK before LASCO HK information begins
;
if (hk(0) eq 299) then offset=15 else offset=10
;
hk1 = gethkn(hk,1)
if offset eq 15 then begin
   getcputime,hk1,firstday,time
   kdate,firstday,id,im,iy
endif else begin

    id = 16
    im = 9
    iy = 93
    time = indgen(n_elements(w))*15./3600.
endelse
months=['JAN','FEB','MAR','APR','MAY','JUN'  $
       ,'JUL','AUG','SEP','OCT','NOV','DEC']
!x.title = 'Time (Hours) Starting Date:  '+ $
           string(id,format='(i2," ")')+months(im-1)+ $
           string(iy,format='(i3)')
!y.title = 'Relay Status'
;if (pltype eq 0) or (pltype eq 1) then begin
   !p.multi=[0,3,6,0,1]
   offvolt = offset+4-1
   v = tmpoint(hk1,offvolt+4,2)+1			;subword 4
   plot,time,v,title='C1 Camera',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,1)+1			;subword 4
   plot,time,v,title='C1 FP',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,4)+1			;subword 4
   plot,time,v,title='C2 Camera',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,8)+1			;subword 4
   plot,time,v,title='C3 Camera',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'10'xl)+1			;subword 4
   plot,time,v,title='EIT Camera',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,32)+1			;subword 4
   plot,time,v,title='C1 Cal Lamp Det',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,64)+1			;subword 4
   plot,time,v,title='C1 M1 - A',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,128)+1			;subword 4
   plot,time,v,title='C1 M1 - B',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'800'xl)+1			;subword 4
   plot,time,v,title='PES - A',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'1000'xl)+1		;subword 4
   plot,time,v,title='PES - B',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'100'xl)+1			;subword 4
   plot,time,v,title='IC - A',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'200'xl)+1			;subword 4
   plot,time,v,title='IC - B',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'400'xl)+1			;subword 4
   plot,time,v,title='Boresight',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'2000'xl)+1		;subword 4
   plot,time,v,title='COB Bias Htr',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'4000'xl)+1		;subword 4
   plot,time,v,title='C1 Make Up Htr',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+4,'8000'xl)+1		;subword 4
   plot,time,v,title='C2 Make Up Htr',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+5,1)+1			;subword 5
   plot,time,v,title='C3 Make Up Htr',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   v = tmpoint(hk1,offvolt+5,2)+1			;subword 5
   plot,time,v,title='FP Make Up Htr',yrange=[0,+3] , $
   ytickformat='svmrelayst',yticks=1,ytickv=[1,2]
   !p.multi = 0
;endif
!x.title = ''
!y.title = ''
empty
return
end