; IDL proceedure demoOrion expects a selection of 43 GHz Orion A data
; to be loaded into the GB IDL environment.  This script commands
; an update to the Orion A Tsys values, then calibrates and plots
; HISTORY
;  04APR01 GIL fix comments
;  04MAR31 GIL add PS output plotting
;  04MAR29 GIL add repeated plotting of all 4 bands
;  04MAR21 GIL initial version
pro demoOrion

                                ; number of records On source and Off
                                ; source scans for 4 band, 2 pol obs
   defsysv,'!recoffset',-8
   demoOrionTsys                ;  fixes Tsys values from sdfits

   msg='                  '     ; prepare for getting observer prompt
   freq
   
   demoOrionSum,0               ; first frequency band
   printon,'idl43300MHz'        ; now prepare to print
   demoOrionSum,0               ; first frequency band
   printoff
   read,msg,prompt='Hit <ENTER> to continue! '

   demoOrionSum,2               ; second frequency band
   printon,'idl44100MHz'        ; now prepare to print
   demoOrionSum,2               ; recompute plot
   printoff
   read,msg,prompt='Hit <ENTER> to continue! '

   demoOrionSum,4
   printon,'idl44900MHz'        ; now prepare to print
   demoOrionSum,4               ; recompute plot
   printoff
   read,msg,prompt='Hit <ENTER> to continue! '

   demoOrionSum,6
   printon,'idl45700MHz'        ; now prepare to print
   demoOrionSum,6               ; recompute plot
   printoff

return
end                             ; end of demoOrion()