PROC F_FL_CT_PHVS2
;VERSION 1
GOTO BEGIN
;
;#***********************************************************************
;#      ****PROCEDURE HEADER****
;#
;#      1.0     Introduction
;#
;#              1.1     FOT Name: F_FL_CT_PHVS2
;#                      MMS-F Name:
;#                      SUM Issue:
;#                      Simulator Validation Status: Valid
;#
;#              1.2     Release Date: 11-Nov-95 heg
;# 
;# 						1. 16-JAN-96  BS
;#
;#              1.3     Change Description:
;# 
;# 					1. Update version # and format.
;#
;#              1.4     Point of Contact:
;#                      Author: 
;#                      H.Gruenwaldt MPAe Lindau  (49) 5556-979 413
;#***********************************************************************
;#      2.0     Description
;#
;#              2.1     -->> Narrative Description <<--
;#                      PURPOSE: switch CTOF HVPS to level: PARAMETER decimal
;#
;#              2.2     Intended Use:
;#
;#              2.3     Duration:       TBD
;#
;#              2.4     References:
;#
;#***********************************************************************
;#      3.0     Instructions for Use:
;#
;#              3.1     Parameters Required (hex)
;#                     
;#                           0000:   4 kV
;#                           0001:  10 kV
;#                           0002:  15 kV
;#                           0003:  19 kV
;#                           0004:  23 kV
;#                           0005:  26 kV 
;#                           0006:  28 kV  
;#                           0007:  30 kV  
;#
;#      3.2     Critical Activities
;#
;#
;#
;#      3.3     Special Constraints or Activities
;#
;#              
;#
;# ************************************************************************* 
 

;#      4.0     STEPS:

BEGIN:

LOCAL PARHV
LOCAL PARHV1

IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN
ELSE
/CLEAR  ;Clearing the Command Buffer.
ENDIF


ASK "WHAT HVPS VOLTAGE STEP DO YOU WANT TO SWITCH TO, [KV] ?"PARHV
IF (PARHV > 19) THEN
ASK "YOU ARE GOING TO SWITCH TO A HIGH HV STEP: REPEAT VOLTAGE [KV] :"PARHV1
ELSE
PARHV1 = PARHV
ENDIF

IF (PARHV1 <> PARHV) THEN
WRITE "cmd abort: HVPS STEP LEVEL NOT CONFIRMED"
GOTO LRAUS
ELSE
ENDIF

IF (PARHV = 4) THEN
/FBCHVPS,0000         ;switch HVPS to level 0, 4 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LRAUS
ELSE
ENDIF

IF (PARHV = 10) THEN
/FBCHVPS,0001          ;switch HVPS to level 1, 10 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LRAUS
ELSE
ENDIF

IF (PARHV = 15) THEN
/FBCHVPS,0002         ;switch HVPS to level 2, 15 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LRAUS
ELSE
ENDIF

IF (PARHV = 19) THEN
/FBCHVPS,0003         ;switch HVPS to level 3, 19 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LRAUS
ELSE
ENDIF

IF (PARHV = 23) THEN
/FBCHVPS,0004         ;switch HVPS to level 4, 23 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LRAUS
ELSE
ENDIF

IF (PARHV = 26) THEN
/FBCHVPS,0005         ;switch HVPS to level 5, 26 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LRAUS
ELSE
ENDIF

IF (PARHV = 28) THEN
/FBCHVPS,0006         ;switch HVPS to level 6, 28 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LRAUS
ELSE
ENDIF

IF (PARHV = 30) THEN
/FBCHVPS,0007          ;switch HVPS to level 7, 30 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LRAUS
ELSE
ENDIF

LRAUS:
;#
;#
;#
;#***********************************************************************
;#   5.0   Final Constraints
;#
;#         TBD
;#
;#***********************************************************************
ENDPROC