[R Miller]

can someone give me an example of how to change/edit this please.










O09799 (RENISHAW SETTING)
(40120888.00 HAAS)
(BASED ON 40120634.0C)
G103 P1
G187P2(MEDUIM SETTING)
M98 P9725 (MACHINE CHECK)
M98 P9854
#156= 1 (2=RADOFF,1=DIAOFF)
IF [ #6040 EQ 1 ] GOTO90 (RAD DIA)
#156= 2
N90
#30= 582 (EDIT BASE NO.)
(#[#30+11]=0) (1-INCH 0-MET STORE FLAG)
G90 G80 G40 G00
(CURRENT METRIC)
#29= 1
#31= 1 (METRIC STORE)
IF [ #[ #30 + 11 ] NE 1 ] GOTO100
#31= 1 / 25.4 (INCH STORE)
N100
IF [ #4006 EQ 21 ] GOTO101
(CURRENT INCH)
#29= 0.04
#31= 25.4 (METRIC STORE)
IF [ #[ #30 + 11 ] NE 1 ] GOTO101
#31= 1 (INCH STORE)
N101
IF [ #[ #30 + 12 ] LE 0 ] GOTO102
IF [ #[ #30 + 12 ] GT 1 ] GOTO102
GOTO103
N102
#[ #30 + 12 ]= 0.3
N103
IF [ #174 NE 1 ] GOTO104
#[ #30 + 0 ]= #163 * #31
#[ #30 + 1 ]= #169 * #31
#[ #30 + 3 ]= #5021 * #31
#[ #30 + 4 ]= #5022 * #31
GOTO106
N104
IF [ #174 NE 2 ] GOTO105
#[ #30 + 2 ]= #166 * #31
#[ #30 + 3 ]= #167 * #31
#[ #30 + 4 ]= #168 * #31
GOTO106
N105
#163= #[ #30 + 0 ] / #31 (Z POS. STATIC)
#169= #[ #30 + 1 ] / #31 (Z POS. ROTATING)
#166= #[ #30 + 2 ] / #31 (STYLUS SIZE)
#167= #[ #30 + 3 ] / #31 (X POS.)
#168= #[ #30 + 4 ] / #31 (Y POS.)
#171= #[ #30 + 5 ] / #31 (Z APPROACH)
#172= #[ #30 + 6 ] / #31 (Z CLEARANCE)
#173= #[ #30 + 7 ] / #31 (TOOLS ABOVE THIS ROTATE)
#177= #[ #30 + 8 ] / #31 (MAX. CUTTER DIA.)
#164= #[ #30 + 9 ] (OFFSET TYPE)
#176= #[ #30 + 10 ] (PROBE DIREC.)
N106
IF [ #4111 EQ 0 ] GOTO107
IF [ #4111 EQ #0 ] GOTO107
GOTO108
N107
#199= 0
GOTO110
N108
#199= #5083
N110
M99