OPENR,lun,'/home3/www/amsu/nwpac/31/26w.idl', /GET_LUN
date = FltArr(100)
mslp = FltArr(100)
d = 0.0
m = 0.0
count = 0
WHILE (NOT EOF(lun)) DO BEGIN
   READF, lun, d, m
   date(count) = d
   mslp(count) = m
   count = count +1
ENDWHILE
date = date(0:count -1)
mslp = mslp(0:count -1)
plot, mslp, YRange=[870,1020]
loadct,39
tvlct,r,g,b,/get
write_gif,'26w.gif',tvrd(),r,g,b
END