% (FOR THIS TO WORK THERE MUST BE THREE OFFSETS) :1000 (SET IN THE OPERATORS MENU WITH X=1.7" X=3.4" & X=5.1") G90 G53 G20 (SET MACHINE TO ABSOLUTE VALUES AND IMPERIAL) G00 Z0.20 (GET Z ABOVE WORK) X0.00 Y0.00 M03 (TURN ON SPINDLE) M08 (TURN ON COOLANT) G00 X0.76 Y0.76 Z0.2 (MOVE TO FIRST CORNER OF WORK + 10THOU) G83 R0.2 Z-1.0 Q-0.25 F1.0 (DRILL DOWN TO 1 INCH) G80 (REMOVE DRILL CYCLE) G01 X0.76 Y0.76 Z-0.25 F2.0 (DOWN TO -0.25) G22 P02 (MAKE SQUARE) G01 X0.76 Y0.76 Z-0.50 F2.0 (DOWN TO -0.50) G22 P02 (MAKE SQUARE) G01 X0.76 Y0.76 Z-0.75 F2.0 (DOWN TO -0.75) G22 P02 (MAKE SQUARE) G01 X0.76 Y0.76 Z-1.00 F2.0 (DOWN TO -1.00) G22 P02 (MAKE SQUARE) G22 P03 (FINISHING CUT i.E. LAST 10 THOU) G54 (MOVE TO FIRST OFFSET) G00 X0.76 Y0.76 Z0.2 (REPEAT AGAIN AND AGAIN AND AGAIN) G83 R0.2 Z-1.0 Q-0.25 F1.0 G80 G01 X0.76 Y0.76 Z-0.25 F1.0 G22 P02 G01 X0.76 Y0.76 Z-0.50 F1.0 G22 P02 G01 X0.76 Y0.76 Z-0.75 F1.0 G22 P02 G01 X0.76 Y0.76 Z-1.00 F1.0 G22 P02 G22 P03 G55 G00 X0.76 Y0.76 Z0.2 G83 R0.2 Z-1.0 Q-0.25 F1.0 G80 G01 X0.76 Y0.76 Z-0.25 F1.0 G22 P02 G01 X0.76 Y0.76 Z-0.50 F1.0 G22 P02 G01 X0.76 Y0.76 Z-0.75 F1.0 G22 P02 G01 X0.76 Y0.76 Z-1.00 F1.0 G22 P02 G22 P03 G56 G00 X0.76 Y0.76 Z0.2 G83 R0.2 Z-1.0 Q-0.25 F1.0 G80 G01 X0.76 Y0.76 Z-0.25 F1.0 G22 P02 G01 X0.76 Y0.76 Z-0.50 F1.0 G22 P02 G01 X0.76 Y0.76 Z-0.75 F1.0 G22 P02 G01 X0.76 Y0.76 Z-1.00 F1.0 G22 P02 G22 P03 G53 (SET CO-DINATES TO ORIGINAL 0,0) G00 X0.00 Y0.00 Z0.20 (RAPID BACK TO 0,0,0.2 M05 (STOP SPINDLE) M09 (COOLANT OFF) M30 $02 (SUBROUTINE FOR MAKING POCKET) G01 X1.44 Y0.76 F4.0 X1.44 Y1.44 X0.76 Y1.44 X0.76 Y0.76 X1.10 Y1.10 X0.76 Y0.76 M02 (RETURN) $03 (SUBROUTINE FOR FINISHING CUT) G01 X0.75 Y0.75 F4.0 (NOTE 10 THOU AT FULL DEPTH!) X1.45 Y0.75 X1.45 Y1.45 X0.75 Y1.45 X0.75 Y0.75 G00 Z0.20 (SHIFT Z BACK OUT OF WORK) M02 (RETURN)