Make a selection from a list of similar parts using variables, labels, case/select, if endif, input
Feel free to change code.
$$ NO,/*
,/* ASSIGN GLOBAL VARIABLES
,/*
ASSIGN/V1 = SYSTEMDATE("dddd' 'MMMM' 'dd' 'yyyy' ")
$$ NO,/*
CHOOSE_PART=LABEL/
$$ NO,/*
$$ NO,/* SELECT WHICH PART TO MEASURE (ADD MORE PARTS AS NEEDED)
$$ NO,/*
C1 =COMMENT/INPUT,NO,'SELECT PART #:
,1) 12345678
,2)
,3)
,4)
,5)
,6)
,7)'
$$ NO,/*
IF/C1.INPUT<1 OR C1.INPUT>7
COMMENT/OPER,NO,INVALID ENTRY. PRESS OK TO MAKE ANOTHER SELECTION.
GOTO/CHOOSE_PART
END_IF/
$$ NO,/*
SELECT/C1.INPUT
CASE/1
$$ NO,/*
,/* PART 12345678 LOCAL VARIABLES
,/*
ASSIGN/V2 = ("12345678")
ASSIGN/V3 = ("001")
ASSIGN/V4 = ("ABCDE")
ASSIGN/V5 = ("15AP05")
ASSIGN/PART_ANGLE = 5
ASSIGN/PART_DIAMETER = 45.975
ASSIGN/PART_RADIUS = PART_DIAMETER/2
ASSIGN/V6 = PART_DIAMETER/2-1
ASSIGN/L_H_XLOC = -8.4
ASSIGN/R_H_XLOC = 8.4
ASSIGN/L_H_DIAM = 4.695
ASSIGN/R_H_DIAM = 4.695
GOTO/L1
END_CASE/
CASE/2
$$ NO,/*
,/* PART ######## LOCAL VARIABLES CURRENTLY NO PART ASSIGNED
,/*
ASSIGN/V2 = ("********")
ASSIGN/V3 = ("***")
ASSIGN/V4 = ("***")
ASSIGN/V5 = ("***")
ASSIGN/PART_ANGLE = 0
ASSIGN/PART_DIAMETER = 0
ASSIGN/PART_RADIUS = PART_DIAMETER/2
ASSIGN/V6 = PART_DIAMETER/2-1
ASSIGN/L_H_XLOC = 0
ASSIGN/R_H_XLOC = 0
ASSIGN/L_H_DIAM = 0
ASSIGN/R_H_DIAM = 0
COMMENT/OPER,NO,CURRENTLY NO PART ASSIGNED. PLEASE MAKE ANOTHER SELECTION.
GOTO/CHOOSE_PART
END_CASE/
CASE/3
$$ NO,/*
,/* PART ######## LOCAL VARIABLES CURRENTLY NO PART ASSIGNED
,/*
ASSIGN/V2 = ("********")
ASSIGN/V3 = ("***")
ASSIGN/V4 = ("***")
ASSIGN/V5 = ("***")
ASSIGN/PART_ANGLE = 0
ASSIGN/PART_DIAMETER = 0
ASSIGN/PART_RADIUS = PART_DIAMETER/2
ASSIGN/V6 = PART_DIAMETER/2-1
ASSIGN/L_H_XLOC = 0
ASSIGN/R_H_XLOC = 0
ASSIGN/L_H_DIAM = 0
ASSIGN/R_H_DIAM = 0
COMMENT/OPER,NO,CURRENTLY NO PART ASSIGNED. PLEASE MAKE ANOTHER SELECTION.
GOTO/CHOOSE_PART
END_CASE/
CASE/4
$$ NO,/*
,/* PART ######## LOCAL VARIABLES CURRENTLY NO PART ASSIGNED
,/*
ASSIGN/V2 = ("********")
ASSIGN/V3 = ("***")
ASSIGN/V4 = ("***")
ASSIGN/V5 = ("***")
ASSIGN/PART_ANGLE = 0
ASSIGN/PART_DIAMETER = 0
ASSIGN/PART_RADIUS = PART_DIAMETER/2
ASSIGN/V6 = PART_DIAMETER/2-1
ASSIGN/L_H_XLOC = 0
ASSIGN/R_H_XLOC = 0
ASSIGN/L_H_DIAM = 0
ASSIGN/R_H_DIAM = 0
COMMENT/OPER,NO,CURRENTLY NO PART ASSIGNED. PLEASE MAKE ANOTHER SELECTION.
GOTO/CHOOSE_PART
END_CASE/
CASE/5
$$ NO,/*
,/* PART ######## LOCAL VARIABLES CURRENTLY NO PART ASSIGNED
,/*
ASSIGN/V2 = ("********")
ASSIGN/V3 = ("***")
ASSIGN/V4 = ("***")
ASSIGN/V5 = ("***")
ASSIGN/PART_ANGLE = 0
ASSIGN/PART_DIAMETER = 0
ASSIGN/PART_RADIUS = PART_DIAMETER/2
ASSIGN/V6 = PART_DIAMETER/2-1
ASSIGN/L_H_XLOC = 0
ASSIGN/R_H_XLOC = 0
ASSIGN/L_H_DIAM = 0
ASSIGN/R_H_DIAM = 0
COMMENT/OPER,NO,CURRENTLY NO PART ASSIGNED. PLEASE MAKE ANOTHER SELECTION.
GOTO/CHOOSE_PART
END_CASE/
CASE/6
$$ NO,/*
,/* PART ######## LOCAL VARIABLES CURRENTLY NO PART ASSIGNED
,/*
ASSIGN/V2 = ("********")
ASSIGN/V3 = ("***")
ASSIGN/V4 = ("***")
ASSIGN/V5 = ("***")
ASSIGN/PART_ANGLE = 0
ASSIGN/PART_DIAMETER = 0
ASSIGN/PART_RADIUS = PART_DIAMETER/2
ASSIGN/V6 = PART_DIAMETER/2-1
ASSIGN/L_H_XLOC = 0
ASSIGN/R_H_XLOC = 0
ASSIGN/L_H_DIAM = 0
ASSIGN/R_H_DIAM = 0
COMMENT/OPER,NO,CURRENTLY NO PART ASSIGNED. PLEASE MAKE ANOTHER SELECTION.
GOTO/CHOOSE_PART
END_CASE/
CASE/7
$$ NO,/*
,/* PART ######## LOCAL VARIABLES CURRENTLY NO PART ASSIGNED
,/*
ASSIGN/V2 = ("********")
ASSIGN/V3 = ("***")
ASSIGN/V4 = ("***")
ASSIGN/V5 = ("***")
ASSIGN/PART_ANGLE = 0
ASSIGN/PART_DIAMETER = 0
ASSIGN/PART_RADIUS = PART_DIAMETER/2
ASSIGN/V6 = PART_DIAMETER/2-1
ASSIGN/L_H_XLOC = 0
ASSIGN/R_H_XLOC = 0
ASSIGN/L_H_DIAM = 0
ASSIGN/R_H_DIAM = 0
COMMENT/OPER,NO,CURRENTLY NO PART ASSIGNED. PLEASE MAKE ANOTHER SELECTION.
GOTO/CHOOSE_PART
END_CASE/
$$ NO,/*
END_SELECT/
$$ NO,/*
L1 =LABEL/
$$ NO,/*
,/* YOUR PROGRAM CODE HERE
,/*
PROGRAM/END