; This script turns off the BA filament.
; FT 5/9/02 Initial rev

$TM ON
$tcrate 1000            ;Set comnd rate at 1/sec.   Comment out for STOL convert 
$NOP 1 380
$WAIT 5
$DCON0 8 0              ;BA filament OFF
$DCON0 9 0              ;Set BA back to Lo Emission
$WAIT 10
$NOP 1 385              ;End BA plots
$WAIT 5         ;Wait for NOP