pro plot_mts

set_plot, 'z'

!P.multi = [0, 1, 3]
!P.background = 255


mtsd = read_data('mts247354464.12.1.dat')

plot, [0, 90], [0.0, 50.4], /nodata, xstyle=1, ystyle=1, $
	ytitle='Count Rate!C5-12 keV', color=0, title='Time-series for seq 247354464, number 12, SSC 1', $
	charsize=2.0, charthick=1.5
oplot, mtsd(0,*), mtsd(3,*), psym=10, color=0

plot, [0, 90], [0.0, 34.8], /nodata, xstyle=1, ystyle=1, $
        ytitle='Count Rate!C3-5 keV', color=0, charsize=2.0, charthick=1.5
oplot, mtsd(0,*), mtsd(2,*), psym=10, color=0

plot, [0, 90], [0.0, 32.4], /nodata, xstyle=1, ystyle=1, $
        ytitle='Count Rate!C1.5-3 keV', color=0, xtitle='Seconds from MJD 52215.912238 (UTC)', $
	charsize=2.0, charthick=1.5
oplot, mtsd(0,*), mtsd(1,*), psym=10, color=0

filename =  'mts247354464.12.1.dat.gif'
write_gif, filename, tvrd()

end