file: wpfiles\vertext_replacement\on_off.wpd jbh 8 june,04

$---------------------------------------------------------------------------------------------------------------------------------------------------------------

$MAIN LOOP, CONTINUED.....

$AZIMUTH POWER UP, POWER DOWN, AND MONITORING

IF AZpwrCOMMAND=1

CALL AZ.PWRUP.SEQ (AZ.PWR.STATUS)

$ERROR CHECK: DID AZ.PWR.STATUS BECOME DEFICIENT TO
CONTINUE	BRAKE OFF	(RUN) STATUS?

IF (AZ.LAST.PWR.STATUS = BRAKE.OFF AND AZ.PWR.STATUS N.E. 'BRAKE.OFFf)

THEN AZ.PWR.MESSAGE = "AZ power being shut down for deficient status"
AZ.PWR.COMMAND=0

END IF

AZ.LAST.PWR.STATUS=AZ.PWR.STATUS

END IF

IF AZ.PWR.COMMAND=0

CALL AZ.PWR.DOWN.SEQ(AZ.PWR.STATUS)

WRITE 7 AZPWRSTATUS

END IF

$---------------------------------------------------------------------------------------------------------------------------------------------------------------

$MAIN LOOP, CONTINUED.......

$GREG POWER UP, POWER DOWN, AND MONITORING

IF GREG.PWR.COMMAND=1

CALL GREG.PWRUP.SEQ(GREG.PWRS.TATUS)

$ERROR CHECK: DID GREG.PWR.STATUS BECOME DEFICIENT TO
CONTINUE	BRAKE OFF	(RUN) STATUS?

IF (GREG.LAST.PWR.STATUS = BRAK.EOFF AND GREG.PWR.STATUS N.E. 'BRAKE.OFF)

THEN GREG.PWR.MESSAGE = "Greg power being shut down for deficient status"
GREG.PWR.COMMAND=0

END IF

GREG.PWR.STATUS=GREG.PWR.STATUS

END IF

IF GREG.PWR.COMMAND=0

CALL GREG.PWRDOWN.SEQ(GREG.PWR.STATUS)

WRITE 7 GREG.PWR.STATUS

END IF

$---------------------------------------------------------------------------------------------------------------------------------------------------------------

$---------------------------------------------------------------------------------------------------------------------------------------------------------------

$MAIN LOOP, CONT.......

$CH POWER UP, POWER DOWN, AND MONITORING

IF CH.PWR.COMMAND=1

CALL CH.PWRUP.SEQ(CHPWR.STATUS)

$ERROR CHECK: DID CH.PWR.STATUS BECOME DEFICIENT TO
CONTINUE	BRAKE.OFF	(RUN) STATUS?

IF (CH.LAST.PWR.STATUS = BRAKE.OFF AND CH.PWR.STATUS N.E. BRAKE.OFF)

THEN CH.PWR.MESSAGE = "CH power being shut down for deficient status"
CH.PWR.COMMAND=0

END IF

CH.LAST.PWR.STATUS=CH.PWR.STATUS

END IF

IFCH.PWR.COMMAND=0

CALL CH.PWRDOWN.SEQ(CHPWRSTATUS)

END IF

$---------------------------------------------------------------------------------------------------------------------------------------------------------------