PROC F_FL_CT_PMCL4
;Version 1
GOTO BEGIN
;
;#***********************************************************************
;#      ****PROCEDURE HEADER****
;#
;#      1.0     Introduction
;#
;#              1.1     FOT Name: F_FL_CT_PMCL4
;#                      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. Add Versin # and update format.
;#                      
;#
;#              1.4     Point of Contact:
;#                      Author: 
;#                      H.Gruenwaldt MPAe Lindau  (49) 5556-979 413
;#***********************************************************************
;#      2.0     Description
;#
;#              2.1     -->> Narrative Description <<--
;#
;#                      PURPOSE: set CTOF MCPS LIMIT to level: PARAMETER, dec
;#
;#              2.2     Intended Use:
;#
;#              2.3     Duration:       TBD
;#
;#              2.4     References:
;#
;#***********************************************************************
;#      3.0     Instructions for Use:
;#
;#              3.1     Parameters Required (hex), input is integer volt
;#                     
;#                           0100:    50 V 
;#                           0101:   155 V
;#                           0102:   535 V
;#                           0103:   700 V
;#                           0104:   750 V
;#                           0105:   800 V 
;#                           0106:   850 V  
;#                           0107:   900 V  
;#                           0108:   960 V 
;#                           0109:   975 V
;#                           010A:   990 V
;#                           010B:  1005 V
;#                           010C:  1020 V
;#                           010D:  1035 V 
;#                           010E:  1050 V  
;#                           010F:  1065 V  
;#
;#      3.2     Critical Activities
;#
;#
;#
;#      3.3     Special Constraints or Activities
;#
;#              Max. time: 30 sec between the two commands
;#                         of each block of the procedure
;#
;# ************************************************************************* 
 

;#      4.0     STEPS:

BEGIN:

LOCAL PARHV
LOCAL PARHV1

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

ASK "WHAT MCPS VOLTAGE/plate LIMIT DO YOU ALLOW, INTEGER, [KV] ?"PARHV
IF (PARHV > 900) THEN
ASK "YOU REQUEST A HIGH MCPS LIMIT: REPEAT VOLTAGE/plate, [KV] :"PARHV1
ELSE
PARHV1 = PARHV
ENDIF

IF (PARHV1 <> PARHV) THEN
WRITE "cmd abort: MCPS LIMIT LEVEL NOT CONFIRMED"
GOTO LDONE
ELSE
ENDIF

; -------------------------
; Start of command blocks :
; -------------------------

IF (PARHV = 50) THEN
/FBCENA 
/FBCLIMMC,0100         ;set MCPS limit to level 0, 50 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 155) THEN
/FBCENA 
/FBCLIMMC,0101         ;set MCPS limit to level 1, 155 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 535) THEN
/FBCENA 
/FBCLIMMC,0102        ;set MCPS limit to level 2, 535 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 700) THEN
/FBCENA 
/FBCLIMMC,0103         ;set MCPS limit to level 3, 700 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 750) THEN
/FBCENA 
/FBCLIMMC,0104         ;set MCPS limit to level 4, 750 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 800) THEN
/FBCENA 
/FBCLIMMC,0105         ;set MCPS limit to level 5, 800 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 850) THEN
/FBCENA 
/FBCLIMMC,0106         ;set MCPS limit to level 6, 850 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 900) THEN
/FBCENA 
/FBCLIMMC,0107         ;set MCPS limit to level 7, 900 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 960) THEN
/FBCENA 
/FBCLIMMC,0108         ;set MCPS limit to level 8, 960 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 975) THEN
/FBCENA 
/FBCLIMMC,0109        ;set MCPS limit to level 9, 975 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 990) THEN
/FBCENA 
/FBCLIMMC,010A         ;set MCPS limit to level A, 990 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1005) THEN
/FBCENA 
/FBCLIMMC,010B       ;set MCPS limit to level B, 1005 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
ELSE
ENDIF

IF (PARHV = 1020) THEN
/FBCENA 
/FBCLIMMC,010C         ;set MCPS limit to level C, 1020 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1035) THEN
/FBCENA 
/FBCLIMMC,010D         ;set MCPS limit to level D, 1035 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1050) THEN
/FBCENA 
/FBCLIMMC,010E         ;set MCPS limit to level E, 1050 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1065) THEN
/FBCENA 
/FBCLIMMC,010F         ;set MCPS limit to level F, 1065 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

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