!----------------------------------------------------------------------
! PR:I_TOTPOW.NIC
! Input file for INPUT TOTPOW
!----------------------------------------------------------------------
sic\let b*4 "" /new character  ! 4 is underline, 7 reverse video, 5 bold
sic\let n*4 "" /new character  ! are mapped to same attribute on dumb VT100
define character var1*11 save_type*6
let var1 'exist(TOTPOW)'
if (var1.eq."YES") then
  let var1 'SCAN'
 else
   var header on
   if (.not.exist(TOTPOW)) then
     say "Example: TOTPOW 2434 plots power from scan "'B''2434''N'
     return
   endif
   if (scan.lt.0) then
    let var1 "scan"
   else
    let var1 'SCAN'
  endif
  var header off
endif
say "TOTPOW "'B''VAR1''N'" plots total power of the scan "'B''VAR1''N'
let save_type 'xtype'
if xtype.eq."LST" then
  let xtype "UT"
endif
sic\say "   X data selected by variable   XTYPE   [" 'b''xtype''n' "]"
let xtype 'save_type'
sic\say "   Allowed are XTYPE variables UT and EL"
sic\say "   Channels are controlled by variables FIRST [" 'b''first''n' "]"
sic\say "   and LAST [" 'b''last''n' "] [0 0 ==> all channels]"
sic\say "   Plot REL or ABS ordinate scaling with DO_SCALE: [" 'b''do_scale''n' "]"
sic\say "   Limits controlled by variable LIMITS  [" 'b''limits''n' "]"
sic\say "   ASPECT controls the abscissa to ordinate ratio: [" 'b''aspect''n' "]"