Program set ups

TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE=Inspection Lot ; Inspection Lot :
$$ NO,
            
            
$$ NO,
            
            
$$ NO,
            
            ********************************************
            
            
MENU       =LABEL/
$$ NO,
            
            ********************************************
            
            
C1         =COMMENT/INPUT,NO,FULL SCREEN=NO,
            0) Calibrate Probe
            1) Run Part
            2) Fixture Setup
            3) Picture
            4) Manual Alignment
            
            5) QUIT
            
            
            IF_GOTO/C1.INPUT == 0,GOTO = CALIBRATE_PROBE
            IF_GOTO/C1.INPUT == 1,GOTO = RUN_PART
            IF_GOTO/C1.INPUT == 2,GOTO = FIXTURE_SETUP
            IF_GOTO/C1.INPUT == 3,GOTO = PICTURE
            IF_GOTO/C1.INPUT == 4,GOTO = MANUAL_ALIGNMENT
            IF_GOTO/C1.INPUT == 5,GOTO = PROGRAM_END
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            INCORRECT INPUT!
            GOTO/MENU
$$ NO,
            \
            \\
            \\\
CALIBRATE_PROBE=LABEL/
            AUTOCALIBRATE/PROBE, PARAMETER_SET=ALL-TIPS-WITH-DEFAULTS, QUALTOOL_MOVED=NO,
                          CHECK COLLISION=NO, SHOW_SUMMARY=NO, OVERWRITE_RESULTSFILE=NO
            GOTO/MENU
$$ NO,
            \
            \\
            \\\
FIXTURE_SETUP=LABEL/
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            1" dia  x 3/4" tall standoff
            X20 Y41
            X25 Y45
            X44 Y45
            
            25 X 25 Fixture Plate
            GOTO/MENU
$$ NO,
            \
            \\
            \\\
PICTURE    =LABEL/
$$ NO,
            Form with at least a picture of the fixture setup and a picture of the part within the setup.
            GOTO/MENU
$$ NO,
            \
            \\
            \\\
MANUAL_ALIGNMENT=LABEL/ 
            MODE/MANUAL
GOTO/MENU
$$ NO,
            \
            \\
            \\\
RUN_PART   =LABEL/
            MODE/DCC
$$ NO,
            
$$ NO,
            BODY OF PROGRAM
$$ NO,
            \
            \\
            \\\
$$ NO,
            //              PRINTING
            /
            Print and File or Just File as PDF
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            Review Results  before deciding to print or not
RESTART1   =LABEL/
            ASSIGN/OT=GETPROGRAMINFO("numoot")
PRINT_CUE  =COMMENT/INPUT,NO,FULL SCREEN=NO,
            "Out of Tolerance Conditions = "+OT
            
            
            1  To Printer  AND  File  (OOT Condtions)
            2  To File only  (In Tolerance Part)
            
            IF/PRINT_CUE.INPUT<>1 AND PRINT_CUE.INPUT<>2
              COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
              INPUT INVALID
              GOTO/RESTART1
            END_IF/
            IF_GOTO/PRINT_CUE.INPUT==1,GOTO = PRINT_AND_FILE
            IF_GOTO/PRINT_CUE.INPUT==2,GOTO = FILEONLY
PRINT_AND_FILE=LABEL/
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,AUTO=1,AUTO OPEN=OFF,$
              TO_PRINTER=ON,COPIES=1,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              TO_EXCEL=OFF,$
              PREVIOUS_RUNS=DELETE_INSTANCES
            GOTO/PRINT_END
FILEONLY   =LABEL/
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,AUTO=1,AUTO OPEN=OFF,$
              TO_PRINTER=OFF,COPIES=1,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              TO_EXCEL=OFF,$
              PREVIOUS_RUNS=DELETE_INSTANCES
            GOTO/PRINT_END
PRINT_END  =LABEL/
            GOTO/MENU
PROGRAM_END=LABEL/​