PRO p11104a
; Plot one 2-hr signal of raw data (beam-formed).
; RWB, November 3, 2001.
   !p.background='ffffff'x; white background
   !p.color=0
   str1=''; buffer
   npt=long(1801)*long(4096)
   idat=intarr(npt)
   day0=double(0); starting day for file (double-precision floating)
   infile='/usr/data/bland/pioneer/2001/r0124504.24b'; possible file name
   openr, lun1, infile, /get_lun
   readu,lun1,day0,idat
   close,lun1
   dt=0.001; time interval, in seconds
   yd=findgen(npt)*dt/86400.+day0
   plot,yd,idat,title='Two hours of beam-formed signal, from '+ $
     strmid(infile,strlen(infile)-12,12), $
     xtitle='time (day of 2001)', $
     xstyle=1
END