PROC F_FL_CT_PHVL1
GOTO BEGIN
;
;#***********************************************************************
;#      ****PROCEDURE HEADER****
;#
;#      1.0     Introduction
;#
;#              1.1     FOT Name: F_FL_CT_PHVL1
;#                      MMS-F Name:
;#                      SUM Issue:
;#                      Simulator Validation Status
;#
;#              1.2     Date Created: 01-Nov-95 heg
;#
;#
;#              1.3     Change Description:
;#                      
;#
;#              1.4     Point of Contact:
;#                  Author: 
;#                  H.Gruenwaldt MPAe Lindau  (49) 5556-979 413
;#***********************************************************************
;#      2.0     Description
;#
;#              2.1     -->> Narrative Description <<--
;#                      ** MPAe - CTOF AUTHORIZATION STRICTLY REQUIRED **
;#                      PURPOSE: set HVPS LIMIT to level: PARAMETER
;#
;#              2.2     Intended Use:
;#
;#              2.3     Duration:       TBD
;#
;#              2.4     References:
;#
;#***********************************************************************
;#      3.0     Instructions for Use:
;#
;#              3.1     Parameters Required (hex)
;#                     
;#                           0100:   4 kV
;#                           0101:  10 kV
;#                           0102:  15 kV
;#                           0103:  19 kV
;#                           0104:  23 kV
;#                           0105:  26 kV 
;#                           0106:  28 kV  
;#                           0107:  30 kV  
;#
;#      3.2     Critical Activities
;#
;#
;#
;#      3.3     Special Constraints or Activities
;#              Max. time: 30 sec between the two commands of the procedure
;#
;# *************************************************************************

;#      4.0     STEPS:

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

LOCAL PARHV
ASK "WHAT HVPS VOLTAGE LIMIT DO YOU ALLOW, INTEGER, [KV] ?"PARHV
IF (PARHV = 4) THEN
/FBCENA 
/FBCLIMHV,0100         ;set HVPS limit to level 0, 4 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
ELSE
ENDIF

IF (PARHV = 10) THEN
/FBCENA 
/FBCLIMHV,0101         ;set HVPS limit to level 1, 10 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
ELSE
ENDIF

IF (PARHV = 15) THEN
/FBCENA 
/FBCLIMHV,0102         ;set HVPS limit to level 2, 15 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
ELSE
ENDIF

IF (PARHV = 19) THEN
/FBCENA 
/FBCLIMHV,0103         ;set HVPS limit to level 3, 19 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
ELSE
ENDIF

IF (PARHV = 23) THEN
/FBCENA 
/FBCLIMHV,0104         ;set HVPS limit to level 4, 23 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
ELSE
ENDIF

IF (PARHV = 26) THEN
/FBCENA 
/FBCLIMHV,0105         ;set HVPS limit to level 5, 26 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
ELSE
ENDIF

IF (PARHV = 28) THEN
/FBCENA 
/FBCLIMHV,0106         ;set HVPS limit to level 6, 28 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND
ELSE
ENDIF

IF (PARHV = 30) THEN
/FBCENA 
/FBCLIMHV,0107         ;set HVPS limit to level 7, 30 kV
WAIT                   ;VERIFY BUFFER Contents
/SEND 
ELSE
ENDIF

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