PROC F_FL_STOF_IFC
  ;Version 1
  GOTO BEGIN
  ;
  ;*********************************************************************
  ;#    ****PROCEDURE HEADER****
  ;#
  ;#    1.0     Introduction
  ;#
  ;#            1.1     FOT Name: F_FL_STOF_IFC
  ;#                    MMS-F Name:
  ;#                    SUM Issue:
  ;#                    Simulator Validation Status
  ;#
  ;#            1.2     Date Created: 15-NOV-95 PEL
  ;#                     Revision:  1. 19-DEC-95  BS
  ;#
  ;#            1.3     Change Description:
  ;#
  ;#				    1. Add %upper statement so parameter entry is
  ;#				       case insensitive. Add version #. Change variable
  ;#					  names so 'answer' is not used more than once.
  ;#
  ;#            1.4     Point of Contact:
  ;#                        Author: W.Bornemann MPE 49-89-3299-3842
  ;*********************************************************************
  ;#    2.0     Description
  ;#
  ;#            2.1     Narrative Decription
  ;#                    STOF to calibration mode control.
  ;#
  ;#                    Only one menue item can be commanded by 
  ;#                    one run of this procedure
  ;#            2.2     Intended Use:
  ;#
  ;#            2.3     Duration:       TBD
  ;#
  ;#            2.4     References:
  ;#
  ;*****************************************************************
  ;#    3.0     Instructions for Use:
  ;#
  ;#            3.1     Parameters Required
  ;#
  ;#            None
  ;#    3.2     Critical Activities
  ;#
  ;#
  ;#            TBD
  ;#
  ;#    3.3     Special Constraints or Activities
  ;#
  ;#            Conditions prior to STOF Calibration Mode ON :
  ;#            STOF should be in Manual Mode = IFC-Setup
  ;#            STOF SSD-Bias should be approx. -90 Volts
  ;#            HSTOF Defl-HV should be > 100 Volts
  ;#            STOF Sweep-HV must be Off = 0 Volts
  ;#            STOF MCP-HV should be < 2000 Volts
  ;#
  ;#            Calibration Mode Off = go to Manual Mode
  ;# *********************************************************************   
 

  ;#    4.0     STEPS:

  BEGIN:
  LOCAL PRCCMD,ABORT,SCALON,OFFSCAL

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

  WRITE "STOF CALIBRATION MODE SETUP = SETUP"
  WRITE "STOF CALIBRATION MODE ON    = IFCON"
  WRITE "STOF CALIBRATION MODE OFF   = IFCOFF"

  ASK "SELECT MODE COMMAND (DISPLAYED ON SCREEN)"PRCCMD
  PRCCMD = %UPPER(PRCCMD)

  IF (PRCCMD = "SETUP") THEN

     ASK "CONFIRM STOF CALIBRATION MODE SETUP (Y OR N)"
     ANSWER = %UPPER(ANSWER)

     IF (ANSWER = "Y") THEN

       /FBSMOD2 ;STOF manual mode
       WAIT ;VERIFY BUFFER CONTENTS
       /SEND
       WAIT UNTIL (P@FSDMODS = "Manual")

       WRITE "STOF CALIBRATION MODE SETUP = MANUAL MODE"
       GOTO ABPRC
     ENDIF
  ENDIF
  
  IF (PRCCMD = "IFCON") THEN

     WRITE "PRIOR TO CALIBRATION MODE :"
     WRITE "STOF SHOULD BE IN MANUAL MODE = IFC-SETUP"
     WRITE "STOF SSD-BIAS SHOULD BE APPROX. -90 VOLTS"
     WRITE "HSTOF DEFLECTION-HV SHOULD BE 100 VOLTS MIN."
     WRITE "STOF SWEEP-HV MUST BE OFF = 0 VOLT"
     WRITE "STOF MCP-HV SHOULD BE 2000 VOLTS MAX."

     ASK "ABORT PROCEDURE ? (Y OR N)"ABORT
     ABORT = %UPPER(ABORT)

     IF (ABORT = "Y") THEN
       WRITE "PROCEDURE ABORTED"
       GOTO ABPRC ; ABORT PROCEDURE
     ENDIF
   
     ASK "CONFIRM STOF CALIBRATION MODE ON (Y OR N)"SCALON
     SCALON = %UPPER(SCALON)

     IF (SCALON = "Y") THEN

       /FBSMOD4 ;STOF calibration mode
       WAIT ;VERIFY BUFFER CONTENTS
       /SEND
       WAIT UNTIL (P@FSDMODS = "IFC")

       WRITE "STOF CALIBRATION MODE ON"
       GOTO ABPRC
     ENDIF
  ENDIF
  


  IF (PRCCMD = "IFCOFF") THEN

     ASK "CONFIRM STOF CALIBRATION MODE OFF (Y OR N)"OFFSCAL
     OFFSCAL = %UPPER(OFFSCAL)

     IF (OFFSCAL = "Y") THEN

       /FBSMOD2 ;STOF manual mode
       WAIT ;VERIFY BUFFER CONTENTS
       /SEND
       WAIT UNTIL (P@FSDMODS = "Manual")

       WRITE "STOF CALIBRATION MODE OFF, MANUAL MODE ON"
       GOTO ABPRC
     ENDIF
  ENDIF




  ABPRC:
 ;*********************************************************************
 ;#   5.0   Final Constraints
 ;#
 ;#         TBD
 ;#
 ;*********************************************************************

 ENDPROC