pro demoOrionSum,bandOffset
;  Runs the IDL demo of reduction of Orion data
;  demoOrionTsys.pro   fixes the Tsys values and scales the calibrated
;                    data by tsys
   
  curoff
  sety,-.1,1.5
  if (!sumwt gt 0) then ave
                                ; distance between On source and Off
                                ; source records for 4 band, 2 pol obs
   for i = 0,4 do begin         ; for each scan pair of Off on scans
     offRec = ((i*16)+bandOffset)
     onRec  = offRec +8
     ps, onRec, offRec          ; now compute and show the data
     accum
  endfor
  ave
  mediansub,20
  show   

  ;next process the other polarization  
   for i = 0,4 do begin         ; for each scan pair of Off on scans
     offRec = ((i*16)+bandOffset+1)
     onRec  = offRec +8
     ps, onRec, offRec
     accum
  endfor
  ave
  mediansub,20
  reshow
 return
end