Good to know. I'll have to try this out when I get back into work.

It is a Fanuc robodrill I believe it is a fanuc series T21i control but can't remember off the top of my head.

Thanks for the link! Still having issues with a format error but its been a long day. time to call it a night. here is my latest attempt % O0001( PROGRAM: NEW FACING PROGRAM ) (MACRO FACING PROGRAM) (******SETUP Z @ NEGATIVE #505 FROM TOP FACE) #100=1 (TOOL NUMBER) #101=3 (TOOL DIA) #102=9000 (SPINDLE SPEED) #103=90. (X AND Y FEED RATE) #104=.05 (DEPTH OF CUT) #105=.1 (TOTAL AMOUT TO BE REMOVED) #106=55 (WORK OFFSET) #107=5 (LENGTH OF PART) #108=2 (WIDTH OF PART) #109=1 (OUT OF VICE, PHYSICALLY MEASURE!) #110=0 (NUMBER OF Y PASSES) #111=0.0(DO NOT CHANGE) #112=2(NUMBER OF Z PASSES) #113=10.(Z FEEDS) #114=1(DO NOT CHANGE) N1G0G20G40G80G49G17G94G98 G90 T#100M6 G0G90G#506X[#107/2+#101]Y0 S#102M3 M8 G43Z4.H#100 Z#105 WHILE[#114LE#112]DO1(gets hung up here) #114=[#114+1] G1G91Z[#104*-1]F#113 G90X[[#107/2-#101]*-1]F#103 G0Z#105 X[#107/2+#101] END1 G0Z.1 M9 G49G53Z0 M5 G91G28X0.Y0. M30 % Thanks for the input

Great! thanks for the help

Hi, I Have been starting to learn some macro programming but I have hit a snag with a format error. Could anyone help me out? Here is the basic facing program that I have started. % O0001( PROGRAM: FACING PROGRAM ) ( 11/15/2015 AT 10:11 AM ) (MACRO FACING PROGRAM) #500=1 (TOOL NUMBER) #501=3 (TOOL DIA) #502=9000 (SPINDLE SPEED) #503=90. (FEED RATE) #504=.05 (DEPTH OF CUT) #505=.1 (TOTAL AMOUT TO BE REMOVED) #506=59 (WORK OFFSET) #507=2 (LENGTH OF PART) #508=2 (WIDTH OF PART) #509=1 (OUT OF VICE, PHYSICALLY MEASURE!) #510=0 (NUMBER OF Y PASSES) #511=0.0(DO NOT CHANGE) N1G0G20G40G80G49G17G94G98 G90 T#500M6 G0G90G#506X[#507/2+#501]Y0 S#502M3 M8 G43Z4.H#500 Z1. N2WHILE[-#505LE#511]DO1 #511=[#511-#504] IF[#511GE#509*-1]THEN#3000=1 IF[-#505GT#511]GOTO20 (this is where it seems to be hanging up) G1Z#511F[#503/4] X-[#507/2-#501]F#503 G0Z.1 X[#507/2+#501] END1 N20#511=-#505 IF[#511GE#509*-1]THEN#3000=1 G1Z#511F[#503/4] X-[#507/2-#501]F#503 G0Z.1 M9 G49G53Z0 M5 G91G28X0.Y0. M30 % any input would be greatly appreciated , Thanks

Will do, thanks for your super kind and helpful response.

Hi, I Have been starting to learn some macro programming but I have hit a snag with a format error. Could anyone help me out? Here is the basic facing program that I have started. % O0001( PROGRAM: FACING PROGRAM ) ( 11/15/2015 AT 10:11 AM ) (MACRO FACING PROGRAM) #500=1 (TOOL NUMBER) #501=3 (TOOL DIA) #502=9000 (SPINDLE SPEED) #503=90. (FEED RATE) #504=.05 (DEPTH OF CUT) #505=.1 (TOTAL AMOUT TO BE REMOVED) #506=59 (WORK OFFSET) #507=2 (LENGTH OF PART) #508=2 (WIDTH OF PART) #509=1 (OUT OF VICE, PHYSICALLY MEASURE!) #510=0 (NUMBER OF Y PASSES) #511=0.0(DO NOT CHANGE) N1G0G20G40G80G49G17G94G98 G90 T#500M6 G0G90G#506X[#507/2+#501]Y0 S#502M3 M8 G43Z4.H#500 Z1. N2WHILE[-#505LE#511]DO1 #511=[#511-#504] IF[#511GE#509*-1]THEN#3000=1 IF[-#505GT#511]GOTO20 (this is where it seems to be hanging up) G1Z#511F[#503/4] X-[#507/2-#501]F#503 G0Z.1 X[#507/2+#501] END1 N20#511=-#505 IF[#511GE#509*-1]THEN#3000=1 G1Z#511F[#503/4] X-[#507/2-#501]F#503 G0Z.1 M9 G49G53Z0 M5 G91G28X0.Y0. M30 % any input would be greatly appreciated , Thanks