; This script continues the BA pressure check in low emission
; by going to high emission. BA filament is on but turned on again for standaloneness.
; FT 5/9/02 Initial rev

$TM ON
$tcrate 1000            ;Set comnd rate at 1/sec.   Comment out for STOL convert 
$NOP 1 370
$WAIT 5         ;Wait for NOP
$DCON0 8 1              ;BA filament on
$DCON0 9 1              ;BA Hi Emission  
$WAIT 30                ;Wait for BA hi before limitcheck
$NOP 1 375
$Bell
$Bell
$Bell
$HOLD
        ;If BA Fil MORE THAN 2.4A send Initmode  - immediately
        ;BA Fil __________(2.0A)  BA Grid _________(527 uA)
        ;BA Out _________(<1000 pA)     50 pA on 2-Dec-01
        ;If BA-Out is less than 1000 pA  Operator send GO
        ;100 pA ~= 1e-7 mbar  (Hi emission)
        ;Operator clear INITMODE from command window.