% O00001 (** MILL CLASS pgm 6/15/06 **) (=================================) O00002 (vv MILL WORKBOOK EXERCISES vv) (=================================) O01000 (vvvv WARMUP PROGRAMS 1000 vvv) (=================================) O01001 (5,000 Spindle warmup program) (This program should be run prior) (to machine use if machine has) (been idle for more than 4 days.) (Cycle time is 20-minutes.) (This program can be used daily) (for spindle warm-up prior to high) (speed spindle use.) (Set override at 100 percent for) (5,000 rpm machines.) (9-22-99) (---------------------------------) S250 M03 G04 P200. S500 M03 G04 P200. S1250 M03 G04 P200. S2500 M03 G04 P200. S3750 M03 G04 P200. S5000 M03 G04 P200. M30 (=================================) O01002 (7,500 Spindle warmup program) (This program should be run prior) (to machine use if machine has) (been idle for more than 4 days.) (Cycle time is 20-minutes.) (This program can be used daily) (for spindle warm-up prior to high) (speed spindle use.) (Set override at 100 percent for) (7,500 rpm machines.) (9-22-99) (---------------------------------) S500 M03 G04 P200. S1000 M03 G04 P200. S2500 M03 G04 P200. S5000 M03 G04 P200. S7500 M03 G04 P200. S10000 M03 G04 P200. M30 (=================================) O01003 (10,000 Spindle warmup program) (This program should be run prior) (to machine use if machine has) (been idle for more than 4 days.) (Cycle time is 20-minutes.) (This program can be used daily) (for spindle warm-up prior to high) (speed spindle use.) (Set override at 100 percent for) (10,000 rpm machines.) (9-22-99) (---------------------------------) (10,000 Spindle Warmup program) S500 M03 G04 P200. S1000 M03 G04 P200. S2500 M03 G04 P200. S5000 M03 G04 P200. S7500 M03 G04 P200. S10000 M03 G04 P200. M30 (=================================) O01004 (15,000 Spindle warmup program) (This program should be run prior) (to machine use if machine has) (been idle for more than 4 days.) (Cycle time is 20-minutes.) (This program can be used daily) (for spindle warm-up prior to high) (speed spindle use.) (Set override at 100 percent for) (15,000 rpm machines.) (9-22-99) (---------------------------------) (150 percent for) (15,000 rpm machines.) (9-22-99) S750 M03 G04 P200. S1500 M03 G04 P200. S3750 M03 G04 P200. S7500 M03 G04 P200. S11250 M03 G04 P200. S15000 M03 G04 P200. M30 (=================================) O01005 (30,000 Spindle warmup program) (This program should be run prior) (to any 30,000 spindles operating) (above 10,000 rpm. This will help) (revent possible overheating of) (the spindle due to settling of) (lubrication. This 20 minute) (warmup program will bring the) (spindle up to speed slowly and) (allow the spindle to thermally) (stabalize. This program should) (be used daily for spindle warmup) (prior to high speed use.) (ES0352 REV.E10/03) (---------------------------------) (30K Spindle Warmup program) (20 Minutes) S1500 M03 G04 P200. S3000 M03 G04 P200. S7500 M03 G04 P200. S15000 M03 G04 P200. S22500 M03 G04 P200. S30000 M03 G04 P200. M30 (=================================) O02000 (vv MISC. INFORMATION 2000 vvv) (=================================) O02001 (Program names listed here, in) (the first two lines of a program) (will show up next to the program) (number in the LIST PROG. display) (when entering text names between) (parenthesis.) (---------------------------------) (Pressing SHIFT and then a letter) (will output lower case text for) (the letters beween parenthesis.) (---------------------------------) N1 (Operation information) T1 M06 (Tool information...) G90 G54 G00 X0.5 Y-0.5 (=================================) O02002 (Setting 23) (Turning setting 23 ON will hide) (programs that are defined as) (O9### numbers.) (=================================) O03000 (vvvv MISC. PROGRAMS 3000 vvvv) (=================================) O03001 (Misc. quick MDI commands) (Text 10/18/02) (vvvvvvvvv TEXT vvvvvvvvv) (---------------------------------) (=================================) N1 (Spindle On S500) S500 M03 G04 P100. M30 N2 (Spindle On S2000) S2000 M03 M30 N3 M80 (DOOR OPEN) M30 N4 M81 (DOOR CLOSE) G04 P1. M00 N9 T9 (CHIP FAN) (S8000 SPINDLE MAX.) G90 G54 G00 X3. Y2. G43 H09 Z-4. M08 G04 P1. G03 I-1.5 F150. M09 G00 X4. Y2. G04 P2. S4000 M03 G03 I-2. F400. G53 G01 X-10. Y-4. G53 X-20. G53 X0. G53 Y-12. G53 X-20. G53 Y-4. G53 X-10. G00 Z0 M05 G53 G49 Y0 Z0 M30 (T) (1/1/02) (Setup 6 in. Vise with Step Jaws) (Setup in Three Jaw Chuck) (Setup in Fixture #) (X0 Y0 Center of Part) (X0 Y0 Lower Left Corner of Part) (X0 Y0 on Part Diameter) (---------------------------------) (N1:T1= 3.0 x 5 flt. Shell Mill) (N2:T2= 1/2 DIA. 2 flt. E.M.) (N3:T3= 1/2 DIA. SPOT DRILL) (N4:T4= 1/4 DIA. DRILL) (N5:T5= 3/8 DIA. 2 fLT E.M.) (N6:T6= #7 .201 DIA. STUB) (N7:T7= 1/4-20 SPIRAL TAP) (N8:T8= 1.0 DIA. 12 PITCH THD MILL) (N9:T9= ) (N10:T10= ) (N11:T11= ) (N12:T12= ) (N13:T13= ) (N14:T14= ) (N15:T15= ) (N16:T16= ) (N17:T17= ) (N18:T18= ) (N19:T19= ) (N20:T20= ) (---------------------------------) (T1 Dia. Comp. D1 = .5 DIA.) (T2 Dia. Comp. D2 = .750 DIA.) (T3 Dia. Comp. D3 = 1. DIA.) (=================================) O04000 (vv MISC. DEMO PROGRAMS 4000 v) (=================================) O04001 (Wrench Demo) (24-01-97 TIME, Hr:Min - 13:59) (T1-.101 DIA. DRILL) (T2-3" DIA. FACEMILL) (T3-.500 DIA. 2 FLT. E.M.) (T4-.250 DIA. 2 FLT E.M.) (T5-60 DEG. ENGRAVE/CHAMFER TOOL) (---------------------------------) (Local M97 Sub-Programs Used) (M97 P2002) (CALLS 2ND OP. MILL PROGRAM) (M97 P2003) (CALLS 2ND OP. POCKET PROGRAM) (M97 P2004) (CALLS 1ST & 2ND OP. CHAMFER PGM) (---------------------------------) (WORK OFFSET #54 UPPER RIGHT) (CORNER OF PART.) (WORK OFFSET #55 IS THE LARGE) (DIAMETER THAT IS X5.831 FROM ZERO) (IN X-AXIS. AND IS Y-.9157 FROM) (ZERO IN Y-AXIS.) (---------------------------------) N10 G00 G40 G49 G80 G90 N20 G91 G28 Z0. N30 G28 Y0. N50 T1 M06 G187 E0.005 (.101 DIA. DRILL) N60 G00 G90 G54 X1.0446 Y-0.5957 S2500 M03 N70 G43 H01 Z0.5 M08 N80 G98 G81 Z-0.4203 R0.1 F20. N90 X1.3735 Y-0.9274 N100 X1.2507 Y-1.3782 N110 G80 N120 M05 N160 T2 M06 (3" DIA. FACEMILL) N170 M01 N180 G00 G90 G54 X-1.7 Y0.5 S4500 M03 N190 G43 H02 Z0.2 M08 N200 G01 Z-0.01 F60. N210 X8.7 F50. N220 G00 Z0.2 N230 X-1.7 Y-0.7001 N240 G01 Z-0.01 F60. N250 X8.7 F50. N260 G00 Z0.5 (CALLS 2ND OP. MILL PROGRAM) N270 M97 P2002 N280 G00 Z0.5 N310 T3 M06 (.500 DIA. 2 FLUTE ENDMILL) N320 M01 N330 G00 G90 G54 X2.1123 Y0.3859 S5200 M03 N340 G43 H03 Z0.5 N350 G01 Z-0.39 F80. N360 Y0.1433 F50. N370 X5.7638 Y0.3387 N380 G02 X5.7626 Y-2.1701 I0.0672 J-1.2544 N390 G01 X2.0823 Y-1.9694 N400 G02 X0.5478 Y-2.2501 I-0.9364 J0.7846 N410 G01 X0. N420 G00 Z0.5 N430 X1.7804 Y0.7097 N440 G01 Z-0.39 F80. N450 X1.555 Y0.4099 F50. N460 G03 X1.8748 Y-0.1899 I0.2998 J-0.2253 N470 G01 X5.781 Y0.0192 N480 G02 X5.78 Y-1.8506 I0.05 J-0.9349 N490 G01 X2.0249 Y-1.6458 N500 G03 X1.8852 Y-1.701 I0.0061 J-0.2199 N510 G02 X0.7063 Y-1.9721 I-0.7393 J0.5162 N520 X0.6239 Y-1.9022 I0.1365 J0.2445 N530 X0.5142 Y-1.4927 I0.4144 J0.3305 N540 X0.7186 Y-1.264 I0.2768 J-0.0417 N550 G01 X1.0504 Y-1.1751 N560 X1.0975 Y-0.9994 N570 X0.9689 Y-0.8708 N580 X0.637 Y-0.9597 N590 G02 X0.3457 Y-0.8638 I-0.0724 J0.2705 N600 X0.2359 Y-0.4543 I0.4143 J0.3305 N610 X0.2836 Y-0.3353 I0.2769 J-0.0418 N620 X1.6776 Y-0.1036 I0.8107 J-0.5686 N630 X1.6987 Y-0.1206 I-0.1649 J-0.2263 N640 G03 X1.8748 Y-0.1899 I0.1823 J0.2049 N650 X2.1759 Y0.4195 I0.0085 J0.3749 N660 G01 X1.9414 Y0.7121 N670 G00 Z0.5 N671 X2.9128 Y-0.9157 N681 G00 Z0.025 N682 G91 X0.047 N683 G03 X0 Y0 I-0.047 J0 Z-0.028 L15 F50. N684 G03 X0 Y0 I-0.047 J0 N685 G01 X-0.047 N690 G90 N692 G01 G41 X2.9222 Y-0.9405 D30 F40. N693 G03 X2.9745 Y-0.9257 I0.0227 J0.0196 N694 Y-0.9057 I-0.0617 J0.01 N695 Y-0.9257 I-0.0617 J-0.01 N696 Y-0.9057 I-0.0617 J0.01 N697 X2.9222 Y-0.8909 I-0.0296 J-0.0048 N698 G01 G40 X2.9026 Y-0.9136 N770 G00 Z0.5 N771 X5.831 Y-0.9157 N781 Z0.025 N782 G91 X0.191 N783 G03 X0 Y0 I-0.191 J0 Z-0.028 L15 F60. N784 G03 X0 Y0 I-0.191 J0 N785 G01 X-0.191 N786 G90 N787 X5.9156 Y-0.9171 N800 G01 G41 X5.9502 Y-0.9674 D20 F40. N810 G03 X6.036 Y-0.9383 I0.0361 J0.0346 N820 Y-0.8931 I-0.205 J0.0226 N830 Y-0.9383 I-0.205 J-0.0226 N840 Y-0.8931 I-0.205 J0.0226 N850 X5.9502 Y-0.864 I-0.0497 J-0.0055 N860 G01 G40 X5.9156 Y-0.9002 N870 G00 Z0.5 N880 M05 N920 T4 M06 (.250 DIA. 2 FLUTE ENDMILL) N930 M01 N940 G00 G90 G54 X4.8625 Y-0.8946 S4500 M03 N950 G43 H04 Z0.2 M08 N960 G01 Z-0.07 F35. N970 X4.4354 Y-0.9157 F50. N980 X4.8625 Y-0.9368 N990 G02 Y-0.8946 I0.9685 J0.0211 N1000 G01 X4.9429 Y-0.8156 N1010 X3.6614 Y-0.8788 N1020 G02 Y-0.9526 I-0.7486 J-0.0369 N1030 G01 X4.9429 Y-1.0158 N1040 G02 Y-0.8156 I0.8881 J0.1001 N1050 G01 X5.0322 Y-0.7361 N1060 X3.5786 Y-0.8078 N1070 G02 X3.5863 Y-0.8793 I-0.6658 J-0.1079 N1080 X3.5855 Y-0.9648 I-0.6735 J-0.0364 N1090 X3.5786 Y-1.0236 I-0.6727 J0.0491 N1100 G01 X5.0322 Y-1.0953 N1110 G02 Y-0.7361 I0.7988 J0.1796 N1120 G01 X5.1328 Y-0.6595 N1130 G03 X5.1303 Y-0.6562 I-0.0024 J0.0008 N1140 G01 X3.4883 Y-0.7371 N1150 G03 X3.486 Y-0.7404 I0.0001 J-0.0025 N1160 G02 X3.5114 Y-0.8833 I-0.5732 J-0.1753 N1170 X3.5107 Y-0.9594 I-0.5986 J-0.0324 N1180 X3.486 Y-1.091 I-0.5979 J0.0437 N1190 G03 X3.4883 Y-1.0943 I0.0024 J-0.0008 N1200 G01 X5.1303 Y-1.1753 N1210 G03 X5.1328 Y-1.1719 I0.0001 J0.0025 N1220 G02 Y-0.6595 I0.6982 J0.2562 N1230 G00 Z0.2 N1250 X4.8625 Y-0.8946 N1260 G01 Z-0.14 F35. N1270 X4.4354 Y-0.9157 F50. N1280 X4.8625 Y-0.9368 N1290 G02 Y-0.8946 I0.9685 J0.0211 N1300 G01 X4.9429 Y-0.8156 N1310 X3.6614 Y-0.8788 N1320 G02 Y-0.9526 I-0.7486 J-0.0369 N1330 G01 X4.9429 Y-1.0158 N1340 G02 Y-0.8156 I0.8881 J0.1001 N1350 G01 X5.0322 Y-0.7361 N1360 X3.5786 Y-0.8078 N1370 G02 X3.5863 Y-0.8793 I-0.6658 J-0.1079 N1380 X3.5855 Y-0.9648 I-0.6735 J-0.0364 N1390 X3.5786 Y-1.0236 I-0.6727 J0.0491 N1400 G01 X5.0322 Y-1.0953 N1410 G02 Y-0.7361 I0.7988 J0.1796 N1420 G01 X5.1328 Y-0.6595 N1430 G03 X5.1303 Y-0.6562 I-0.0024 J0.0008 N1440 G01 X3.4883 Y-0.7371 N1450 G03 X3.486 Y-0.7404 I0.0001 J-0.0025 N1460 G02 X3.5114 Y-0.8833 I-0.5732 J-0.1753 N1470 X3.5107 Y-0.9594 I-0.5986 J-0.0324 N1480 X3.486 Y-1.091 I-0.5979 J0.0437 N1490 G03 X3.4883 Y-1.0943 I0.0024 J-0.0008 N1500 G01 X5.1303 Y-1.1753 N1510 G03 X5.1328 Y-1.1719 I0.0001 J0.0025 N1520 G02 Y-0.6595 I0.6982 J0.2562 N1530 G00 Z0.2 N1540 X1.8527 Y-0.1051 N1550 G01 Z-0.39 F80. N1560 X1.7926 Y-0.185 F45. N1570 G03 X1.8779 Y-0.345 I0.0799 J-0.0601 N1580 G01 X5.7892 Y-0.1356 N1590 G02 X5.7885 Y-1.6958 I0.0418 J-0.7801 N1600 G01 X2.0278 Y-1.4907 N1610 G03 X1.7666 Y-1.5997 I0.0032 J-0.375 N1620 G02 X0.7819 Y-1.8368 I-0.6207 J0.4149 N1630 X0.7451 Y-1.8056 I0.0609 J0.1092 N1640 X0.6674 Y-1.5158 I0.2932 J0.2339 N1650 X0.7587 Y-1.4137 I0.1236 J-0.0186 N1660 G01 X1.1769 Y-1.3016 N1670 X1.2703 Y-0.9531 N1680 X1.0152 Y-0.6979 N1690 X0.5969 Y-0.81 N1700 G02 X0.4668 Y-0.7672 I-0.0323 J0.1208 N1710 X0.3892 Y-0.4774 I0.2932 J0.2339 N1720 X0.4105 Y-0.4243 I0.1236 J-0.0187 N1730 X1.5863 Y-0.2289 I0.6838 J-0.4796 N1740 X1.5957 Y-0.2365 I-0.0736 J-0.101 N1750 G03 X1.8779 Y-0.345 I0.2853 J0.3208 N1760 X1.9557 Y-0.1812 I0.0007 J0.1 N1770 G01 X1.8919 Y-0.1042 N1780 G00 Z0.5 (CALLS 2ND OP. POCKET PROGRAM) N1790 M97 P2003 N1800 G00 Z0.5 N1830 T5 M06 (60 DEGREE ENGRAVE/CHAMFER TOOL) N1840 M01 N1841 G187 E0.005 N1850 G00 G90 G54 X1.7616 Y-1.1084 S7000 M03 N1860 G43 H05 Z0.2 M08 N1870 G01 Z-0.019 F60. N1880 X1.6554 F35. N1890 Y-0.8725 N1900 G00 Z0.2 N1910 X1.7616 Y-1.1317 N1920 G01 Z-0.019 F60. N1930 Y-0.9516 F35. N1940 G02 X1.7649 Y-0.9356 I0.0409 J0. N1950 G01 X1.6274 Y-0.8564 N1960 Y-0.7891 N1970 X1.8766 Y-0.9329 N1980 Y-1.0001 N1990 X1.8361 Y-0.9767 N2000 G03 X1.8191 Y-0.9865 I-0.0057 J-0.0098 N2010 G01 Y-1.1649 N2020 X1.7616 Y-1.1317 N2030 G00 Z0.2 N2040 X1.8191 Y-1.1084 N2050 G01 Z-0.019 F60. N2060 X2.0259 F35. N2070 Y-0.7195 N2080 X1.695 N2090 G00 Z0.2 N2100 X1.9536 Y-1.1084 N2110 G01 Z-0.019 F60. N2120 Y-1.0349 F35. N2130 X1.9032 Y-1.0059 N2140 Y-0.9843 N2150 X1.9968 Y-1.0383 N2160 Y-1.0599 N2170 X1.9752 Y-1.0474 N2180 Y-1.1084 N2190 G00 Z0.2 N2200 Y-1.0186 N2210 G01 Z-0.019 F60. N2220 X1.9536 Y-1.0061 F35. N2230 Y-0.9941 N2240 X1.9032 Y-0.9651 N2250 Y-0.9435 N2260 X1.9968 Y-0.9975 N2270 Y-1.0191 N2280 X1.9752 Y-1.0066 N2290 Y-1.0186 N2300 G00 Z0.2 N2310 X1.9968 Y-0.9855 N2320 G01 Z-0.019 F60. N2330 X1.9032 Y-0.9315 F35. N2340 Y-0.9099 N2350 X1.9968 Y-0.9639 N2360 Y-0.9855 N2370 G00 Z0.2 N2380 X1.9752 Y-0.9442 N2390 G01 Z-0.019 F60. N2400 X1.9536 Y-0.9317 F35. N2410 Y-0.9245 N2420 X1.9411 N2430 X1.908 Y-0.9069 N2440 X1.968 N2450 X1.9032 Y-0.8679 N2460 Y-0.8463 N2470 X1.9968 Y-0.9003 N2480 Y-0.9245 N2490 X1.9819 N2500 G03 X1.9752 Y-0.9312 I0. J-0.0067 N2510 G01 Y-0.9442 N2520 G00 Z0.2 N2530 Y-0.8803 N2540 G01 Z-0.019 F60. N2550 X1.9536 Y-0.8679 F35. N2560 Y-0.8607 N2570 X1.9411 N2580 X1.908 Y-0.8415 N2590 X1.9968 N2600 Y-0.8607 N2610 X1.9819 N2620 G03 X1.9752 Y-0.8674 I0. J-0.0067 N2630 G01 Y-0.8803 N2640 G00 Z0.2 N2650 X1.9248 Y-0.7195 N2660 G01 Z-0.019 F60. N2670 Y-0.7791 F35. N2680 G03 X1.9272 Y-0.7863 I0.007 J-0.0017 N2690 G01 X1.9368 Y-0.7911 N2700 X1.9416 Y-0.7863 N2710 Y-0.7671 N2720 G02 X1.9584 Y-0.7575 I0.0119 J-0.0013 N2730 G01 X1.9886 Y-0.772 N2740 G02 X1.9968 Y-0.785 I-0.0063 J-0.013 N2750 G01 Y-0.8343 N2760 X1.9776 N2770 Y-0.8019 N2780 G03 X1.974 Y-0.7959 I-0.0073 J-0.0003 N2790 G01 X1.9644 Y-0.7923 N2800 G03 X1.9584 Y-0.7989 I-0.0001 J-0.006 N2810 G01 Y-0.8175 N2820 G02 X1.9464 Y-0.8235 I-0.0072 J-0.0006 N2830 G01 X1.9128 Y-0.8079 N2840 G02 X1.9032 Y-0.7935 I0.0072 J0.0152 N2850 G01 Y-0.7195 N2860 G00 Z0.2 N2870 X1.8766 Y-0.8243 N2880 G01 Z-0.019 F60. N2890 Y-0.8818 F35. N2900 X1.8361 Y-0.8584 N2910 G03 X1.8191 Y-0.8681 I-0.0057 J-0.0097 N2920 G01 Y-0.8936 N2930 X1.7616 Y-0.8604 N2940 Y-0.8313 N2950 G02 X1.7642 Y-0.8168 I0.0409 J0. N2960 G01 X1.6274 Y-0.738 N2970 Y-0.6805 N2980 X1.8766 Y-0.8243 N2990 G00 Z0.2 N3000 X1.6554 Y-0.8053 N3010 G01 Z-0.019 F60. N3020 Y-0.7542 F35. N3030 G00 Z0.2 N3040 X2.2103 Y-0.8037 N3050 G01 Z-0.019 F60. N3060 X2.212 Y-0.7945 F35. N3070 X2.2129 Y-0.7904 N3080 X2.2164 Y-0.7857 N3090 X2.2207 Y-0.7812 N3100 X2.225 Y-0.7774 N3110 X2.2302 Y-0.7751 N3120 X2.238 Y-0.7733 N3130 X2.2475 Y-0.7729 N3140 X2.2562 Y-0.7733 N3150 X2.264 Y-0.7747 N3160 X2.2709 Y-0.777 N3170 X2.2752 Y-0.7788 N3180 X2.2795 Y-0.7817 N3190 X2.2856 Y-0.7859 N3200 X2.2899 Y-0.7913 N3210 X2.2925 Y-0.796 N3220 X2.2942 Y-0.7942 N3230 X2.2951 Y-0.7922 N3240 X2.2994 Y-0.7884 N3250 X2.3055 Y-0.7852 N3260 X2.3124 Y-0.7832 N3270 X2.3211 Y-0.7827 N3280 X2.334 Y-0.7828 N3290 X2.341 Y-0.784 N3300 X2.3531 Y-0.7883 N3310 X2.36 Y-0.7916 N3320 X2.3669 Y-0.796 N3330 X2.373 Y-0.8003 N3340 X2.379 Y-0.807 N3350 X2.3842 Y-0.8153 N3360 X2.3886 Y-0.8256 N3370 X2.3903 Y-0.8376 N3380 Y-0.8453 N3390 X2.3877 Y-0.8544 N3400 X2.3834 Y-0.86 N3410 X2.379 Y-0.8645 N3420 X2.373 Y-0.8691 N3430 X2.3661 Y-0.8721 N3440 X2.3583 Y-0.8739 N3450 X2.3488 Y-0.8744 N3460 X2.3401 Y-0.8739 N3470 X2.3358 Y-0.8731 N3480 X2.3237 Y-0.8699 N3490 X2.315 Y-0.8663 N3500 X2.3081 Y-0.863 N3510 X2.3038 Y-0.8601 N3520 X2.2994 Y-0.8561 N3530 X2.2951 Y-0.8497 N3540 X2.2925 Y-0.845 N3550 X2.2908 Y-0.8479 N3560 X2.2865 Y-0.8517 N3570 X2.2813 Y-0.855 N3580 X2.2735 Y-0.8558 N3590 X2.264 Y-0.8562 N3600 X2.2579 Y-0.8552 N3610 X2.2466 Y-0.8521 N3620 X2.238 Y-0.8485 N3630 X2.2319 Y-0.8453 N3640 X2.2259 Y-0.841 N3650 X2.2207 Y-0.8345 N3660 X2.2146 Y-0.826 N3670 X2.212 Y-0.8192 N3680 X2.2103 Y-0.8083 N3690 Y-0.8037 N3700 G00 Z0.2 N3710 X2.238 Y-0.8075 N3720 G01 Z-0.019 F60. N3730 X2.2406 Y-0.8027 F35. N3740 X2.2449 Y-0.7992 N3750 X2.251 Y-0.7982 N3760 X2.2579 Y-0.7983 N3770 X2.264 Y-0.7994 N3780 X2.2665 Y-0.8009 N3790 X2.2709 Y-0.8027 N3800 X2.2769 Y-0.807 N3810 X2.2795 Y-0.8106 N3820 X2.2813 Y-0.8152 N3830 Y-0.8208 N3840 Y-0.824 N3850 X2.2778 Y-0.8276 N3860 X2.2735 Y-0.83 N3870 X2.2683 Y-0.8312 N3880 X2.2605 Y-0.8309 N3890 X2.2579 Y-0.8305 N3900 X2.251 Y-0.8282 N3910 X2.2449 Y-0.825 N3920 X2.2423 Y-0.8224 N3930 X2.2389 Y-0.8186 N3940 X2.238 Y-0.8132 N3950 Y-0.8075 N3960 G00 Z0.2 N3970 X2.2103 Y-0.869 N3980 G01 Z-0.019 F60. N3990 X2.3903 Y-0.9756 F35. N4000 Y-0.9907 N4010 X2.2103 Y-0.8842 N4020 Y-0.869 N4030 G00 Z0.2 N4040 X2.3098 Y-0.8322 N4050 G01 Z-0.019 F60. N4060 X2.3081 Y-0.8255 F35. N4070 Y-0.8199 N4080 X2.3098 Y-0.8149 N4090 X2.3124 Y-0.8122 N4100 X2.3167 Y-0.8098 N4110 X2.3228 Y-0.8087 N4120 X2.3315 Y-0.8092 N4130 X2.3401 Y-0.8107 N4140 X2.347 Y-0.813 N4150 X2.3531 Y-0.8162 N4160 X2.3574 Y-0.8201 N4170 X2.36 Y-0.8248 N4180 X2.3617 Y-0.8283 N4190 Y-0.8371 N4200 X2.3583 Y-0.8407 N4210 X2.3557 Y-0.8435 N4220 X2.3514 Y-0.8459 N4230 X2.3444 Y-0.8468 N4240 X2.3366 Y-0.8465 N4250 X2.3323 Y-0.8457 N4260 X2.3254 Y-0.8434 N4270 X2.3185 Y-0.8401 N4280 X2.3124 Y-0.8358 N4290 X2.3098 Y-0.8322 N4300 G00 Z0.2 N4310 X2.2389 Y-0.982 N4320 G01 Z-0.019 F60. N4330 X2.2475 Y-0.9889 F35. N4340 X2.2596 Y-0.9974 N4350 X2.2752 Y-1.0075 N4360 X2.2865 Y-1.0148 N4370 X2.3046 Y-1.0243 N4380 X2.3245 Y-1.0331 N4390 X2.3436 Y-1.0407 N4400 X2.3635 Y-1.0474 N4410 X2.3903 Y-1.0543 N4420 Y-1.0807 N4430 X2.3591 Y-1.0721 N4440 X2.3332 Y-1.0622 N4450 X2.309 Y-1.0516 N4460 X2.2899 Y-1.0419 N4470 X2.2752 Y-1.0329 N4480 X2.2596 Y-1.0228 N4490 X2.2492 Y-1.0146 N4500 X2.2415 Y-1.009 N4510 Y-1.0725 N4520 X2.2103 Y-1.067 N4530 Y-0.977 N4540 X2.2389 Y-0.982 N4550 G00 Z0.2 (CALLS 1ST & 2ND OP. CHAMFER PROGRAM) N4560 M97 P2004 N4560 G91 G28 Z0. M05 N4570 G28 Y0. M09 N4580 G90 N4590 M30 N2002 (MILL 2ND OP SUBPROGRAM ) (3" DIA. FACEMILL) N170 M01 N180 G00 G90 G54 X-2.9 Y0.5 S4500 M03 N190 G43 H02 Z0.2 M08 N200 G01 Z-0.125 F60. N210 X8.7 F50. N220 G00 Z0.2 N230 X-2.9 Y-0.7001 N240 G01 Z-0.125 F60. N250 X8.7 F50. N260 G00 Z0.2 N300 M99 N2003 (2ND OP. POCKETING PROGRAM) N40 M01 N50 G00 G90 G55 X-0.9812 Y0.0079 S4500 M03 N60 G43 H04 Z0.1 N70 G01 Z-0.07 F40. N80 X-1.1419 Y0. F50. N90 X-0.9812 Y-0.0079 N100 G02 Y0.0079 I0.9812 J0.0079 N110 G01 X-0.8739 Y0.1133 N120 X-2.1829 Y0.0488 N130 G02 X-2.1823 Y-0.0398 I-0.7353 J-0.0488 N140 X-2.1829 Y-0.0488 I-0.7359 J0.0398 N150 G01 X-0.8739 Y-0.1133 N160 G02 Y0.1133 I0.8739 J0.1133 N170 G01 X-0.7498 Y0.2196 N180 X-2.2976 Y0.1432 N190 G02 X-2.2829 Y0.0464 I-0.6206 J-0.1432 N200 X-2.2822 Y-0.0344 I-0.6353 J-0.0464 N210 X-2.2976 Y-0.1432 I-0.636 J0.0344 N220 G01 X-0.7498 Y-0.2196 N230 G02 Y0.2196 I0.7498 J0.2196 N240 G01 X-0.6396 Y0.2347 N250 G03 X-0.7038 Y0.322 I-0.061 J0.0224 N260 G01 X-2.3458 Y0.241 N270 G03 X-2.4047 Y0.1571 I0.0032 J-0.0649 N280 G02 X-2.3827 Y0.0391 I-0.5135 J-0.1571 N290 X-2.382 Y-0.029 I-0.5355 J-0.0391 N300 X-2.4047 Y-0.1571 I-0.5362 J0.029 N310 G03 X-2.3458 Y-0.241 I0.0621 J-0.019 N320 G01 X-0.7038 Y-0.322 N330 G03 X-0.6396 Y-0.2347 I0.0032 J0.0649 N340 G02 Y0.2347 I0.6396 J0.2347 N350 G00 Z0. N360 X-0.9812 Y0.0079 N370 G01 Z-0.14 F40. N380 X-1.1419 Y0. F50. N390 X-0.9812 Y-0.0079 N400 G02 Y0.0079 I0.9812 J0.0079 N410 G01 X-0.8739 Y0.1133 N420 X-2.1829 Y0.0488 N430 G02 X-2.1823 Y-0.0398 I-0.7353 J-0.0488 N440 X-2.1829 Y-0.0488 I-0.7359 J0.0398 N450 G01 X-0.8739 Y-0.1133 N460 G02 Y0.1133 I0.8739 J0.1133 N470 G01 X-0.7498 Y0.2196 N480 X-2.2976 Y0.1432 N490 G02 X-2.2829 Y0.0464 I-0.6206 J-0.1432 N500 X-2.2822 Y-0.0344 I-0.6353 J-0.0464 N510 X-2.2976 Y-0.1432 I-0.636 J0.0344 N520 G01 X-0.7498 Y-0.2196 N530 G02 Y0.2196 I0.7498 J0.2196 N540 G01 X-0.6396 Y0.2347 N550 G03 X-0.7038 Y0.322 I-0.061 J0.0224 N560 G01 X-2.3458 Y0.241 N570 G03 X-2.4047 Y0.1571 I0.0032 J-0.0649 N580 G02 X-2.3827 Y0.0391 I-0.5135 J-0.1571 N590 X-2.382 Y-0.029 I-0.5355 J-0.0391 N600 X-2.4047 Y-0.1571 I-0.5362 J0.029 N610 G03 X-2.3458 Y-0.241 I0.0621 J-0.019 N620 G01 X-0.7038 Y-0.322 N630 G03 X-0.6396 Y-0.2347 I0.0032 J0.0649 N640 G02 Y0.2347 I0.6396 J0.2347 N650 G00 Z0.5 N660 M99 N2004 (OP. 1 & 2 CHAMFER PROGRAM) N10 M01 N50 G00 G90 G54 X0.4056 Y-0.8278 N60 G43 H05 Z0.2 M08 N70 G01 Z0. N80 G41 D05 X0.4806 Y-0.8297 F60. N90 G03 X0.5411 Y-0.7079 I0.0019 J0.075 N100 G02 X0.4831 Y-0.4916 I0.2189 J0.1746 N110 X0.4882 Y-0.4788 I0.0297 J-0.0045 N120 X1.5303 Y-0.3056 I0.6061 J-0.4251 N130 X1.5326 Y-0.3075 I-0.0176 J-0.0243 N140 G03 X1.8802 Y-0.44 I0.3484 J0.3918 N150 G01 X5.7943 Y-0.2304 N160 G02 X5.7936 Y-1.6009 I0.0367 J-0.6853 N170 G01 X2.0302 Y-1.3957 N180 G03 X1.6924 Y-1.5397 I0.0008 J-0.47 N190 G02 X0.8282 Y-1.7538 I-0.5465 J0.3549 N200 X0.8193 Y-1.7463 I0.0146 J0.0262 N210 X0.7614 Y-1.53 I0.219 J0.1746 N220 X0.7833 Y-1.5054 I0.0296 J-0.0044 N230 G01 X1.2545 Y-1.3792 N240 X1.3763 Y-0.9247 N250 X1.0436 Y-0.592 N260 X0.5723 Y-0.7182 N270 G02 X0.5411 Y-0.7079 I-0.0077 J0.029 N280 G03 X0.409 Y-0.7399 I-0.0586 J-0.0468 N290 G40 G01 X0.3941 Y-0.8134 N300 G00 Z0.2 N310 X3.0119 Y-0.9411 N320 G01 Z0. N330 G41 X3.0609 Y-0.9979 N340 G03 X3.1917 Y-0.9609 I0.0568 J0.049 N350 Y-0.8705 I-0.2789 J0.0452 N360 Y-0.9609 I-0.2789 J-0.0452 N370 Y-0.8705 I-0.2789 J0.0452 N380 X3.0609 Y-0.8335 I-0.074 J-0.012 N390 G40 G01 X3.0119 Y-0.8903 N400 G00 Z0.2 N410 X5.1407 Y-0.6788 N420 G01 Z0. N430 G41 X5.186 Y-0.6191 N440 G03 X5.1225 Y-0.4989 I-0.0598 J0.0453 N450 G01 X3.4806 Y-0.5798 N460 G03 X3.3354 Y-0.7864 I0.0078 J-0.1598 N470 G02 X3.3541 Y-0.8918 I-0.4226 J-0.1293 N480 X3.3536 Y-0.9479 I-0.4413 J-0.0239 N490 X3.3354 Y-1.045 I-0.4408 J0.0322 N500 G03 X3.4806 Y-1.2516 I0.153 J-0.0468 N510 G01 X5.1225 Y-1.3326 N520 G03 X5.2806 Y-1.1176 I0.0079 J0.1598 N530 G02 Y-0.7138 I0.5504 J0.2019 N540 G03 X5.1225 Y-0.4989 I-0.1502 J0.0551 N550 X5.0712 Y-0.6247 I0.0037 J-0.0749 N560 G40 G01 X5.1222 Y-0.6798 N570 G00 Z0.2 N580 X6.0741 Y-0.9518 N590 G01 Z0. N600 G41 X6.1259 Y-1.006 N610 G03 X6.2547 Y-0.9624 I0.0542 J0.0518 N620 Y-0.869 I-0.4237 J0.0467 N630 Y-0.9624 I-0.4237 J-0.0467 N640 Y-0.869 I-0.4237 J0.0467 N650 X6.1259 Y-0.8254 I-0.0746 J-0.0082 N660 G40 G01 X6.0741 Y-0.8796 N670 G00 Z0.5 (2ND OP. CHAMFER) N680 G90 G55 X-5.2469 Y0.5782 N685 G43 Z0.2 H05 N690 G01 Z0. N700 G41 X-5.1829 Y0.5391 N710 G03 X-5.0696 Y0.6142 I0.0391 J0.064 N720 G02 X-5.0117 Y0.8306 I0.2769 J0.0418 N730 X-5.0028 Y0.8381 I0.0235 J-0.0187 N740 X-4.1386 Y0.624 I0.3177 J-0.5691 N750 G03 X-3.8008 Y0.48 I0.3386 J0.326 N760 G01 X-0.0374 Y0.6852 N770 G02 X-0.0367 Y-0.6853 I0.0374 J-0.6852 N780 G01 X-3.9508 Y-0.4757 N790 G03 X-4.2984 Y-0.6082 I0.0008 J-0.5243 N800 G02 X-4.3007 Y-0.6101 I-0.0199 J0.0224 N810 X-5.3428 Y-0.4369 I-0.436 J0.5983 N820 X-5.3479 Y-0.4241 I0.0246 J0.0172 N830 X-5.2899 Y-0.2078 I0.2769 J0.0417 N840 X-5.2587 Y-0.1975 I0.0235 J-0.0187 N850 G01 X-4.7874 Y-0.3238 N860 X-4.4547 Y0.009 N870 X-4.5765 Y0.4635 N880 X-5.0477 Y0.5897 N890 G02 X-5.0696 Y0.6142 I0.0077 J0.029 N900 G03 X-5.2 Y0.6527 I-0.0742 J-0.0111 N910 G40 G01 X-5.2497 Y0.5964 N920 G00 Z0.2 N930 X-2.8191 Y-0.0254 N940 G01 Z0. N950 G41 X-2.7701 Y-0.0822 N960 G03 X-2.6393 Y-0.0452 I0.0568 J0.049 N970 X-3.197 Y0.0452 I-0.2789 J0.0452 N980 X-2.6393 Y-0.0452 I0.2788 J-0.0452 N990 X-2.7517 Y0.0312 I-0.074 J0.012 N1000 G40 G01 X-2.8162 Y-0.0072 N1010 G00 Z0.2 N1020 X-0.6903 Y0.2311 N1030 G01 Z0. N1040 G41 X-0.645 Y0.2909 N1050 G03 X-0.7085 Y0.4111 I-0.0598 J0.0453 N1060 G01 X-2.3504 Y0.3301 N1070 G03 X-2.4956 Y0.1235 I0.0078 J-0.1598 N1080 G02 X-2.4768 Y0.0157 I-0.4226 J-0.1293 N1090 X-2.4956 Y-0.135 I-0.4414 J-0.0215 N1100 G03 X-2.3504 Y-0.3416 I0.153 J-0.0468 N1110 G01 X-0.7085 Y-0.4226 N1120 G03 X-0.5504 Y-0.2077 I0.0079 J0.1598 N1130 G02 Y0.1962 I0.5504 J0.2019 N1140 G03 X-0.7085 Y0.4111 I-0.1502 J0.0551 N1150 X-0.7598 Y0.2852 I0.0037 J-0.0749 N1160 G40 G01 X-0.7088 Y0.2302 N1170 G00 Z0.2 N1180 X0.2431 Y-0.036 N1190 G01 Z0. N1200 G41 X0.295 Y-0.0902 N1210 G03 X0.4237 Y-0.0465 I0.0542 J0.0519 N1220 X-0.4237 Y0.0466 I-0.4237 J0.0465 N1230 X0.4237 Y-0.0467 I0.4237 J-0.0466 N1240 X0.3075 Y0.0239 I-0.0746 J0.0082 N1250 G40 G01 X0.2451 Y-0.0177 N1260 G00 Z0.5 N1310 M99 (=================================) O04002 (G47 Engraving Demo) (Three examples at N1,N2,N3) (---------------------------------) (N1 - FIRST Example) (G47 Engraving NUMBERS example) (G47 Engraving numbers with P1, is) (Used to engrave serial numbers.) (Specify the first number to start) (with in MACRO VARIABLE #599.) (The #### Between parenthesis is) (on the G47 line is used to Select) (the Number of Digits.) (---------------------------------) N1 (G47 Engraving NUMBERS with P1) T1 M06 (ENGRAVING TOOL) G90 G54 G00 X-3. Y0 S1500 M03 G43 H01 Z1. M08 G47 P1 X-3. Y0 I-10. J0.5 R0.05 Z-0.005 E10. F15. (###) G00 Z1. M09 G53 G49 Y0 Z0 M05 T1 M06 M30 (---------------------------------) (N2 - SECOND Example) (G47 Engraving TEXT example) (G47 Engraving text with PO, is) (used to engrave a literal string) (of text on a part. Enter the) (desired text thats in-between) (parenthasis to be engraved.) (---------------------------------) N2 (G47 Engraving TEXT with P0) T1 M06 (ENGRAVING TOOL) G90 G54 G00 X-3. Y0 S1500 M03 G43 H01 Z1. M08 G47 P0 X-3. Y0 I20. J0.5 R0.05 Z-0.005 E10. F15. (TEXT) G00 Z1. M09 G53 G49 Y0 Z0 M05 T1 M06 M30 (---------------------------------) (N3 - THIRD Example) (G47 Engrave special TEXT example) (G47 Engraving other text symbols PO, is) (with P and the special NUMBER for) (another keyboard symbol, thats) (not listed on the HAAS keypad,) (using P and a number for that) (text character to engrave on a) (part.) (---------------------------------) N3 (G47 Engrave special TEXT with P#) T1 M06 (ENGRAVING TOOL) G90 G54 G00 X-3. Y0 S1500 M03 G43 H01 Z1. M08 G47 P0 X-3. Y0 I20. J0.5 R0.05 Z-0.005 E10. F15. (TEXT) G47 Y0.5 I20. P36 G47 Y1. I20. P37 G47 Y1. I20. P40 G47 Y1. I20. P38 G47 Y1.5 I20. P41 G47 Y1. I20. P43 G47 Y0.5 I20. P123 G47 Y0.7 I10. P126 G47 Y0.9 I20. P125 (And again with no angle) G47 P0 X-3. Y-1. I0 J0.5 R0.05 Z-0.005 E10. F15. (TEXT) G47 Y-1. I0 J0.5 P36 G47 Y-1. I0 J0.5 P37 G47 Y-1. I0 J0.5 P40 G47 Y-1. I0 J0.5 P38 G47 Y-1. I0 J0.5 P41 G47 Y-1. I0 J0.5 P43 G47 Y-1. I0 J0.5 P123 G47 Y-1. I0 J0.5 P126 G47 Y-1. I0 J0.5 P125 G00 Z1. M09 G53 G49 Y0 Z0 M05 T1 M06 M30 (=================================) O09000 (vvvv MACRO PROGRAMS 9000 vvvv) (Turning setting 23 ON will hide) (programs that are defined as) (O9### numbers.) (=================================) O09001 (Macro command will zero) (Macro variable #599) (---------------------------------) N10 #599= 0 M30 (=================================) O09002 (Macro command will add 1) (to the Macro variable #599 to) (Change the Serial No. to Engrave) (on a G47 Command.) (---------------------------------) N10 #599= #599 + 1 M30 (=================================) O09003 (Macro command will minus 1) (from the Macro variable #599 to) (Change the Serial No. to Engrave) (on a G47 Command.) (---------------------------------) N10 #599= #599 - 1 M30 (=================================) O09004 (Macro to Engrave date and time) (---------------------------------) T10 M06 (T10 ENGRAVING TOOL) G90 G54 G00 X0 Y0 G43 Z0.1 H10 S7500 M03 (Engrave NAME) G47 P0 X0 Y0 I30. J0.5 R0.05 Z-0.015 F20. (*Enter Name*) (Engrave Actual DATE using Macro) #100= FIX[ #3011 / 10000 ] #101= FIX[ #3011 / 100 ] - [ #100 * 100 ] #102= #3011 - [ #100 * 10000 ] - [ #101 * 100 ] #599= #100 G47 P1 (##/) X-1.6 Y-1.7 I0 J0.15 R0.05 Z-0.295 #599= #101 G47 P1 (##/) I0 J0.15 R0.05 Z-0.295 #599= #102 G47 P1 (##) I0 J0.15 R0.05 Z-0.295 (Engrave Actual TIME using Macro) #100= FIX[ #3012 / 10000 ] #101= FIX[ #3012 / 100 ] - [ #100 * 100 ] #102= #3012 - [ #100 * 10000 ] - [ #101 * 100 ] #599= #100 G47 P1 ( ##:) I0 J0.15 R0.05 Z-0.295 #599= #101 G47 P1 (##:) I0 J0.15 R0.05 Z-0.295 #599= #102 G47 P1 (##) I0 J0.15 R0.05 Z-0.295 G28 M30 (=================================) O09020 (vvv RENISHAW MACRO PROGRAMS vv) (=================================) O09023 (REN EASYSET) (40120737.0C VQC ADDED) (HAAS VQC PROBE, English, Inch/MM, V1.8) (07-11-2005) G103 P1 #161= 556 (START CALIBRATION VARIABLE) IF [ #1 EQ #0 ] GOTO17 #27= 10 (DEFAULT Q IN MM) (#28=1DEFAULT WORK OFFSET) #29= #[ #161 + 4 ] (PROBE OFFSET #560) #30= 10 (STAND OFF) #179= 0.04 IF [ #4006 EQ 20 ] GOTO1 IF [ #4006 EQ 70 ] GOTO1 #179= 1 N1 IF [ #1 EQ 12 ] GOTO40 IF [ #1 EQ 13 ] GOTO50 IF [ #1 EQ 19 ] GOTO60 IF [ #1 EQ 20 ] GOTO70 IF [ #1 EQ 21 ] GOTO80 IF [ #1 EQ 22 ] GOTO85 IF [ #1 EQ 23 ] GOTO90 IF [ #1 EQ 24 ] GOTO95 IF [ #1 EQ 25 ] GOTO81 T#29 M06 G43 H#29 #30= #30 * #179 (IF[#19NE#0]GOTO2) (#19=#28) N2 G65 P9832 G103 P1 IF [ #19 LT 0 ] GOTO17 IF [ #19 GT 155 ] GOTO17 IF [ #19 GE 110 ] GOTO3 IF [ #19 LT 54 ] GOTO200 IF [ #19 GT 59 ] GOTO17 #19= #19 - 53 N200 IF [ #19 LE 6 ] GOTO3 GOTO17 N3 IF [ #17 NE #0 ] GOTO4 #17= #27 * #179 (* XY Q VAL) IF [ #1 NE 9 ] GOTO4 #17= 4 * #179 (* Z Q VAL) N4 IF [ #1 EQ 10 ] GOTO20 IF [ #1 EQ 11 ] GOTO30 IF [ #[ #161 ] EQ 0 ] GOTO91 (CHECK CAL) IF [ #[ #161 ] EQ #0 ] GOTO91 IF [ #1 EQ 1 ] GOTO5 IF [ #1 EQ 2 ] GOTO6 IF [ #1 EQ 3 ] GOTO7 IF [ #1 EQ 4 ] GOTO9 IF [ #1 LE 6 ] GOTO11 IF [ #1 LE 8 ] GOTO13 IF [ #1 EQ 9 ] GOTO16 IF [ #1 EQ 14 ] GOTO130 IF [ #1 EQ 15 ] GOTO140 IF [ #1 EQ 16 ] GOTO150 IF [ #1 EQ 17 ] GOTO160 IF [ #1 EQ 18 ] GOTO170 GOTO17 N5 (BORE) G65 P9814 D#7 R#18 T#20 W#23 Q#17 G103 P1 #190= #190 + #5041 #191= #191 + #5042 M78 G31 X [ #190 ] Y [ #191 ] F [ 1000 * #179 ] GOTO15 N6 (BOSS) #26= #5043 - #5083 + #26 G65 P9814 D#7 Z#26 R#18 T#20 W#23 Q#17 G103 P1 #190= #190 + #5041 #191= #191 + #5042 M78 G31 X [ #190 ] Y [ #191 ] F [ 1000 * #179 ] GOTO15 N7 (X POCKET) IF [ #24 EQ #0 ] GOTO8 G65 P9812 X#24 R#18 T#20 W#23 Q#17 G103 P1 #190= #190 + #5041 M78 G31 X [ #190 ] F [ 1000 * #179 ] GOTO15 N8 (Y POCKET) G65 P9812 Y#25 R#18 T#20 W#23 Q#17 G103 P1 #191= #191 + #5042 M78 G31 Y [ #191 ] F [ 1000 * #179 ] GOTO15 N9 (X WEB) #26= #5043 - #5083 + #26 IF [ #24 EQ #0 ] GOTO10 G65 P9812 X#24 Z#26 R#18 T#20 W#23 Q#17 G103 P1 #190= #190 + #5041 M78 G31 X [ #190 ] F [ 1000 * #179 ] GOTO15 N10 (Y WEB) G65 P9812 Y#25 Z#26 R#18 T#20 W#23 Q#17 G103 P1 #191= #191 + #5042 M78 G31 Y [ #191 ] F [ 1000 * #179 ] GOTO15 N11 (SET SURF X) #14= #5041 + #30 IF [ #1 EQ 5 ] GOTO12 #14= #5041 - #30 N12 G65 P9811 X#14 Q#17 G103 P1 #190= #190 + #14 - #24 GOTO15 N13 (SET SURF Y) #15= #5042 + #30 IF [ #1 EQ 7 ] GOTO14 #15= #5042 - #30 N14 G65 P9811 Y#15 Q#17 G103 P1 #191= #191 + #15 - #25 N15 G65 P9732 S#19 W1. GOTO18 N16 (SET SURF Z) #16= #5043 - #5083 - #30 G65 P9811 Z#16 Q#17 G103 P1 #192= #192 + #16 - #26 G65 P9732 S#19 W1. Z1. GOTO18 N20 (BORE CALIBRATION) IF [ #6557 AND 2097152 EQ 2097152 ] GOTO22 #3000= 80 (SET PARAM 57 M19 SPND ORT TO 1) (THIS IS AN OPTION FROM HAAS FOR VQCPS) (CALL HAAS TO TURN ON) N22 #[ #161 ]= 0 #[ #161 + 1 ]= 0 #[ #161 + 2 ]= 0 #[ #161 + 3 ]= 0 G65 P9814 D#7 Q#17 G65 P9834 G103 P1 M19 P180 G04 P500 G65 P9814 D#7 G103 P1 #180= [ #180 + #185 ] / 2 #181= [ #181 + #186 ] / 2 G31 X#180 Y#181 F [ 250. * #179 ] M19 G04 P500 G65 P9802 D#7 G65 P9803 D#7 GOTO18 N30 (Z CAL) #16= #5043 - #5083 - #30 G65 P9811 Z#16 Q#17 G103 P1 #3= #176 - #5083 - #26 #[ 2000 + #29 ]= #[ 2000 + #29 ] + #3 GOTO18 N40 (TOOL SETTING AUTO LENGTH ONLY) IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 G28 G91 Z0 G49 G90 T#20 M06 G28 G91 Z0 G90 #174= 0 M98 P9799 #27= #5021 - #5041 #30= #5022 - #5042 #31= #5023 - #5043 #3004= 0 G00 X [ #167 - #27 + #4 ] Y [ #168 - #30 + #5 ] M79 G31 Z [ - [ [ [ #6534 / #6533 - 1. ] * 25.4 ] * #179 ] - #31 ] F [ 2000. * #179 ] (ADUST Z FOR SHORTEST TOOL) G01 Z [ #5063 + [ 2. * #179 ] ] (ADJUST 2MM BACK OFF) G65 P9851 T#20 G91 G28 Z0 G90 GOTO19 N50 (LENGTH AND DIAMETER) IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 #156= 1 (2=RADOFF,1=DIAOFF) IF [ #6040 EQ 1 ] GOTO51 (RAD DIA) #156= 2 N51 (OFFSET LOAD) #[ 2000 + #20 ]= #11 #[ 2200 + #20 ]= 0 #[ 2400 + #20 ]= #7 / #156 #[ 2600 + #20 ]= 0 G65 P9853 B3. T#20 D#20 GOTO19 N60 (TOOL SETTING AUTO MULTI TOOL) IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 G28 G91 Z0 G49 G90 #3= #20 N61 T#3 M06 G28 G91 Z0 G90 #174= 0 M98 P9799 #27= #5021 - #5041 #30= #5022 - #5042 #31= #5023 - #5043 #3004= 0 G00 X [ #167 - #27 + #4 ] Y [ #168 - #30 + #5 ] M79 G31 Z [ - [ [ [ #6534 / #6533 - 1. ] * 25.4 ] * #179 ] - #31 ] F [ 2000. * #179 ] (ADUST Z FOR SHORTEST TOOL) G01 Z [ #5063 + [ 2. * #179 ] ] (ADJUST 2MM BACK OFF) G65 P9851 T#3 G103 P1 G91 G28 Z0 G90 #3= #3 + 1 IF [ #3 LE #2 ] GOTO61 GOTO19 N70 (TS27R CALIBRATION) #[ #161 + 31 ]= 75. * #179 #[ #161 + 32 ]= 10. * #179 #[ #161 + 33 ]= 12.7 * #179 #[ #161 + 34 ]= 150. * #179 #[ #161 + 35 ]= 13. #[ #161 + 37 ]= 0 #5= 12.7 * #179 IF [ #179 EQ 1 ] GOTO72 #[ #161 + 37 ]= 1 N72 G65 P9851 K#6 G103 P1 #[ #161 + 36 ]= 1. G65 P9852 S#19 K#5 G103 P1 #[ #161 + 36 ]= #7 G65 P9852 S#19 K#5 GOTO19 N80 (MANUAL LENGTH PROBE ONLY) #[ #161 + 4 ]= #20 G65 P9851 T#20 GOTO19 N81 (MANUAL LENGTH ONLY) G65 P9851 T#20 GOTO19 N85 (TOOL SETTING RANDOM AUTO MULTI TOOL) IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 G28 G91 Z0 G49 G90 #20= #4 IF [ #20 EQ #0 ] GOTO87 IF [ #20 EQ 0 ] GOTO87 N86 T#20 M06 G28 G91 Z0 G90 #174= 0 M98 P9799 #27= #5021 - #5041 #30= #5022 - #5042 #31= #5023 - #5043 #3004= 0 G00 X [ #167 - #27 ] Y [ #168 - #30 ] M79 G31 Z [ - [ [ [ #6534 / #6533 - 1. ] * 25.4 ] * #179 ] - #31 ] F [ 2000. * #179 ] (ADUST Z FOR SHORTEST TOOL) G01 Z [ #5063 + [ 2. * #179 ] ] (ADJUST 2MM BACK OFF) G65 P9851 T#20 G103 P1 G91 G28 Z0 G90 #3= #3 + 1 #20= #[ 4 + #3 ] IF [ #20 EQ #0 ] GOTO87 IF [ #20 NE 0 ] GOTO86 N87 GOTO19 N90 (LENGTH ROTATING) IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 (OFFSET LOAD) #[ 2000 + #20 ]= #11 #[ 2200 + #20 ]= 0 G65 P9853 B1. T#20 S#7 GOTO19 N95 (TOOL BREAKAGE) IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 G65 P9853 B1. T#20 H#11 GOTO19 N130 (SET INTERNAL CORNER) IF [ #2 GT 1 ] GOTO131 #14= #5041 - #30 (1) #15= #5042 - #30 GOTO135 N131 IF [ #2 GT 2 ] GOTO132 #14= #5041 - #30 (2) #15= #5042 + #30 GOTO135 N132 IF [ #2 GT 3 ] GOTO133 #14= #5041 + #30 (3) #15= #5042 + #30 GOTO135 N133 #14= #5041 + #30 (4) #15= #5042 - #30 N135 G65 P9815 X#14 Y#15 I#4 J#5 Q#17 G103 P1 #190= #190 + #14 #191= #191 + #15 G65 P9732 S#19 W1. GOTO18 N140 (SET EXTERNAL CORNER) IF [ #2 GT 1 ] GOTO141 #14= #5041 + #30 (1) #15= #5042 + #30 GOTO145 N141 IF [ #2 GT 2 ] GOTO142 #14= #5041 + #30 (2) #15= #5042 - #30 GOTO145 N142 IF [ #2 GT 3 ] GOTO143 #14= #5041 - #30 (3) #15= #5042 - #30 GOTO145 N143 #14= #5041 - #30 (4) #15= #5042 + #30 N145 G65 P9816 X#14 Y#15 I#4 J#5 Q#17 G103 P1 #190= #190 + #14 #191= #191 + #15 G65 P9732 S#19 W1. GOTO18 N150 (CENTER BLOCK) (SET SURF Z) #16= #5043 - #5083 - #30 G65 P9811 Z#16 Q#17 G103 P1 #192= #192 + #16 G65 P9732 S#19 W1. Z1. (X WEB) #18= 10 * #179 (EXTRA CLEARANCE) #26= #5043 - #5083 + #26 G65 P9812 X#24 Z#26 R#18 T#20 W#23 Q#17 G103 P1 #190= #190 + #5041 M78 G31 X [ #190 ] F [ 1000 * #179 ] G65 P9732 S#19 W1. (Y WEB) G65 P9812 Y#25 Z#26 R#18 T#20 W#23 Q#17 G103 P1 #191= #191 + #5042 M78 G31 Y [ #191 ] F [ 1000 * #179 ] G65 P9732 S#19 W1. GOTO18 N160 (VISE CORNER SET) M78 G91 G31 X [ #24 / 2 ] Y - [ #25 / 2 ] F [ 5000. * #179 ] (SET SURF Z) #16= #5043 - #5083 - #30 G65 P9811 Z#16 Q#17 G103 P1 #192= #192 + #16 G65 P9732 S#19 W1. Z1. M78 G91 G31 X [ - #24 / 2 - [ 12. * #179 ] ] F [ 4000. * #179 ] M78 G91 G31 Z [ #26 ] (SET SURF X) #14= #5041 + #30 G65 P9811 X#14 Q#17 G103 P1 #190= #190 + #14 G65 P9732 S#19 W1. M78 G91 G31 Z - [ #26 ] F [ 4000. * #179 ] M78 G91 G31 X [ #24 / 2 + [ 12. * #179 ] ] M78 G91 G31 Y [ #25 / 2 + [ 12. * #179 ] ] M78 G91 G31 Z [ #26 ] (SET SURF Y) #15= #5042 - #30 G65 P9811 Y#15 Q#17 G103 P1 #191= #191 + #15 G65 P9732 S#19 W1. M78 G91 G31 Z - [ #26 ] F [ 4000. * #179 ] M78 G91 G31 Y [ - #25 / 2 - [ 12. * #179 ] ] M78 G91 G31 X - [ #24 / 2 ] Y [ #25 / 2 ] F [ 5000. * #179 ] GOTO18 N170 (VISE CORNER CENTER) M78 G91 G31 X [ #24 / 2 ] Y - [ #25 / 2 ] F [ 5000. * #179 ] (SET SURF Z) #16= #5043 - #5083 - #30 G65 P9811 Z#16 Q#17 G103 P1 #192= #192 + #16 G65 P9732 S#19 W1. Z1. (X WEB) #26= #5043 - #5083 + #26 G65 P9812 X#24 Z#26 R#18 T#20 W#23 Q#17 G103 P1 #190= #190 + #5041 G65 P9732 S#19 W1. (Y WEB) G65 P9812 Y#25 Z#26 R#18 T#20 W#23 Q#17 G103 P1 #191= #191 + #5042 G65 P9732 S#19 W1. GOTO18 N17 #3000= 91 (FORMAT ERROR) N90 #3000= 10 (TS27R NOT CALIBRATED) N91 #3000= 11 (OMP40 NOT CALIBRATED) N18 G65 P9833 (FLASH OFF) N19 M99 O09721 (REN X DIAM) (40120882.0C HAAS) (BASED ON 40120519.0E) M98 P9723 #1= #5041 #2= #5043 - #166 IF [ #26 EQ #0 ] GOTO15 #30= #[ #161 ] IF [ #18 GT 0 ] GOTO1 #30= - #[ #161 ] N1 #32= #7 / 2 + #30 + #18 G31 X [ #1 - #32 ] F#169 IF [ ABS[ #5041 - [ #1 - #32 ] ] GE #173 ] GOTO3 G31 Z#26 F [ #169 * 0.6 ] IF [ ABS[ #5043 - #166 - [ #26 ] ] GE #173 ] GOTO3 N15 G65 P9726 X [ #1 - #7 / 2 ] Q#17 S#19 G00 Z#2 X#1 IF [ #199 NE 0 ] GOTO4 #177= #174 IF [ #26 EQ #0 ] GOTO2 G31 X [ #1 + #32 ] F#169 IF [ ABS[ #5041 - [ #1 + #32 ] ] GE #173 ] GOTO3 G31 Z#26 F [ #169 * 0.6 ] IF [ ABS[ #5043 - #166 - [ #26 ] ] GE #173 ] GOTO3 N2 G65 P9726 X [ #1 + #7 / 2 ] Q#17 S#19 G00 Z#2 IF [ #199 NE 0 ] GOTO4 #177= [ #177 + #174 ] / 2 GOTO4 N3 #199= 1 N4 G00 Z#2 G00 X#1 M99 O09722 (REN Y DIAM) M98 P9723 #1= #5042 #2= #5043 - #166 IF [ #26 EQ #0 ] GOTO15 #30= #[ #161 + 1 ] IF [ #18 GT 0 ] GOTO1 #30= - #[ #161 + 1 ] N1 #32= #7 / 2 + #30 + #18 G31 Y [ #1 - #32 ] F#169 IF [ ABS[ #5042 - [ #1 - #32 ] ] GE #173 ] GOTO3 G31 Z#26 F [ #169 * 0.6 ] IF [ ABS[ #5043 - #166 - [ #26 ] ] GE #173 ] GOTO3 N15 G65 P9726 Y [ #1 - #7 / 2 ] Q#17 S#19 G00 Z#2 Y#1 IF [ #199 NE 0 ] GOTO4 #178= #175 IF [ #26 EQ #0 ] GOTO2 G31 Y [ #1 + #32 ] F#169 IF [ ABS[ #5042 - [ #1 + #32 ] ] GE #173 ] GOTO3 G31 Z#26 F [ #169 * 0.6 ] IF [ ABS[ #5043 - #166 - [ #26 ] ] GE #173 ] GOTO3 N2 G65 P9726 Y [ #1 + #7 / 2 ] Q#17 S#19 G00 Z#2 IF [ #199 NE 0 ] GOTO4 #178= [ #178 + #175 ] / 2 GOTO4 N3 #199= 1 N4 G00 Z#2 G00 Y#1 M99 O09723 (REN ACT OFFSET) #166= #5083 M99 O09724 (SETTINGS) G103 P1 #161= 556 (START CALIBRATION VARIABLE) IF [ FIX[ #6557 AND 8388608 ] / 8388608 EQ 0 ] GOTO50 #3000= 80 (SET PARAMETER 57 INVERT SKIP TO 0) N50 IF [ #6033 EQ 0 ] GOTO60 #3000= 80 (SET SETTING 33 TO FANUC) N60 IF [ #6557 AND 33554432 EQ 33554432 ] GOTO70 #3000= 80 (SET PARAM 57 NEG OFFSETS TO 1) N70 IF [ #6557 AND 8192 EQ 8192 ] GOTO80 #3000= 80 (SET PARAM 57 SKIP OVERSHT TO 1) N80 #170= 19 (SELECT DIA OFFSET) IF [ #6040 EQ 1 ] GOTO90 (RAD DIA) #170= 3 (SELECT RAD OFFSET) N90 M62 (SELECT PART PROBE) G04 P100 M98 P9723 G90 G80 G40 IF [ #4008 NE 49 ] GOTO100 #3000= 89 (NO TOOL LENGTH ACTIVE) N100 IF [ #4006 EQ 20 ] GOTO400 IF [ #4006 EQ 70 ] GOTO400 #173= 0.05 (INPOS ZONE MM) #179= 1 #169= 5000 (FAST FEED MM) IF [ #6507 GT 4000000 ] GOTO150 #169= 2500 (FAST FEED FOR SLOW MACHINES- MM) N150 GOTO500 N400 #173= 0.002 (INPOS ZONE INCH) #179= 0.04 #169= 200 (FAST FEED INCH) IF [ #6507 GT 4000000 ] GOTO450 #169= 100 (FAST FEED FOR SLOW MACHINES- INCH) N450 N500 IF [ #[ #161 + 6 ] LE 0 ] GOTO600 IF [ #[ #161 + 6 ] GT 1 ] GOTO600 GOTO700 N600 #[ #161 + 6 ]= 0.2 N700 M99 O09726 (REN BASIC MEASURE -2T) IF [ #17 NE #0 ] GOTO1 #17= 5 * #179 N1 IF [ #7 EQ #0 ] GOTO2 (* A D INPUT XY PLANE ONLY) #24= #5041 + [ [ #7 / 2 ] * COS[ #1 ] ] #25= #5042 + [ [ #7 / 2 ] * SIN[ #1 ] ] #26= #5043 - #166 N2 #31= 8 * #[ #161 + 6 ] * #179 (* BACK OFF) #199= 0 #1= #5041 IF [ #24 NE #0 ] GOTO3 #24= #1 N3 #2= #5042 IF [ #25 NE #0 ] GOTO4 #25= #2 N4 #3= #5043 - #166 IF [ #26 NE #0 ] GOTO5 #26= #3 N5 (* CALC NRML DIR VEC) #11= #24 - #1 #12= #25 - #2 #13= #26 - #3 #10= SQRT[ [ #11 * #11 ] + [ #12 * #12 ] + [ #13 * #13 ] ] IF [ #10 EQ 0 ] GOTO6 (* NO MOVE) #11= #11 / #10 #12= #12 / #10 #13= #13 / #10 (*CALC TARGET POS.) #14= #24 + [ #17 * #11 ] #15= #25 + [ #17 * #12 ] #16= #26 + [ #17 * #13 ] #3004= 2 G31 X#14 Y#15 Z#16 F [ #169 * 0.6 ] (* P.FAIL) #4= #5041 - #14 #5= #5042 - #15 #6= #5043 - #166 - #16 #29= SQRT[ [ #4 * #4 ] + [ #5 * #5 ] + [ #6 * #6 ] ] IF [ #29 LT #173 ] GOTO7 (* P F) (* P.OPEN) #4= #5041 - #1 #5= #5042 - #2 #6= #5043 - #166 - #3 #29= SQRT[ [ #4 * #4 ] + [ #5 * #5 ] + [ #6 * #6 ] ] IF [ #29 LT #173 ] GOTO6 (* P O) (* CALC BACK OFF POS.) #21= #5061 - [ #31 * #11 ] #22= #5062 - [ #31 * #12 ] #23= #5063 - #166 - [ #31 * #13 ] G09 G01 X#21 Y#22 Z#23 F#169 (* BACK OFF) G04 P300 (DWELL MP700) G31 X#14 Y#15 Z#16 F [ 100 * #179 ] (* MEASURE) #3004= 0 G01 X#1 Y#2 Z#3 F#169 (* P F CHCK) #4= #5061 - #14 #5= #5062 - #15 #6= #5063 - #166 - #16 #29= SQRT[ [ #4 * #4 ] + [ #5 * #5 ] + [ #6 * #6 ] ] IF [ #29 LT #173 ] GOTO7 (* P F) (* P O CHCK) #4= #5061 - #21 #5= #5062 - #22 #6= #5063 - #166 - #23 #29= SQRT[ [ #4 * #4 ] + [ #5 * #5 ] + [ #6 * #6 ] ] IF [ #29 LT #173 ] GOTO6 (* P O) #199= 0 (* NRML MEAS) #174= #5061 #175= #5062 #176= #5063 IF [ #29 GT #173 ] GOTO8 N6 #199= 1 #174= #1 #175= #2 #176= #3 GOTO8 N7 #199= 2 #174= #14 #175= #15 #176= #16 N8 G01 X#1 Y#2 Z#3 F#169 M99 O09727 (REN VECTOR OD-ID) M98 P9723 #3= #5043 - #166 #5= #5041 #6= #5042 IF [ #18 NE #0 ] GOTO1 #18= 5 * #179 N1 #29= #7 IF [ #26 EQ #0 ] GOTO2 #19= - #[ #161 + 1 ] IF [ #18 LT 0 ] GOTO15 #19= #[ #161 + 1 ] N15 #30= #5 + [ [ [ #7 / 2 ] + #19 + #18 ] * COS[ #1 ] ] #31= #6 + [ [ [ #7 / 2 ] + #19 + #18 ] * SIN[ #1 ] ] G31 X#30 Y#31 F#169 IF [ ABS[ #5041 - #30 ] GT #173 ] GOTO3 IF [ ABS[ #5042 - #31 ] GT #173 ] GOTO3 G31 Z [ #26 ] F [ #169 * 0.6 ] IF [ ABS[ #5043 - #166 - #26 ] GT #173 ] GOTO3 #29= ABS[ #18 * 2 ] IF [ #18 LT 0 ] GOTO2 #1= #1 + 180 N2 G65 P9726 A#1 Q#17 D#29 S#19 GOTO4 N3 #199= 1 N4 G01 Z#3 F#169 G01 X#5 Y#6 M99 O09730 (REN PRINT) (40120883.0C HAAS) G103 P1 #30= 500 (EDIT DWELL) POPEN IF [ #171 NE #0 ] GOTO1 #171= 1 N1 IF [ #172 NE #0 ] GOTO2 #172= 1 N2 IF [ #23 NE 2 ] GOTO3 #171= #171 + 1 #172= 1 N3 DPRNT[] G04 P#30 DPRNT[-------------------------------------------------------------------] G04 P#30 DPRNT[***COMPONENT*NO*#171[60]*******************FEATURE*NO*#172[40]] G04 P#30 DPRNT[-------------------------------------------------------------------] G04 P#30 #172= #172 + 1 IF [ #20 EQ #0 ] GOTO4 DPRNT[TOOL*OFFSET*H#20[40]] G04 P#30 N4 IF [ #19 EQ #0 ] GOTO20 DPRNT[WORK*OFFSET*S#19[30]] G04 P#30 N20 IF [ #18 EQ #0 ] GOTO30 (PCD INPUT) #28= #185 - #24 + #4 #29= #186 - #25 + #5 DPRNT[PCD*FEATURE*NO*#197[30]] G04 P#30 DPRNT[INC*X#4[44]***ACTUAL*#28[44]] G04 P#30 DPRNT[INC*Y#5[44]***ACTUAL*#29[44]] G04 P#30 DPRNT[PCD*#18[44]***ACTUAL*#187[44]***DEV*#192[34]] G04 P#30 DPRNT[ANG*#1[44]***ACTUAL*#189[44]***DEV*#194[34]] G04 P#30 DPRNT[] G04 P#30 #1= #0 N30 (D INPUT) IF [ #7 EQ #0 ] GOTO40 IF [ #8 EQ 2 ] GOTO31 IF [ #11 NE #0 ] GOTO31 IF [ #20 NE #0 ] GOTO31 GOTO35 N31 (SIZE DATA) #14= 1 IF [ #11 NE #0 ] GOTO32 DPRNT[SIZE*D#7[44]***ACTUAL*#188[44]***DEV*#193[34]] G04 P#30 GOTO40 N32 DPRNT[SIZE*D#7[44]***ACTUAL*#188[44]***TOL*#11[24]**DEV*#193[34]] G04 P#30 IF [ ABS[ #193 ] LE #11 ] GOTO40 #32= 40 GOTO110 N35 (POS) IF [ #13 NE #0 ] GOTO36 DPRNT[POSN*R#7[44]***ACTUAL*#188[44]***DEV*#193[34]] G04 P#30 GOTO40 N36 DPRNT[POSN*R#7[44]***ACTUAL*#188[44]***TOL*TP*#13[24]**DEV*#193[34]] G04 P#30 N40 (X INPUT) IF [ #24 EQ #0 ] GOTO50 IF [ #14 EQ 1 ] GOTO45 IF [ #11 NE #0 ] GOTO41 IF [ #20 NE #0 ] GOTO41 GOTO45 N41 (SIZE DATA) #14= 1 IF [ #11 NE #0 ] GOTO42 DPRNT[SIZE*X#24[44]***ACTUAL*#188[44]***DEV*#193[34]] G04 P#30 GOTO50 N42 DPRNT[SIZE*X#24[44]***ACTUAL*#188[44]***TOL*#11[24]**DEV*#193[34]] G04 P#30 IF [ ABS[ #193 ] LE #11 ] GOTO50 #32= 50 GOTO110 N45 (POS) IF [ #13 NE #0 ] GOTO46 DPRNT[POSN*X#24[44]***ACTUAL*#185[44]***DEV*#190[34]] G04 P#30 GOTO50 N46 DPRNT[POSN*X#24[44]***ACTUAL*#185[44]***TOL*TP*#13[24]**DEV*#190[34]] G04 P#30 N50 (Y INPUT) IF [ #25 EQ #0 ] GOTO60 IF [ #14 EQ 1 ] GOTO55 IF [ #11 NE #0 ] GOTO51 IF [ #20 NE #0 ] GOTO51 GOTO55 N51 (SIZE DATA) #14= 1 IF [ #11 NE #0 ] GOTO52 DPRNT[SIZE*Y#25[44]***ACTUAL*#188[44]***DEV*#193[34]] G04 P#30 GOTO60 N52 DPRNT[SIZE*Y#25[44]***ACTUAL*#188[44]***TOL*#11[24]**DEV*#193[34]] G04 P#30 IF [ ABS[ #193 ] LE #11 ] GOTO60 #32= 60 GOTO110 N55 (POS) IF [ #13 NE #0 ] GOTO56 DPRNT[POSN*Y#25[44]***ACTUAL*#186[44]***DEV*#191[34]] G04 P#30 GOTO60 N56 DPRNT[POSN*Y#25[44]***ACTUAL*#186[44]***TOL*TP*#13[24]**DEV*#191[34]] G04 P#30 N60 (Z INPUT) IF [ #26 EQ #0 ] GOTO67 IF [ #14 EQ 1 ] GOTO65 IF [ #11 NE #0 ] GOTO61 IF [ #20 NE #0 ] GOTO61 GOTO65 N61 (SIZE DATA) #14= 1 IF [ #11 NE #0 ] GOTO62 DPRNT[SIZE*Z#26[44]***ACTUAL*#188[44]***DEV*#193[34]] G04 P#30 GOTO70 N62 DPRNT[SIZE*Z#26[44]***ACTUAL*#188[44]***TOL*#11[24]**DEV*#193[34]] G04 P#30 IF [ ABS[ #193 ] LE #11 ] GOTO70 #32= 70 GOTO110 N65 (POS) IF [ #13 NE #0 ] GOTO66 DPRNT[POSN*Z#26[44]***ACTUAL*#187[44]***DEV*#192[34]] G04 P#30 GOTO70 N66 DPRNT[POSN*Z#26[44]***ACTUAL*#187[44]***TOL*TP*#13[24]**DEV*#192[34]] G04 P#30 N67 IF [ #13 EQ #0 ] GOTO70 IF [ ABS[ #195 ] LE #13 / 2 ] GOTO70 #32= 70 GOTO120 N70 (ANG1 INPUT) IF [ #1 EQ #0 ] GOTO80 IF [ #17 NE #0 ] GOTO71 DPRNT[ANG*#1[44]***ACTUAL*#189[44]***DEV*#194[34]] G04 P#30 GOTO80 N71 DPRNT[ANG*#1[44]***ACTUAL*#189[44]***TOL*#17[24]**DEV*#194[34]] G04 P#30 IF [ ABS[ #194 ] LE #17 ] GOTO80 #28= #194 #29= #17 #32= 80 GOTO130 N80 IF [ #2 EQ #0 ] GOTO199 (ANG2 INPUT) IF [ #3 NE #0 ] GOTO81 DPRNT[ANG*#2[44]***ACTUAL*#192[44]***DEV*#193[34]] G04 P#30 GOTO199 N81 DPRNT[ANG*#2[44]***ACTUAL*#192[44]***TOL*#3[24]**DEV*#193[34]] G04 P#30 IF [ ABS[ #193 ] LE #3 ] GOTO199 #28= #193 #29= #3 #32= 199 GOTO130 N110 (SIZE TOL) IF [ #193 LT 0 ] GOTO111 #31= #193 - #11 GOTO112 N111 #31= #193 + #11 N112 DPRNT[] G04 P#30 DPRNT[**********+++++OUT*OF*TOL+++++*ERROR*#31[34]] G04 P#30 DPRNT[] G04 P#30 GOTO#32 N120 (POS TOL) IF [ #15 EQ 1 ] GOTO#32 #28= #195 - #13 / 2 DPRNT[] G04 P#30 DPRNT[**********+++++OUT*OF*POS+++++*ERROR*TP*#28[34]*RADIAL] G04 P#30 DPRNT[] G04 P#30 #15= 1 GOTO#32 N130 (ANG TOL) IF [ #28 LT 0 ] GOTO131 #31= #28 - #29 GOTO132 N131 #31= #28 + #29 N132 DPRNT[] G04 P#30 DPRNT[**********+++++ANG*OUT*OF*TOL+++++*ERROR*#31[34]] G04 P#30 DPRNT[] G04 P#30 GOTO#32 N199 PCLOS M99 O09731 (REN #[#161+9] LOAD/ATAN) IF [ #24 NE #0 ] GOTO6 #2= 30 (ANG INC) #3= ROUND[ #1 / #2 ] (ANG NO) #4= 0 (COUNT) #5= 0 N1 IF [ #5 EQ 1 ] GOTO2 #[ #161 + 9 ]= #[ #161 ] #5= 1 GOTO3 N2 #[ #161 + 9 ]= #[ #161 + 1 ] #5= 0 N3 IF [ #4 GT 12 ] GOTO4 IF [ ABS[ #3 ] EQ #4 ] GOTO10 #4= #4 + 3 GOTO1 N4 (V ANGS) IF [ #3 LT 0 ] GOTO5 #[ #161 + 9 ]= #[ #161 + 9 + #3 - [ FIX [ #3 / 3 ] * 1 ] ] GOTO10 N5 #[ #161 + 9 ]= #[ #161 + 9 + 12 + #3 - [ FIX[ [ 12 + #3 ] / 3 ] * 1 ] ] GOTO10 N6 (ATAN) #24= [ ROUND[ #24 * 10000 ] ] / 10000 #25= [ ROUND[ #25 * 10000 ] ] / 10000 IF [ #24 NE 0 ] GOTO7 #168= 90 IF [ #25 GE 0 ] GOTO10 #168= -90 GOTO10 N7 IF [ #25 NE 0 ] GOTO8 #168= 0 IF [ #24 GE 0 ] GOTO10 #168= 180 GOTO10 N8 #168= ATAN[ ABS[ #25 ] / ABS[ #24 ] ] IF [ #24 GE 0 ] GOTO9 #168= 180 - #168 N9 IF [ #25 GE 0 ] GOTO10 #168= - #168 N10 M99 O09732 (REN OFFSET TYPE) IF [ #23 EQ 1 ] GOTO11 IF [ #26 EQ #0 ] GOTO10 #[ 2200 + #20 ]= #[ 2200 + #20 ] - #3 (LENGTH-WEAR) GOTO30 N10 IF [ #170 AND 16 NE 16 ] GOTO105 #[ 2600 + #20 ]= #[ 2600 + #20 ] - #3 * 2 (DIA-WEAR) #168= [ #[ 2400 + #20 ] + #[ 2600 + #20 ] ] / 2 GOTO30 N105 #[ 2600 + #20 ]= #[ 2600 + #20 ] - #3 (RAD-WEAR) #168= #[ 2400 + #20 ] + #[ 2600 + #20 ] GOTO30 (1) N11 (W OFFSETS) #4= #5021 - #5041 - #5201 #5= #5022 - #5042 - #5202 #6= #5023 - #5043 - #5203 IF [ #19 GE 154 ] GOTO26 IF [ #19 GE 110 ] GOTO23 IF [ #19 NE 0 ] GOTO20 (EXTL) IF [ #190 EQ #0 ] GOTO18 #5201= #5201 + #190 N18 IF [ #191 EQ #0 ] GOTO19 #5202= #5202 + #191 N19 IF [ #26 EQ #0 ] GOTO30 IF [ #192 EQ #0 ] GOTO30 #5203= #5203 + #192 GOTO30 N20 (W OFF) IF [ #190 EQ #0 ] GOTO21 #[ 5201 + [ #19 * 20 ] ]= #4 + #190 N21 IF [ #191 EQ #0 ] GOTO22 #[ 5202 + [ #19 * 20 ] ]= #5 + #191 N22 IF [ #26 EQ #0 ] GOTO30 IF [ #192 EQ #0 ] GOTO30 #[ 5203 + [ #19 * 20 ] ]= #6 + #192 GOTO30 N23 (ADDITIONAL OFFSETS) #30= #19 - 110 IF [ #190 EQ #0 ] GOTO24 #[ 7001 + [ #30 * 20 ] ]= #4 + #190 N24 IF [ #191 EQ #0 ] GOTO25 #[ 7002 + [ #30 * 20 ] ]= #5 + #191 N25 IF [ #26 EQ #0 ] GOTO30 IF [ #192 EQ #0 ] GOTO30 #[ 7003 + [ #30 * 20 ] ]= #6 + #192 GOTO30 N26 (G154 P OFFSETS) #30= [ ROUND[ [ #19 - FIX[ #19 ] ] * 100 ] ] - 1 IF [ #190 EQ #0 ] GOTO27 #[ 14001 + [ #30 * 20 ] ]= #4 + #190 N27 IF [ #191 EQ #0 ] GOTO28 #[ 14002 + [ #30 * 20 ] ]= #5 + #191 N28 IF [ #26 EQ #0 ] GOTO30 IF [ #192 EQ #0 ] GOTO30 #[ 14003 + [ #30 * 20 ] ]= #6 + #192 N30 M99 O09799 (RENISHAW SETTING) (40120888.00 HAAS) (BASED ON 40120634.0C) G103 P1 M98 P9854 #30= 582 (EDIT BASE NO.) IF [ FIX[ #6557 AND 8388608 ] / 8388608 EQ 0 ] GOTO50 #3000= 80 (SET PARAMETER 57 INVERT SKIP TO 0) N50 IF [ #6033 EQ 0 ] GOTO60 #3000= 80 (SET SETTING 33 TO FANUC) N60 IF [ #6557 AND 33554432 EQ 33554432 ] GOTO70 #3000= 80 (SET PARAM 57 NEG OFFSETS TO 1) N70 IF [ #6557 AND 8192 EQ 8192 ] GOTO80 #3000= 80 (SET PARAM 57 SKIP OVERSHT TO 1) N80 #156= 1 (2=RADOFF,1=DIAOFF) IF [ #6040 EQ 1 ] GOTO90 (RAD DIA) #156= 2 N90 (#[#30+11]=0) (1-INCH 0-MET STORE FLAG) G90 G80 G40 G00 M52 (TOOL PROBE ON) G04 P100 (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 O09801 (REN CAL PROBE LENGTH) G65 P9724 IF [ #20 NE #0 ] GOTO1 #3000= 91 (T INPUT MISSING) N1 IF [ #26 NE #0 ] GOTO2 #3000= 91 (Z INPUT MISSING) N2 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #10= #5043 - #166 G65 P9726 Z#26 Q#17 IF [ #199 NE 0 ] GOTO3 #3= #176 - #166 - #26 #[ 2000 + #20 ]= #[ 2000 + #20 ] + #3 GOTO5 N3 G00 Z#10 IF [ #199 EQ 2 ] GOTO4 #3000= 92 (PROBE OPEN) N4 #3000= 93 (PROBE FAIL) N5 G103 M99 O09802 (REN CAL XY OFFSET) G65 P9724 IF [ #7 NE #0 ] GOTO1 #3000= 91 (D INPUT MISSING) N1 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #10= #5041 #12= #5042 IF [ #26 EQ #0 ] GOTO2 IF [ #18 NE #0 ] GOTO2 #18= 5 * #179 N2 G65 P9721 D#7 Q#17 R#18 Z#26 S #[ #161 ] IF [ #199 NE 0 ] GOTO3 G00 X#177 #[ #161 + 2 ]= #10 - #177 G65 P9722 D#7 Q#17 R#18 Z#26 S #[ #161 + 1 ] IF [ #199 NE 0 ] GOTO3 #[ #161 + 3 ]= #12 - #178 GOTO5 N3 G00 X#10 Y#12 IF [ #199 EQ 2 ] GOTO4 #3000= 92 (PROBE OPEN) N4 #3000= 93 (PROBE FAIL) N5 G00 X#10 Y#12 G103 M99 O09803 (REN CAL STYLUS RAD) G65 P9724 IF [ #7 NE #0 ] GOTO1 #3000= 91 (D INPUT MISSING) N1 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #10= #5041 #12= #5042 IF [ #26 EQ #0 ] GOTO2 IF [ #18 NE #0 ] GOTO2 #18= 5 * #179 N2 G65 P9721 D#7 Q#17 R#18 Z#26 S #[ #161 ] IF [ #199 NE 0 ] GOTO4 G00 X#177 G65 P9722 D#7 Q#17 R#18 Z#26 S #[ #161 + 1 ] IF [ #199 NE 0 ] GOTO4 G00 Y#178 G65 P9721 D#7 Q#17 R#18 Z#26 S #[ #161 ] IF [ #199 NE 0 ] GOTO4 #[ #161 ]= ABS[ #7 / 2 - ABS[ #174 - #177 ] ] G65 P9722 D#7 Q#17 R#18 Z#26 S #[ #161 + 1 ] IF [ #199 NE 0 ] GOTO4 #[ #161 + 1 ]= ABS[ #7 / 2 - ABS[ #175 - #178 ] ] #190= #177 + #[ #161 + 2 ] - #10 #191= #178 + #[ #161 + 3 ] - #12 IF [ #19 EQ #0 ] GOTO7 G65 P9732 S#19 W1. GOTO7 N4 G00 X#10 Y#12 IF [ #199 EQ 2 ] GOTO5 #3000= 92 (PROBE OPEN) N5 #3000= 93 (PROBE FAIL) N7 G00 X#10 Y#12 G103 M99 O09804 (REN CAL VEC STYLUS RAD) G65 P9724 IF [ #7 NE #0 ] GOTO1 #3000= 91 (D INPUT MISSING) N1 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #10= #5041 #12= #5042 IF [ #26 EQ #0 ] GOTO2 IF [ #18 NE #0 ] GOTO2 #18= 5 * #179 N2 G65 P9721 D#7 Q#17 R#18 Z#26 S #[ #161 ] IF [ #199 NE 0 ] GOTO4 G00 X#177 G65 P9722 D#7 Q#17 R#18 Z#26 S #[ #161 ] IF [ #199 NE 0 ] GOTO4 #[ #161 + 1 ]= ABS[ #7 / 2 - ABS[ #175 - #178 ] ] G00 Y#178 G65 P9721 D#7 Q#17 R#18 Z#26 S #[ #161 ] IF [ #199 NE 0 ] GOTO4 #[ #161 ]= ABS[ #7 / 2 - ABS[ #174 - #177 ] ] G00 X#177 (V ANGS) #2= 30 IF [ #18 LT 0 ] GOTO3 IF [ #26 EQ #0 ] GOTO3 (BOSS CASE) #2= 210 N3 #5= 0 #4= #161 + 10 #1= 0 WHILE [ #1 LT 4 ] DO2 WHILE [ #5 LT 2 ] DO1 G65 P9727 A#2 Q#17 D#7 Z#26 R#18 S #[ #161 ] IF [ #199 NE 0 ] GOTO4 #24= [ #174 - #177 ] * [ #174 - #177 ] #25= [ #175 - #178 ] * [ #175 - #178 ] #29= SQRT[ #24 + #25 ] #[ #4 + #5 ]= ABS[ [ #7 / 2 ] - #29 ] #5= #5 + 1 #2= #2 + 30 END1 #1= #1 + 1 #2= #2 + 30 #5= 0 #4= #4 + 2 END2 #190= #177 + #[ #161 + 2 ] - #10 #191= #178 + #[ #161 + 3 ] - #12 IF [ #19 EQ #0 ] GOTO7 G65 P9732 S#19 W1. GOTO7 N4 G00 X#10 Y#12 IF [ #199 EQ 2 ] GOTO5 #3000= 92 (PROBE OPEN) N5 #3000= 93 (PROBE FAIL) N7 G00 X#10 Y#12 G103 M99 O09810 (REN PROTECTED POSN) G65 P9724 IF [ #9 NE #0 ] GOTO3 IF [ #167 NE #0 ] GOTO2 #3000= 88 (NO FEED RATE) N2 #9= #167 N3 #167= #9 #198= 0 N4 G31 X#24 Y#25 Z#26 F#9 IF [ #24 EQ #0 ] GOTO5 IF [ ABS[ #5041 - [ #24 ] ] GT #173 ] GOTO8 N5 IF [ #25 EQ #0 ] GOTO6 IF [ ABS[ #5042 - [ #25 ] ] GT #173 ] GOTO8 N6 IF [ #26 EQ #0 ] GOTO7 IF [ ABS[ [ #5043 - #166 ] - [ #26 ] ] GT #173 ] GOTO8 N7 GOTO9 N8 #198= 7. IF [ #13 EQ 1. ] GOTO9 #3000= 86 (PATH OBSTRUCTED) N9 G103 M99 O09811 (REN XYZ MEASURE) G65 P9724 IF [ #19 EQ #0 ] GOTO1 IF [ #20 EQ #0 ] GOTO1 #3000= 91 (ST INPUT MIXED) N1 IF [ #19 EQ #0 ] GOTO2 IF [ #11 EQ #0 ] GOTO2 #3000= 91 (SH INPUT MIXED) N2 IF [ #20 EQ #0 ] GOTO3 IF [ #13 EQ #0 ] GOTO3 #3000= 91 (TM INPUT MIXED) N3 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #10= #5041 (X START) #12= #5042 (Y START) G31 X [ #10 - #[ #161 + 2 ] ] Y [ #12 - #[ #161 + 3 ] ] F#169 IF [ ABS[ #5041 - [ #10 - #[ #161 + 2 ] ] ] GE #173 ] GOTO22 IF [ ABS[ #5042 - [ #12 - #[ #161 + 3 ] ] ] GE #173 ] GOTO22 #30= -1 (DIR FLAG) IF [ #24 NE #0 ] GOTO5 IF [ #25 NE #0 ] GOTO7 (Z MOVE) IF [ #26 EQ #0 ] GOTO225 #7= 5203 IF [ [ #5043 - #166 ] LT #26 ] GOTO4 #30= 1 N4 G65 P9726 Z#26 Q#17 IF [ #199 NE 0 ] GOTO21 #185= #10 #186= #12 #187= #176 - #166 (Z POS) #188= #187 IF [ #8 EQ #0 ] GOTO45 #188= #188 + #[ 2000 + #8 ] (SIZE) N45 #192= #187 - #26 (Z ERROR) #193= #188 - #26 (SIZE ERROR) #195= ABS[ #192 ] (T P ERR) #196= #193 * #30 (METAL CON) GOTO9 N5 (X MOVE) IF [ #25 NE #0 ] GOTO225 IF [ #26 NE #0 ] GOTO225 #6= #[ #161 ] #7= 5201 IF [ #5041 LT #24 ] GOTO6 #6= - #[ #161 ] #30= 1 N6 G65 P9726 X#24 Q#17 S #[ #161 ] IF [ #199 NE 0 ] GOTO21 #185= #174 + #6 + #[ #161 + 2 ] (COR SKIP POS) #186= #12 #188= #185 IF [ #8 EQ #0 ] GOTO65 #188= #188 + #[ 2000 + #8 ] (ACT SIZE) N65 #190= #185 - #24 (X ERROR) #193= #188 - #24 (SIZE ERROR) #195= ABS[ #190 ] (T P ERROR) #196= #193 * #30 (METAL CON) GOTO9 N7 (Y MOVE) IF [ #26 NE #0 ] GOTO225 #6= #[ #161 + 1 ] #7= 5202 IF [ #5042 LT #25 ] GOTO8 #6= - #[ #161 + 1 ] #30= 1 N8 G65 P9726 Y#25 Q#17 S #[ #161 + 1 ] IF [ #199 NE 0 ] GOTO21 #185= #10 #186= #175 + #6 + #[ #161 + 3 ] (Y SKIP POS) #188= #186 IF [ #8 EQ #0 ] GOTO85 #188= #188 + #[ 2000 + #8 ] (ACT SIZE) N85 #191= #186 - #25 (ERROR) #193= #188 - #25 (SIZE ERROR) #195= ABS[ #191 ] (TP ERROR) #196= #193 * #30 (METAL CON) N9 #197= #30 IF [ #23 EQ #0 ] GOTO10 G65 P9730 H#11 M#13 S#19 T#20 W#23 X#24 Y#25 Z#26 N10 IF [ #21 EQ #0 ] GOTO11 (U UPPER TOL) IF [ ABS[ #193 ] GE #21 ] GOTO23 IF [ #195 GE #21 ] GOTO23 N11 IF [ #11 EQ #0 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO12 #198= 1 N12 IF [ #170 AND 4 EQ 4 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO13 G00 X#10 Y#12 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N13 IF [ #13 EQ #0 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO14 #198= 2 N14 IF [ #170 AND 4 EQ 4 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO15 G00 X#10 Y#12 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF POSITION) N15 IF [ #20 EQ #0 ] GOTO19 IF [ ABS[ #196 ] LT #22 ] GOTO19 (NULL BAND) IF [ #9 NE #0 ] GOTO16 #9= 1 N16 G65 P9732 T#20 C [ #196 * #9 ] Z#26 N19 IF [ #19 EQ #0 ] GOTO24 G65 P9732 S#19 Z#26 W1. GOTO24 N21 IF [ #199 NE 2 ] GOTO22 G00 X#10 Y#12 #3000= 93 (PROBE FAIL) N22 G00 X#10 Y#12 #3000= 92 (PROBE OPEN) N225 G00 X#10 Y#12 #3000= 91 (XYZ INPUT MIXED) N23 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO24 G00 X#10 Y#12 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N24 G00 X#10 Y#12 G103 M99 O09812 (REN WEB POCKET MEASURE) G65 P9724 N1 IF [ #24 EQ #0 ] GOTO2 IF [ #25 EQ #0 ] GOTO2 #3000= 91 (XY INPUT MIXED) N2 IF [ #24 NE #0 ] GOTO3 IF [ #25 NE #0 ] GOTO3 #3000= 91 (XY INPUT MISSING) N3 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #10= #5041 (X START) #12= #5042 (Y START) G31 X [ #10 - #[ #161 + 2 ] ] Y [ #12 - #[ #161 + 3 ] ] F#169 IF [ ABS[ #5041 - [ #10 - #[ #161 + 2 ] ] ] GE #173 ] GOTO22 IF [ ABS[ #5042 - [ #12 - #[ #161 + 3 ] ] ] GE #173 ] GOTO22 #30= -1 IF [ #26 EQ #0 ] GOTO6 IF [ #18 NE #0 ] GOTO5 #18= 5 * #179 N5 IF [ #18 LT 0 ] GOTO6 #30= 1 N6 IF [ #25 EQ #0 ] GOTO7 #7= #25 G65 P9722 D#7 Q#17 R#18 Z#26 S #[ #161 + 1 ] G00 X#10 Y#12 IF [ #199 NE 0 ] GOTO21 #186= #178 + #[ #161 + 3 ] (Y COR POS) #188= [ ABS[ [ #175 - #178 ] * 2 ] ] - [ #[ #161 + 1 ] * #30 * 2 ] (SIZE) IF [ #8 EQ #0 ] GOTO65 #188= #188 + #[ 2000 + #8 ] (COR SIZE) N65 #191= #186 - #12 (Y POS ERROR) #195= ABS[ #191 ] (TP ERROR) GOTO8 N7 #7= #24 G65 P9721 D#7 Q#17 R#18 Z#26 S #[ #161 ] (X MOVE) G00 X#10 Y#12 IF [ #199 NE 0 ] GOTO21 #185= #177 + #[ #161 + 2 ] (X COR POS) #188= [ ABS[ [ #174 - #177 ] * 2 ] ] - [ #[ #161 ] * #30 * 2 ] (SIZE) IF [ #8 EQ #0 ] GOTO75 #188= #188 + #[ 2000 + #8 ] (COR SIZE) N75 #190= #185 - #10 (X POS ERROR) #195= ABS[ #190 ] (TP ERROR) N8 #193= #188 - #7 (ERROR OF SIZE) #196= #193 * #30 / 2 (METAL CON) N9 IF [ #23 EQ #0 ] GOTO10 G65 P9730 D#7 H#11 M#13 S#19 T#20 W#23 X#10 Y#12 E2. N10 IF [ #21 EQ #0 ] GOTO11 IF [ ABS[ #193 ] GE #21 ] GOTO23 IF [ #195 GE #21 ] GOTO23 N11 IF [ #11 EQ #0 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO12 #198= 1 N12 IF [ #170 AND 4 EQ 4 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO13 G00 X#10 Y#12 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N13 IF [ #13 EQ #0 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO14 #198= 2 N14 IF [ #170 AND 4 EQ 4 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO15 G00 X#10 Y#12 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF POSITION) N15 IF [ #20 EQ #0 ] GOTO19 IF [ ABS[ #196 ] LT #22 ] GOTO19 IF [ #9 NE #0 ] GOTO16 #9= 1 N16 G65 P9732 T#20 C [ #196 * #9 ] IF [ #26 NE #0 ] GOTO19 IF [ #168 LT #7 / 2 ] GOTO18 #198= 5 N18 IF [ #170 AND 4 EQ 4 ] GOTO19 IF [ #168 LT #7 / 2 ] GOTO19 G00 X#10 Y#12 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (DIA OFFSET TOO LARGE) N19 IF [ #19 EQ #0 ] GOTO24 G65 P9732 S#19 W1. GOTO24 N21 IF [ #199 NE 2 ] GOTO22 G00 X#10 Y#12 #3000= 93 (PROBE FAIL) N22 G00 X#10 Y#12 #3000= 92 (PROBE OPEN) N23 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO24 G00 X#10 Y#12 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N24 G00 X#10 Y#12 G103 M99 O09814 (REN BORE BOSS MEASURE) G65 P9724 N1 IF [ #7 NE #0 ] GOTO2 #3000= 91 (D INPUT MISSING) N2 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #10= #5041 (X START) #12= #5042 (Y START) #30= -1 IF [ #26 EQ #0 ] GOTO6 IF [ #18 NE #0 ] GOTO5 #18= 5 * #179 N5 IF [ #18 LT 0 ] GOTO6 #30= 1 N6 G65 P9722 D#7 Q#17 R#18 Z#26 S #[ #161 + 1 ] (Y MOVE) IF [ #199 NE 0 ] GOTO21 G00 Y#178 G65 P9721 D#7 Q#17 R#18 Z#26 S #[ #161 ] (X MOVE) G00 Y#12 IF [ #199 NE 0 ] GOTO21 #185= #177 + #[ #161 + 2 ] (X COR POS) #186= #178 + #[ #161 + 3 ] (Y COR POS) #188= [ ABS[ [ #174 - #177 ] * 2 ] ] - [ #[ #161 ] * #30 * 2 ] (SIZE) IF [ #8 EQ #0 ] GOTO7 #188= #188 + #[ 2000 + #8 ] (COR SIZE) N7 #190= #185 - #10 (X POS ERROR) #191= #186 - #12 (Y POS ERROR) #193= #188 - #7 (ERROR OF SIZE) #195= SQRT[ [ #190 * #190 ] + [ #191 * #191 ] ] (TP ERROR) #196= #193 * #30 / 2 (METAL CON) N9 IF [ #23 EQ #0 ] GOTO10 G65 P9730 D#7 H#11 M#13 S#19 T#20 W#23 X#10 Y#12 E2. N10 IF [ #21 EQ #0 ] GOTO11 IF [ ABS[ #193 ] GE #21 ] GOTO23 IF [ #195 GE #21 ] GOTO23 N11 IF [ #11 EQ #0 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO12 #198= 1 N12 IF [ #170 AND 4 EQ 4 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO13 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N13 IF [ #13 EQ #0 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO14 #198= 2 N14 IF [ #170 AND 4 EQ 4 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO15 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF POSITION) N15 IF [ #20 EQ #0 ] GOTO19 IF [ ABS[ #196 ] LT #22 ] GOTO19 IF [ #9 NE #0 ] GOTO16 #9= 1 N16 G65 P9732 T#20 C [ #196 * #9 ] IF [ #26 NE #0 ] GOTO19 IF [ #168 LT #7 / 2 ] GOTO18 #198= 5 N18 IF [ #170 AND 4 EQ 4 ] GOTO19 IF [ #168 LT #7 / 2 ] GOTO19 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (DIA OFFSET TOO LARGE) N19 IF [ #19 EQ #0 ] GOTO24 G65 P9732 S#19 W1. GOTO24 N21 IF [ #199 NE 2 ] GOTO22 #3000= 93 (PROBE FAIL) N22 #3000= 92 (PROBE OPEN) N23 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO24 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N24 G00 X#10 Y#12 G103 M99 O09815 (REN INTERNAL CORNER) G65 P9724 #10= #5041 #12= #5042 IF [ #24 NE #0 ] GOTO1 #3000= 91 (X INPUT MISSING) N1 IF [ #25 NE #0 ] GOTO2 #3000= 91 (Y INPUT MISSING) N2 IF [ #11 EQ #0 ] GOTO3 #3000= 91 (H INPUT NOT ALLOWED) N3 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #9= #10 #14= #12 IF [ #4 EQ #0 ] GOTO35 #4= ABS[ #4 ] N35 #7= - #[ #161 ] IF [ #24 LT #10 ] GOTO4 IF [ #4 EQ #0 ] GOTO36 #4= - #4 N36 #7= #[ #161 ] N4 IF [ #5 EQ #0 ] GOTO45 #5= ABS[ #5 ] N45 #8= - #[ #161 + 1 ] IF [ #25 LT #12 ] GOTO5 IF [ #5 EQ #0 ] GOTO46 #5= - #5 N46 #8= #[ #161 + 1 ] N5 G65 P9726 X#24 Q#17 S #[ #161 ] (P3) IF [ #199 NE 0 ] GOTO23 #30= #174 (P3X) IF [ #5 EQ #0 ] GOTO6 (NO J) G31 Y [ #14 + #5 ] F#169 #199= 1 IF [ ABS[ #5042 - [ #14 + #5 ] ] GE #173 ] GOTO23 G65 P9726 X#24 Q#17 S #[ #161 ] (P4) IF [ #199 NE 0 ] GOTO23 #31= #174 (P4X) N6 G01 X#10 Y#12 F#169 G65 P9726 Y#25 Q#17 S #[ #161 + 1 ] (P1) IF [ #199 NE 0 ] GOTO23 #32= #175 (P1Y) IF [ #4 EQ #0 ] GOTO7 G31 X [ #9 + #4 ] F#169 #199= 1 IF [ ABS[ #5041 - [ #9 + #4 ] ] GE #173 ] GOTO23 G65 P9726 Y#25 Q#17 S #[ #161 + 1 ] (P2) IF [ #199 NE 0 ] GOTO23 #16= #175 (P2Y) N7 G01 X#10 Y#12 F#169 IF [ #4 NE #0 ] GOTO8 IF [ #5 NE #0 ] GOTO8 (NO I OR J) #185= #30 + #7 + #[ #161 + 2 ] (XN) #186= #32 + #8 + #[ #161 + 3 ] (YN) GOTO17 N8 IF [ #4 EQ #0 ] GOTO10 IF [ #5 EQ #0 ] GOTO10 (I J INPUT) G65 P9731 Y [ #16 - #32 ] X [ #4 ] (ATAN) #189= #168 (ANG M1) N9 G65 P9731 Y [ #5 ] X [ #31 - #30 ] (ATAN) #192= #168 (ANG M2) GOTO14 N10 IF [ #5 NE #0 ] GOTO12 (I INPUT ONLY) #5= #4 #31= #30 - [ #16 - #32 ] G65 P9731 Y [ #16 - #32 ] X [ #4 ] (ATAN) #189= #168 (ANG M1) N11 G65 P9731 Y [ - #4 ] X [ #16 - #32 ] (ATAN) #192= #168 (ANG M2) GOTO14 N12 (J INPUT ONLY) #4= #5 #16= #32 - [ #31 - #30 ] G65 P9731 Y [ - [ #31 - #30 ] ] X [ #5 ] (ATAN) #189= #168 (ANG M1) N13 G65 P9731 Y [ #5 ] X [ #31 - #30 ] (ATAN) #192= #168 (ANG M2) N14 #28= #7 / ABS[ COS[ #192 - 90 ] ] (E B R X) #29= #8 / ABS[ COS[ #189 ] ] (E B R Y) #4= #9 + #4 (RE-ASS. P2X) #5= #14 + #5 (RE-ASS. P4Y) #30= #30 + #28 (ADJ EBRX) #31= #31 + #28 (ADJ EBRX) #32= #32 + #29 (ADJ EBRY) #16= #16 + #29 (ADJ EBRY) ( ) #185= [ [ #31 - #30 ] * [ #32 - #14 ] - [ #5 - #14 ] * [ #9 - #30 ] ] #186= [ [ #5 - #14 ] * [ #4 - #9 ] - [ #31 - #30 ] * [ #16 - #32 ] ] #186= #185 / #186 (UA) ( ) #185= #9 + [ #186 * [ #4 - #9 ] ] (X) #186= #32 + [ #186 * [ #16 - #32 ] ] (Y) #185= #185 + #[ #161 + 2 ] (XN) #186= #186 + #[ #161 + 3 ] (YN) N15 #194= #189 (X ANG ERR) IF [ #189 LT 90 ] GOTO16 #194= #189 - 180 N16 IF [ #189 GT - 90 ] GOTO165 #194= #189 + 180 N165 #193= #192 - 90 (Y ANG ERR) IF [ #193 GT - 90 ] GOTO17 #193= #193 + 180 N17 #190= #185 - #24 (X POS ERR) #191= #186 - #25 (Y POS ERR) #195= SQRT[ [ #190 * #190 ] + [ #191 * #191 ] ] (TP ERROR) IF [ #23 EQ #0 ] GOTO18 G65 P9730 X#24 Y#25 M#13 S#19 W#23 N18 #198= 0 IF [ #21 EQ #0 ] GOTO19 IF [ #195 GE #21 ] GOTO25 (UPPER TOL) N19 IF [ #13 EQ #0 ] GOTO21 IF [ #195 LT #13 / 2 ] GOTO20 #198= 1 N20 IF [ #170 AND 4 EQ 4 ] GOTO21 IF [ #195 LT #13 / 2 ] GOTO21 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N21 IF [ #2 EQ #0 ] GOTO215 IF [ ABS[ #193 ] LT #2 ] GOTO22 IF [ ABS[ #194 ] LT #2 ] GOTO22 #198= 4 N22 IF [ #170 AND 4 EQ 4 ] GOTO215 IF [ ABS[ #193 ] LT #2 ] GOTO215 IF [ ABS[ #194 ] LT #2 ] GOTO215 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (ANGLE OUT OF TOL) N215 IF [ #19 EQ #0 ] GOTO26 G65 P9732 S#19 W1. GOTO26 N23 G01 X#10 Y#12 F#169 IF [ #199 NE 2 ] GOTO24 #3000= 93 (PROBE FAIL) N24 #3000= 92 (PROBE OPEN) N25 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO26 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N26 G00 X#10 Y#12 G103 M99 O09816 (REN EXTERNAL CORNER) G65 P9724 #10= #5041 #12= #5042 IF [ #24 NE #0 ] GOTO1 #3000= 91 (X INPUT MISSING) N1 IF [ #25 NE #0 ] GOTO2 #3000= 91 (Y INPUT MISSING) N2 IF [ #11 EQ #0 ] GOTO3 #3000= 91 (H INPUT NOT ALLOWED) N3 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 #9= [ #24 * 2 ] - #10 #14= [ #25 * 2 ] - #12 IF [ #4 EQ #0 ] GOTO35 #4= ABS[ #4 ] N35 #7= #[ #161 ] IF [ #24 GT #10 ] GOTO4 IF [ #4 EQ #0 ] GOTO36 #4= - #4 N36 #7= - #[ #161 ] N4 IF [ #5 EQ #0 ] GOTO45 #5= ABS[ #5 ] N45 #8= #[ #161 + 1 ] IF [ #25 GT #12 ] GOTO5 IF [ #5 EQ #0 ] GOTO46 #5= - #5 N46 #8= - #[ #161 + 1 ] N5 G31 Y#14 F#169 #199= 1 IF [ ABS[ #5042 - [ #14 ] ] GE #173 ] GOTO23 G65 P9726 X#24 Q#17 S #[ #161 ] (P3) IF [ #199 NE 0 ] GOTO23 #30= #174 (P3X) IF [ #5 EQ #0 ] GOTO6 (NO J) G31 Y [ #14 + #5 ] F#169 #199= 1 IF [ ABS[ #5042 - [ #14 + #5 ] ] GE #173 ] GOTO23 G65 P9726 X#24 Q#17 S #[ #161 ] (P4) IF [ #199 NE 0 ] GOTO23 #31= #174 (P4X) N6 G01 X#10 Y#12 F#169 G31 X#9 F#169 #199= 1 IF [ ABS[ #5041 - [ #9 ] ] GE #173 ] GOTO23 G65 P9726 Y#25 Q#17 S #[ #161 + 1 ] (P1) IF [ #199 NE 0 ] GOTO23 #32= #175 (P1Y) IF [ #4 EQ #0 ] GOTO7 G31 X [ #9 + #4 ] F#169 #199= 1 IF [ ABS[ #5041 - [ #9 + #4 ] ] GE #173 ] GOTO23 G65 P9726 Y#25 Q#17 S #[ #161 + 1 ] (P2) IF [ #199 NE 0 ] GOTO23 #16= #175 (P2Y) N7 G01 X#10 Y#12 F#169 IF [ #4 NE #0 ] GOTO8 IF [ #5 NE #0 ] GOTO8 (NO I OR J) #185= #30 + #7 + #[ #161 + 2 ] (XN) #186= #32 + #8 + #[ #161 + 3 ] (YN) GOTO17 N8 IF [ #4 EQ #0 ] GOTO10 IF [ #5 EQ #0 ] GOTO10 (I J INPUT) G65 P9731 Y [ #16 - #32 ] X [ #4 ] (ATAN) #189= #168 (ANG M1) N9 G65 P9731 Y [ #5 ] X [ #31 - #30 ] (ATAN) #192= #168 (ANG M2) GOTO14 N10 IF [ #5 NE #0 ] GOTO12 (I INPUT ONLY) #5= #4 #31= #30 - [ #16 - #32 ] G65 P9731 Y [ #16 - #32 ] X [ #4 ] (ATAN) #189= #168 (ANG M1) N11 G65 P9731 Y [ - #4 ] X [ #16 - #32 ] (ATAN) #192= #168 (ANG M2) GOTO14 N12 (J INPUT ONLY) #4= #5 #16= #32 - [ #31 - #30 ] G65 P9731 Y [ - [ #31 - #30 ] ] X [ #5 ] (ATAN) #189= #168 (ANG M1) N13 G65 P9731 Y [ #5 ] X [ #31 - #30 ] (ATAN) #192= #168 (ANG M2) N14 #28= #7 / ABS[ COS[ #192 - 90 ] ] (E B R X) #29= #8 / ABS[ COS[ #189 ] ] (E B R Y) #4= #9 + #4 (RE-ASS. P2X) #5= #14 + #5 (RE-ASS. P4Y) #30= #30 + #28 (ADJ EBRX) #31= #31 + #28 (ADJ EBRX) #32= #32 + #29 (ADJ EBRY) #16= #16 + #29 (ADJ EBRY) ( ) #185= [ [ #31 - #30 ] * [ #32 - #14 ] - [ #5 - #14 ] * [ #9 - #30 ] ] #186= [ [ #5 - #14 ] * [ #4 - #9 ] - [ #31 - #30 ] * [ #16 - #32 ] ] #186= #185 / #186 (UA) ( ) #185= #9 + [ #186 * [ #4 - #9 ] ] (X) #186= #32 + [ #186 * [ #16 - #32 ] ] (Y) #185= #185 + #[ #161 + 2 ] (XN) #186= #186 + #[ #161 + 3 ] (YN) N15 #194= #189 (X ANG ERR) IF [ #189 LT 90 ] GOTO16 #194= #189 - 180 N16 IF [ #189 GT - 90 ] GOTO165 #194= #189 + 180 N165 #193= #192 - 90 (Y ANG ERR) IF [ #193 GT - 90 ] GOTO17 #193= #193 + 180 N17 #190= #185 - #24 (X POS ERR) #191= #186 - #25 (Y POS ERR) #195= SQRT[ [ #190 * #190 ] + [ #191 * #191 ] ] (TP ERROR) IF [ #23 EQ #0 ] GOTO18 G65 P9730 X#24 Y#25 M#13 S#19 W#23 N18 #198= 0 IF [ #21 EQ #0 ] GOTO19 IF [ #195 GE #21 ] GOTO25 (UPPER TOL) N19 IF [ #13 EQ #0 ] GOTO21 IF [ #195 LT #13 / 2 ] GOTO20 #198= 1 N20 IF [ #170 AND 4 EQ 4 ] GOTO21 IF [ #195 LT #13 / 2 ] GOTO21 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N21 IF [ #2 EQ #0 ] GOTO215 IF [ ABS[ #193 ] LT #2 ] GOTO22 IF [ ABS[ #194 ] LT #2 ] GOTO22 #198= 4 N22 IF [ #170 AND 4 EQ 4 ] GOTO215 IF [ ABS[ #193 ] LT #2 ] GOTO215 IF [ ABS[ #194 ] LT #2 ] GOTO215 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (ANGLE OUT OF TOL) N215 IF [ #19 EQ #0 ] GOTO26 G65 P9732 S#19 W1. GOTO26 N23 G01 X#10 Y#12 F#169 IF [ #199 NE 2 ] GOTO24 #3000= 93 (PROBE FAIL) N24 #3000= 92 (PROBE OPEN) N25 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO26 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N26 G00 X#10 Y#12 G103 M99 O09817 (REN 4TH AXIS X MEASURE) G65 P9724 IF [ #24 EQ #0 ] GOTO10 IF [ #26 EQ #0 ] GOTO11 IF [ #24 EQ 0 ] GOTO12 N1 #5= 185 WHILE [ #5 LE 199 ] DO1 #[ #5 ]= #0 #5= #5 + 1 END1 #3= 4 (4TH AXIS NUMBER) #4= 1 (1=CW -1=CCW CORRECTION) IF [ #17 NE #0 ] GOTO2 #17= 10 * #179 N2 #10= #5041 (X) #12= #5043 - #166 (Z) G31 X [ #10 + [ #24 / 2 ] ] F#169 #199= 1 IF [ ABS[ #5041 - [ #10 + [ #24 / 2 ] ] ] GE #173 ] GOTO13 G65 P9726 Z#26 Q#17 IF [ #199 NE 0 ] GOTO13 #30= #176 (Z1) G00 X#10 G31 X [ #10 - [ #24 / 2 ] ] F#169 #199= 1 IF [ ABS[ #5041 - [ #10 - [ #24 / 2 ] ] ] GE #173 ] GOTO13 G65 P9726 Z#26 Q#17 IF [ #199 NE 0 ] GOTO13 #31= #176 (Z2) G00 X#10 #29= [ #31 - #30 ] * #4 G65 P9731 Y [ #29 ] X [ #24 ] (ATAN) #16= #168 N3 #189= #16 + #[ 5040 + #3 ] #193= #29 #194= #16 (ANG ERR) IF [ #23 EQ #0 ] GOTO4 G65 P9730 A [ #189 - #16 ] Q#2 W#23 N4 IF [ #2 EQ #0 ] GOTO6 IF [ ABS[ #194 ] LT #2 ] GOTO5 #198= 4 N5 IF [ #170 AND 4 EQ 4 ] GOTO6 IF [ ABS[ #194 ] LT #2 ] GOTO6 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (ANGLE OUT OF TOL) N6 IF [ #19 EQ #0 ] GOTO15 IF [ #19 GE 154 ] GOTO9 IF [ #19 GE 110 ] GOTO8 IF [ #19 NE 0 ] GOTO7 (EXTL) #[ 5200 + #3 ]= #[ 5200 + #3 ] + #16 GOTO15 N7 (W OFF) #[ 5200 + #3 + [ #19 * 20 ] ]= #[ 5020 + #3 ] - #[ 5040 + #3 ] + #16 - #[ 5200 + #3 ] GOTO15 N8 (ADDITIONAL OFFSETS) #30= #19 - 110 #[ 7000 + #3 + [ #30 * 20 ] ]= #[ 5020 + #3 ] - #[ 5040 + #3 ] + #16 - #[ 5200 + #3 ] GOTO15 N9 (G154 P OFFSETS) #30= [ ROUND[ [ #19 - FIX[ #19 ] ] * 100 ] ] - 1 #[ 14000 + #3 + [ #30 * 20 ] ]= #[ 5020 + #3 ] - #[ 5040 + #3 ] + #16 - #[ 5200 + #3 ] GOTO15 N10 #3000= 91 (X INPUT MISSING) N11 #3000= 91 (Z INPUT MISSING) N12 #3000= 91 (X0 INPUT NOT ALLOWED) N13 G00 Z#12 X#10 IF [ #199 EQ 2 ] GOTO14 #3000= 92 (PROBE OPEN) N14 #3000= 93 (PROBE FAIL) N15 #199= 0 G103 M99 O09818 (REN 4TH AXIS Y MEASURE) G65 P9724 IF [ #25 EQ #0 ] GOTO10 IF [ #26 EQ #0 ] GOTO11 IF [ #25 EQ 0 ] GOTO12 N1 #5= 185 WHILE [ #5 LE 199 ] DO1 #[ #5 ]= #0 #5= #5 + 1 END1 #3= 4 (4TH AXIS NUMBER) #4= 1 (1=CW -1=CCW CORRECTION) IF [ #17 NE #0 ] GOTO2 #17= 10 * #179 N2 #10= #5042 (Y) #12= #5043 - #166 (Z) G31 Y [ #10 + [ #25 / 2 ] ] F#169 #199= 1 IF [ ABS[ #5042 - [ #10 + [ #25 / 2 ] ] ] GE #173 ] GOTO13 G65 P9726 Z#26 Q#17 IF [ #199 NE 0 ] GOTO13 #30= #176 (Z1) G00 Y#10 G31 Y [ #10 - [ #25 / 2 ] ] F#169 #199= 1 IF [ ABS[ #5042 - [ #10 - [ #25 / 2 ] ] ] GE #173 ] GOTO13 G65 P9726 Z#26 Q#17 IF [ #199 NE 0 ] GOTO13 #31= #176 (Z2) G00 Y#10 #29= [ #31 - #30 ] * #4 G65 P9731 Y [ #29 ] X [ #25 ] (ATAN) #16= #168 N3 #189= #16 + #[ 5040 + #3 ] #193= #29 #194= #16 (ANG ERR) IF [ #23 EQ #0 ] GOTO4 G65 P9730 A [ #189 - #16 ] Q#2 W#23 N4 IF [ #2 EQ #0 ] GOTO6 IF [ ABS[ #194 ] LT #2 ] GOTO5 #198= 4 N5 IF [ #170 AND 4 EQ 4 ] GOTO6 IF [ ABS[ #194 ] LT #2 ] GOTO6 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (ANGLE OUT OF TOL) N6 IF [ #19 EQ #0 ] GOTO15 IF [ #19 GE 154 ] GOTO9 IF [ #19 GE 110 ] GOTO8 IF [ #19 NE 0 ] GOTO7 (EXTL) #[ 5200 + #3 ]= #[ 5200 + #3 ] + #16 GOTO15 N7 (W OFF) #[ 5200 + #3 + [ #19 * 20 ] ]= #[ 5020 + #3 ] - #[ 5040 + #3 ] + #16 - #[ 5200 + #3 ] GOTO15 N8 (ADDITIONAL OFFSETS) #30= #19 - 110 #[ 7000 + #3 + [ #30 * 20 ] ]= #[ 5020 + #3 ] - #[ 5040 + #3 ] + #16 - #[ 5200 + #3 ] GOTO15 N9 (G154 P OFFSETS) #30= [ ROUND[ [ #19 - FIX[ #19 ] ] * 100 ] ] - 1 #[ 14000 + #3 + [ #30 * 20 ] ]= #[ 5020 + #3 ] - #[ 5040 + #3 ] + #16 - #[ 5200 + #3 ] GOTO15 N10 #3000= 91 (Y INPUT MISSING) N11 #3000= 91 (Z INPUT MISSING) N12 #3000= 91 (Y0 INPUT NOT ALLOWED) N13 G00 Z#12 Y#10 IF [ #199 EQ 2 ] GOTO14 #3000= 92 (PROBE OPEN) N14 #3000= 93 (PROBE FAIL) N15 #199= 0 G103 M99 O09819 (REN PCD BORE BOSS) (40120884.0C HAAS) G65 P9724 IF [ #2 NE #0 ] GOTO1 #2= 1 N1 IF [ #3 NE #0 ] GOTO2 #3000= 91 (C INPUT MISSING) N2 IF [ #7 NE #0 ] GOTO3 #3000= 91 (D INPUT MISSING) N3 IF [ #6 EQ #0 ] GOTO4 IF [ #26 EQ #0 ] GOTO4 #3000= 91 (ZK INPUT MIXED) N4 #10= #5041 (X START) #12= #5042 (Y START) #14= #5043 - #166 #30= 0 (COUNTER) N45 #4= 360 / #2 (ANG FROM 1ST HOLE) #5= [ #4 * #30 ] + #1 (ABS ANG) IF [ #5 LE 180 ] GOTO5 #5= #5 - 360 N5 #24= #3 / 2 * COS[ #5 ] (INC X) #25= #3 / 2 * SIN[ #5 ] (INC Y) N6 G31 X [ #10 + #24 ] Y [ #12 + #25 ] F#169 #199= 1 IF [ ABS[ #5041 - [ #10 + #24 ] ] GE #173 ] GOTO16 IF [ ABS[ #5042 - [ #12 + #25 ] ] GE #173 ] GOTO16 IF [ #6 EQ #0 ] GOTO7 G31 Z#6 F [ #169 * 0.6 ] #199= 1 IF [ ABS[ [ #5043 - #166 ] - [ #6 + #26 ] ] GE #173 ] GOTO16 N7 G65 P9814 D#7 Z#26 Q#17 R#18 IF [ #16 GE #198 ] GOTO8 #16= #198 N8 G00 Z#14 #30= #30 + 1 #197= #30 (HOLE NO) #27= #185 - #10 #28= #186 - #12 #187= 2 * [ SQRT[ [ #28 * #28 ] + [ #27 * #27 ] ] ] (PCD) G65 P9731 Y [ #28 ] X [ #27 ] (ATAN) #189= #168 #194= #189 - #5 N9 #192= #187 - #3 IF [ #23 EQ #0 ] GOTO10 G65 P9730 I#24 J#25 A#5 R#3 D#7 H#11 M#13 W#23 X [ #10 + #24 ] Y [ #12 + #25 ] E2. #23= 1 N10 IF [ #21 EQ #0 ] GOTO11 (U UPPER TOL) IF [ ABS[ #193 ] GE #21 ] GOTO17 IF [ #195 GE #21 ] GOTO17 N11 IF [ #11 EQ #0 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO12 #198= 1 N12 IF [ #170 AND 4 EQ 4 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO13 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N13 IF [ #13 EQ #0 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO14 #198= 2 N14 IF [ #170 AND 4 EQ 4 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO15 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF POSITION) N15 IF [ #16 GE #198 ] GOTO155 #16= #198 N155 IF [ #30 LT #2 ] GOTO45 #198= #16 G00 Z#14 G31 X#10 Y#12 F#169 #199= 1 IF [ ABS[ #5041 - [ #10 ] ] GE #173 ] GOTO16 IF [ ABS[ #5042 - [ #12 ] ] GE #173 ] GOTO16 GOTO18 N16 #3000= 86 (PATH OBSTRUCTED) N17 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO18 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N18 G103 M99 O09820 (REN STOCK ALLOWANCE) G65 P9724 IF [ #20 EQ #0 ] GOTO1 #3000= 91 (IJK INPUTS 5 MAX) N1 #1= 185 WHILE [ #1 LE 199 ] DO1 #[ #1 ]= #0 #1= #1 + 1 END1 N10 #29= 0 IF [ #26 EQ #0 ] GOTO20 (Z MEAS) #1= #5041 #2= #5042 #32= #5043 - #166 #30= -1 IF [ #32 LT #26 ] GOTO11 #30= 1 N11 G31 X#1 Y#2 F#169 #199= 1 IF [ #5041 - [ #1 ] GE #173 ] GOTO70 IF [ #5042 - [ #2 ] GE #173 ] GOTO70 G65 P9726 Z#26 IF [ #199 NE 0 ] GOTO70 #3= [ #176 - #166 - #26 ] * #30 (ERROR) IF [ #29 NE 0 ] GOTO12 #194= #3 #195= #3 GOTO15 N12 IF [ #3 GT #194 ] GOTO13 IF [ #3 LT #195 ] GOTO14 GOTO15 N13 #194= #3 (STORE MAX) GOTO15 N14 #195= #3 (STORE MIN) N15 #1= #[ 4 + #29 ] #2= #[ 5 + #29 ] #29= #29 + 3 #192= #195 * #30 IF [ #1 EQ #0 ] GOTO40 IF [ #2 EQ #0 ] GOTO40 IF [ #29 LT 16 ] GOTO11 GOTO40 N20 IF [ #24 EQ #0 ] GOTO30 (X MEAS) #1= #5042 #2= #5043 - #166 #32= #5041 #30= -1 IF [ #32 LT #24 ] GOTO21 #30= 1 N21 G31 Y#1 Z#2 F#169 #199= 1 IF [ #5043 - #166 - [ #2 ] GE #173 ] GOTO70 IF [ #5042 - [ #1 ] GE #173 ] GOTO70 G65 P9726 X#24 S #[ #161 ] IF [ #199 NE 0 ] GOTO70 #3= #174 + #[ #161 + 2 ] - [ #[ #161 ] * #30 ] #3= [ #3 - #24 ] * #30 (ERR) IF [ #29 NE 0 ] GOTO22 #194= #3 #195= #3 GOTO25 N22 IF [ #3 GT #194 ] GOTO23 IF [ #3 LT #195 ] GOTO24 GOTO25 N23 #194= #3 (STORE MAX) GOTO25 N24 #195= #3 (STORE MIN) N25 #1= #[ 5 + #29 ] #2= #[ 6 + #29 ] #29= #29 + 3 #190= #195 * #30 IF [ #1 EQ #0 ] GOTO40 IF [ #2 EQ #0 ] GOTO40 IF [ #29 LT 16 ] GOTO21 GOTO40 N30 IF [ #25 EQ #0 ] GOTO72 (Y MEASURE) #1= #5041 #2= #5043 - #166 #32= #5042 #30= -1 IF [ #32 LT #25 ] GOTO31 #30= 1 N31 G31 X#1 Z#2 F#169 #199= 1 IF [ #5043 - #166 - [ #2 ] GE #173 ] GOTO70 IF [ #5041 - [ #1 ] GE #173 ] GOTO70 #199= 0 G65 P9726 Y#25 S #[ #161 + 1 ] IF [ #199 NE 0 ] GOTO70 #3= #175 + #[ #161 + 3 ] - [ #[ #161 + 1 ] * #30 ] #3= [ #3 - #25 ] * #30 (ERR) IF [ #29 NE 0 ] GOTO32 #194= #3 #195= #3 GOTO35 N32 IF [ #3 GT #194 ] GOTO33 IF [ #3 LT #195 ] GOTO34 GOTO35 N33 #194= #3 (STORE MAX) GOTO35 N34 #195= #3 (STORE MIN) N35 #1= #[ 4 + #29 ] #2= #[ 6 + #29 ] #29= #29 + 3 #191= #195 * #30 IF [ #1 EQ #0 ] GOTO40 IF [ #2 EQ #0 ] GOTO40 IF [ #29 LT 16 ] GOTO31 N40 (TOL CHECK) #196= ABS[ #195 - #194 ] IF [ #21 EQ #0 ] GOTO60 IF [ #19 EQ #0 ] GOTO50 N41 (U AND S) IF [ #196 LT #21 ] GOTO42 #198= 6 N42 IF [ #170 AND 4 EQ 4 ] GOTO60 IF [ #196 LT #21 ] GOTO60 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (EXCESS STOCK) GOTO80 N50 (U ONLY) IF [ #194 GT #21 ] GOTO51 IF [ #195 LT 0 ] GOTO51 GOTO52 N51 #198= 3 N52 IF [ #170 AND 4 EQ 4 ] GOTO60 IF [ #194 GT #21 ] GOTO53 IF [ #195 LT 0 ] GOTO53 GOTO60 N53 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) GOTO80 N60 IF [ #19 EQ #0 ] GOTO80 G65 P9732 S#19 Z#26 W1. GOTO80 N70 IF [ #199 NE 2 ] GOTO71 #3000= 93 (PROBE FAIL) N71 #3000= 92 (PROBE OPEN) N72 #3000= 91 (XYZ INPUT MISSING) N80 #190= #0 #191= #0 #192= #0 G103 M99 O09821 (REN ANG XY SINGLE SURFACE) G65 P9724 #198= 0 #199= 0 #3= #5043 - #166 #5= #5041 #6= #5042 IF [ #1 NE #0 ] GOTO1 #3000= 91 (A INPUT MISSING) N1 IF [ #7 NE #0 ] GOTO2 #3000= 91 (D INPUT MISSING) N2 IF [ #19 EQ #0 ] GOTO3 IF [ #11 EQ #0 ] GOTO3 #3000= 91 (SH INPUT MIXED) N3 IF [ #20 EQ #0 ] GOTO4 IF [ #13 EQ #0 ] GOTO4 #3000= 91 (TM INPUT MIXED) N4 IF [ #19 EQ #0 ] GOTO45 IF [ #20 EQ #0 ] GOTO45 #3000= 91 (ST INPUT MIXED) N45 #14= 185 WHILE [ #14 LE 199 ] DO1 #[ #14 ]= #0 #14= #14 + 1 END1 G31 X [ #5 - #[ #161 + 2 ] ] Y [ #6 - # [ #161 + 3 ] ] F#169 IF [ ABS[ #5041 - [ #5 - #[ #161 + 2 ] ] ] GE #173 ] GOTO22 IF [ ABS[ #5042 - [ #6 - #[ #161 + 3 ] ] ] GE #173 ] GOTO22 #198= 0 N8 #28= #1 G65 P9731 A#28 (#[#161+9] LOAD) #30= -1 G65 P9726 A#28 Q#17 D [ #7 * 2 ] S #[ #161 + 9 ] IF [ #199 NE 0 ] GOTO21 #185= #174 + [ #[ #161 + 9 ] * COS[ #28 ] ] + #[ #161 + 2 ] (COR X SKIP POS) #185= [ ROUND[ #185 * 10000 ] ] / 10000 #186= #175 + [ #[ #161 + 9 ] * SIN[ #28 ] ] + #[ #161 + 3 ] (COR Y SKIP POS) #186= [ ROUND[ #186 * 10000 ] ] / 10000 #188= SQRT[ [ #185 - #5 ] * [ #185 - #5 ] + [ #186 - #6 ] * [ #186 - #6 ] ] (SIZE) IF [ #8 EQ #0 ] GOTO9 #188= #188 + #[ 2000 + #8 ] (SIZE COR) N9 #190= #185 - #5 - [ #7 * COS[ #28 ] ] (X ERROR) #191= #186 - #6 - [ #7 * SIN[ #28 ] ] (Y ERROR) #193= #188 - #7 (SIZE ERROR) #195= SQRT[ [ #190 * #190 ] + [ #191 * #191 ] ] (TP ERROR) #196= #193 * #30 (METAL CON) #197= #30 IF [ #23 EQ #0 ] GOTO10 (PRINT) G65 P9730 D#7 H#11 M#13 S#19 T#20 W#23 X#5 Y#6 N10 IF [ #21 EQ #0 ] GOTO11 (U UPPER TOL) IF [ ABS[ #193 ] GE #21 ] GOTO23 IF [ #195 GE #21 ] GOTO23 N11 IF [ #11 EQ #0 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO12 #198= 1 N12 IF [ #170 AND 4 EQ 4 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO13 G01 X#5 Y#6 F#169 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N13 IF [ #13 EQ #0 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO14 #198= 2 N14 IF [ #170 AND 4 EQ 4 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO15 G01 X#5 Y#6 F#169 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF POSITION) N15 IF [ #20 EQ #0 ] GOTO19 IF [ ABS[ #196 ] LT #22 ] GOTO19 (NULL BAND) IF [ #9 NE #0 ] GOTO16 #9= 1 N16 G65 P9732 T#20 C [ #196 * #9 ] N19 IF [ #19 EQ #0 ] GOTO24 G65 P9732 S#19 W1. GOTO24 N21 G01 X#5 Y#6 F#169 IF [ #199 NE 2 ] GOTO22 #3000= 93 (PROBE FAIL) N22 #3000= 92 (PROBE OPEN) N23 G01 X#5 Y#6 F#169 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO24 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N24 G01 X#5 Y#6 F#169 G103 M99 O09822 (REN ANG WEB POCKET) G65 P9724 #3= #5043 - #166 #5= #5041 #6= #5042 IF [ #1 NE #0 ] GOTO1 #3000= 91 (A INPUT MISSING) N1 IF [ #7 NE #0 ] GOTO2 #3000= 91 (D INPUT MISSING) N2 #14= 185 WHILE [ #14 LE 199 ] DO1 #[ #14 ]= #0 #14= #14 + 1 END1 G31 X [ #5 - #[ #161 + 2 ] ] Y [ #6 - # [ #161 + 3 ] ] F#169 IF [ ABS[ #5041 - [ #5 - #[ #161 + 2 ] ] ] GE #173 ] GOTO22 IF [ ABS[ #5042 - [ #6 - #[ #161 + 3 ] ] ] GE #173 ] GOTO22 IF [ #1 LT 90 ] GOTO7 #28= #1 - 90 #31= #28 - 180 #29= 180 GOTO8 N7 #28= #1 + 90 #31= #28 + 180 #29= -180 N8 IF [ #18 LT 0 ] GOTO83 IF [ #26 EQ #0 ] GOTO83 (WEB CASE) #28= #28 + #29 #31= #31 + #29 N83 G65 P9731 A [ #28 ] (#[#161+9] LOAD) #32= #[ #161 + 9 ] G65 P9731 A [ #31 ] (#[#161+9] LOAD) #27= #[ #161 + 9 ] #30= -1 IF [ #26 EQ #0 ] GOTO9 IF [ #18 NE #0 ] GOTO85 #18= 5 * #179 N85 IF [ #18 LT 0 ] GOTO9 #30= 1 N9 G65 P9727 A [ #28 ] Q#17 D#7 Z#26 R#18 S #[ #161 + 9 ] IF [ #199 NE 0 ] GOTO21 #32= #32 * [ - #30 ] #190= #174 + #[ #161 + 2 ] + [ #32 * COS[ #28 ] ] (X COR SKIPS) #190= [ ROUND[ #190 * 10000 ] ] / 10000 #191= #175 + #[ #161 + 3 ] + [ #32 * SIN[ #28 ] ] (Y COR SKIPS) #191= [ ROUND[ #191 * 10000 ] ] / 10000 G65 P9727 A [ #31 ] Q#17 D#7 Z#26 R#18 S #[ #161 + 9 ] IF [ #199 NE 0 ] GOTO21 #27= #27 * [ - #30 ] #174= #174 + #[ #161 + 2 ] + [ #27 * COS[ #31 ] ] (X COR SKIPS) #174= [ ROUND[ #174 * 10000 ] ] / 10000 #175= #175 + #[ #161 + 3 ] + [ #27 * SIN[ #31 ] ] (Y COR SKIPS) #175= [ ROUND[ #175 * 10000 ] ] / 10000 #12= #190 - #174 #16= #191 - #175 #185= [ #190 + #174 ] / 2 (X POS) #186= [ #191 + #175 ] / 2 (Y POS) #188= [ SQRT[ [ #12 * #12 ] + [ #16 * #16 ] ] ] IF [ #8 EQ #0 ] GOTO95 #188= #188 + #[ 2000 + #8 ] (ACT SIZE) N95 #190= #185 - #5 (X ERROR) #191= #186 - #6 (Y ERROR) #193= #188 - #7 (SIZE ERROR) #195= SQRT[ [ #190 * #190 ] + [ #191 * #191 ] ] (TP ERROR) #196= #193 * #30 / 2 (METAL COND) IF [ #23 EQ #0 ] GOTO10 (PRINT) G65 P9730 D#7 H#11 M#13 S#19 T#20 W#23 X#5 Y#6 E2. N10 IF [ #21 EQ #0 ] GOTO11 (U UPPER TOL) IF [ ABS[ #193 ] GE #21 ] GOTO23 IF [ #195 GE #21 ] GOTO23 N11 IF [ #11 EQ #0 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO12 #198= 1 N12 IF [ #170 AND 4 EQ 4 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO13 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N13 IF [ #13 EQ #0 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO14 #198= 2 N14 IF [ #170 AND 4 EQ 4 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO15 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF POSITION) N15 IF [ #20 EQ #0 ] GOTO19 IF [ ABS[ #196 ] LT #22 ] GOTO19 (NULL BAND) IF [ #9 NE #0 ] GOTO16 #9= 1 N16 G65 P9732 T#20 C [ #196 * #9 ] IF [ #26 NE #0 ] GOTO19 IF [ #168 LT #7 / 2 ] GOTO18 #198= 5 N18 IF [ #170 AND 4 EQ 4 ] GOTO19 IF [ #168 LT #7 / 2 ] GOTO19 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (DIA OFFSET TOO LARGE) N19 IF [ #19 EQ #0 ] GOTO24 (S W OFFSET) G65 P9732 S#19 W1. GOTO24 N21 G01 X#5 Y#6 F#169 IF [ #199 NE 2 ] GOTO22 #3000= 93 (PROBE FAIL) N22 #3000= 92 (PROBE OPEN) N23 G01 X#5 Y#6 F#169 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO24 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N24 G01 X#5 Y#6 F#169 G103 M99 O09823 (REN 3-POINT BORE BOSS) G65 P9724 #31= #5041 (X START) #32= #5042 (Y START) IF [ #1 NE #0 ] GOTO1 #3000= 91 (A INPUT MISSING) N1 IF [ #2 NE #0 ] GOTO2 #3000= 91 (B INPUT MISSING) N2 IF [ #3 NE #0 ] GOTO3 #3000= 91 (C INPUT MISSING) N3 IF [ #7 NE #0 ] GOTO4 #3000= 91 (D INPUT MISSING) N4 #4= 185 WHILE [ #4 LE 199 ] DO1 #[ #4 ]= #0 #4= #4 + 1 END1 #30= -1 IF [ #26 EQ #0 ] GOTO5 IF [ #18 NE #0 ] GOTO45 #18= 5 * #179 N45 IF [ #18 LT 0 ] GOTO5 #30= 1 N5 #10= 0 N55 G65 P9727 A [ #[ 1 + #10 ] ] Q#17 D#7 R#18 Z#26 S #[ #161 ] IF [ #199 NE 0 ] GOTO21 #[ 27 + #10 ]= #174 + #[ #161 + 2 ] - #31 (SKIP+XOFF) #[ 4 + #10 ]= #175 + #[ #161 + 3 ] - #32 (SKIP+YOFF) #10= #10 + 1 IF [ #10 LT 3 ] GOTO55 #12= - [ [ #27 * #27 ] + [ #4 * #4 ] ] #24= - [ [ #28 * #28 ] + [ #5 * #5 ] ] #25= - [ [ #29 * #29 ] + [ #6 * #6 ] ] #185= #12 * [ #5 - #6 ] + #24 * [ #6 - #4 ] - #25 * [ #5 - #4 ] #185= #185 / [ #27 * [ #5 - #6 ] - #28 * [ #4 - #6 ] + #29 * [ #4 - #5 ] ] #185= -0.5 * #185 #186= #12 * [ #29 - #28 ] + #24 * [ #27 - #29 ] - #25 * [ #27 - #28 ] #186= #186 / [ #27 * [ #5 - #6 ] - #28 * [ #4 - #6 ] + #29 * [ #4 - #5 ] ] #186= -0.5 * #186 #10= 0 WHILE [ #10 LT 3 ] DO1 #24= #[ 27 + #10 ] - #185 #25= #[ 4 + #10 ] - #186 G65 P9731 Y [ - #25 * #30 ] X [ - #24 * #30 ] (ATAN) G65 P9731 A [ #168 ] (ATAN) #24= #[ #161 + 9 ] * COS[ #168 ] #[ 27 + #10 ]= #[ 27 + #10 ] + #24 #25= #[ #161 + 9 ] * SIN[ #168 ] #[ 4 + #10 ]= #[ 4 + #10 ] + #25 #10= #10 + 1 END1 #12= - [ [ #27 * #27 ] + [ #4 * #4 ] ] #24= - [ [ #28 * #28 ] + [ #5 * #5 ] ] #25= - [ [ #29 * #29 ] + [ #6 * #6 ] ] #185= #12 * [ #5 - #6 ] + #24 * [ #6 - #4 ] - #25 * [ #5 - #4 ] #185= #185 / [ #27 * [ #5 - #6 ] - #28 * [ #4 - #6 ] + #29 * [ #4 - #5 ] ] #185= -0.5 * #185 #186= #12 * [ #29 - #28 ] + #24 * [ #27 - #29 ] - #25 * [ #27 - #28 ] #186= #186 / [ #27 * [ #5 - #6 ] - #28 * [ #4 - #6 ] + #29 * [ #4 - #5 ] ] #186= -0.5 * #186 #15= [ #27 - #185 ] * [ #27 - #185 ] #16= [ #4 - #186 ] * [ #4 - #186 ] #188= SQRT[ #15 + #16 ] #185= #185 + #31 (X POS) #186= #186 + #32 (Y POS) #188= #188 * 2 (RAD*2) #190= #185 - #31 (X ERROR) #191= #186 - #32 (Y ERROR) IF [ #8 EQ #0 ] GOTO8 #188= #188 + #[ 2000 + #8 ] (ACT SIZE COR) N8 #193= #188 - #7 (SIZE ERROR) #195= SQRT[ [ #190 * #190 ] + [ #191 * #191 ] ] (TP ERROR) #196= #193 * #30 / 2 (METAL CON) N9 IF [ #23 EQ #0 ] GOTO10 (PRINT) G65 P9730 D#7 H#11 M#13 S#19 T#20 W#23 X#31 Y#32 E2. N10 IF [ #21 EQ #0 ] GOTO11 (U UPPER TOL) IF [ ABS[ #193 ] GE #21 ] GOTO23 IF [ #195 GE #21 ] GOTO23 N11 IF [ #11 EQ #0 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO12 #198= 1 N12 IF [ #170 AND 4 EQ 4 ] GOTO13 IF [ ABS[ #193 ] LT #11 ] GOTO13 G01 X#31 Y#32 F#169 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N13 IF [ #13 EQ #0 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO14 #198= 2 N14 IF [ #170 AND 4 EQ 4 ] GOTO15 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO15 G01 X#31 Y#32 F#169 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF POSITION) N15 IF [ #20 EQ #0 ] GOTO19 IF [ ABS[ #196 ] LT #22 ] GOTO19 (NULL BAND) IF [ #9 NE #0 ] GOTO16 #9= 1 N16 G65 P9732 T#20 C [ #196 * #9 ] IF [ #26 NE #0 ] GOTO19 IF [ #168 LT #7 / 2 ] GOTO18 #198= 5 N18 IF [ #170 AND 4 EQ 4 ] GOTO19 IF [ #168 LT #7 / 2 ] GOTO19 G01 X#31 Y#32 F#169 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (DIA OFFSET TOO LARGE) N19 IF [ #19 EQ #0 ] GOTO24 G65 P9732 S#19 W1. GOTO24 N21 IF [ #199 NE 2 ] GOTO22 G01 X#31 Y#32 F#169 #3000= 93 (PROBE FAIL) N22 G01 X#31 Y#32 F#169 #3000= 92 (PROBE OPEN) N23 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO24 G01 X#31 Y#32 F#169 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N24 G01 X#31 Y#32 F#169 G103 M99 O09830 (REN MULTI-STYLUS STORE) G65 P9724 IF [ #6 NE #0 ] GOTO1 #3000= 91 (K INPUT MISSING) N1 IF [ #6 GT 12 ] GOTO2 #1= 3 WHILE [ #1 LT 11 ] DO1 IF [ #1 EQ #6 ] GOTO2 #1= #1 + 1 END1 GOTO3 N2 #3000= 91 (K INPUT OUT OF RANGE) N3 IF [ #6 GE 11 ] GOTO4 #1= 0 WHILE [ #1 LT 4 ] DO1 #[ #161 + 14 + [ #6 * 4 ] + #1 ]= #[ #161 + #1 ] #1= #1 + 1 END1 GOTO5 N4 (K11 K12) #1= 0 WHILE [ #1 LT 4 ] DO1 #[ #161 + 14 + [ [ #6 - 10 ] * 4 ] + #1 ]= #[ #161 + #1 ] #1= #1 + 1 END1 #1= 0 WHILE [ #1 LT 8 ] DO1 #[ #161 + 18 + [ [ #6 - 10 ] * 8 ] + #1 ]= #[ #161 + 10 + #1 ] #1= #1 + 1 END1 N5 M99 O09831 (REN MULTI-STYLUS LOAD) G65 P9724 IF [ #6 NE #0 ] GOTO1 #3000= 91 (K INPUT MISSING) N1 IF [ #6 GT 12 ] GOTO2 #1= 3 WHILE [ #1 LT 11 ] DO1 IF [ #1 EQ #6 ] GOTO2 #1= #1 + 1 END1 GOTO3 N2 #3000= 91 (K INPUT OUT OF RANGE) N3 IF [ #6 GE 11 ] GOTO4 #1= 0 WHILE [ #1 LT 4 ] DO1 #[ #161 + #1 ]= #[ #161 + 14 + [ #6 * 4 ] + #1 ] #1= #1 + 1 END1 GOTO5 N4 (K11 K12) #1= 0 WHILE [ #1 LT 4 ] DO1 #[ #161 + #1 ]= #[ #161 + 14 + [ [ #6 - 10 ] * 4 ] + #1 ] #1= #1 + 1 END1 #1= 0 WHILE [ #1 LT 8 ] DO1 #[ #161 + 10 + #1 ]= #[ #161 + 18 + [ [ #6 - 10 ] * 8 ] + #1 ] #1= #1 + 1 END1 N5 M99 O09832 (REN M-CODE ON) G65 P9724 #198= 0 #199= 0 #2= #5043 - #166 #4= 0 #3= #2 - [ 0.10 * #179 ] IF [ #4113 EQ 19 ] GOTO2 M19 N2 G04 P100 G31 Z#3 F [ 100 * #179 ] IF [ ABS[ #5043 - #166 - #3 ] LT #173 ] GOTO5 G00 Z#2 IF [ #4 EQ 4 ] GOTO4 IF [ #4 EQ 0 ] GOTO3 #3001= 0 WHILE [ #3001 LT 9000 ] DO1 END1 N3 M63 G04 P200 M53 (* M CODE TO SWITCH ON PROBE) G04 P200 M63 #3001= 0 WHILE [ #3001 LT 1000 ] DO1 END1 #4= #4 + 1 GOTO2 N4 #3000= 101 (PROBE START UP FAILURE) N5 G00 Z#2 G103 M99 O09833 (REN M-CODE OFF) G65 P9724 #198= 0 #199= 0 #2= #5043 - #166 #4= 0 #3= #2 - [ 0.10 * #179 ] N2 G04 P100 G31 Z#3 F [ 100 * #179 ] IF [ ABS[ #5043 - #166 - #3 ] GT #173 ] GOTO5 G00 Z#2 IF [ #4 EQ 4 ] GOTO4 IF [ #4 EQ 0 ] GOTO3 #3001= 0 WHILE [ #3001 LT 9000 ] DO1 END1 N3 M63 G04 P200 M53 (* M CODE TO SWITCH ON PROBE) G04 P200 M63 (REPLACE WITH REQUIRED M-CODE) #3001= 0 WHILE [ #3001 LT 1000 ] DO1 END1 #4= #4 + 1 GOTO2 N4 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (PROBE SWITCH OFF FAILURE) N5 G00 Z#2 G103 M99 O09834 (REN FEATURE TO FEATURE) G103 P1 (NO INPUT) IF [ #1 NE #0 ] GOTO1 IF [ #7 NE #0 ] GOTO1 IF [ #24 NE #0 ] GOTO1 IF [ #25 NE #0 ] GOTO1 IF [ #26 NE #0 ] GOTO1 #31= 185 (LOAD CLEAR) WHILE [ #31 LE 189 ] DO1 #[ #31 - 5 ]= #[ #31 ] #[ #31 ]= #0 #[ #31 + 5 ]= #0 #31= #31 + 1 END1 #196= #0 #197= #0 GOTO40 N1 IF [ #19 EQ #0 ] GOTO2 IF [ #20 EQ #0 ] GOTO2 #3000= 91 (ST INPUT MIXED) N2 IF [ #20 EQ #0 ] GOTO3 IF [ #13 EQ #0 ] GOTO3 #3000= 91 (TM INPUT MIXED) N3 IF [ #19 EQ #0 ] GOTO4 IF [ #11 EQ #0 ] GOTO4 #3000= 91 (SH INPUT MIXED) N4 IF [ #197 NE #0 ] GOTO5 IF [ #20 EQ #0 ] GOTO5 #3000= 91 (T INPUT NOT ALLOWED) N5 IF [ #26 NE #0 ] GOTO14 (XY PLANE) IF [ #1 EQ #0 ] GOTO6 IF [ #7 EQ #0 ] GOTO6 (A D INPUT) IF [ #24 NE #0 ] GOTO32 IF [ #25 NE #0 ] GOTO32 IF [ #20 NE #0 ] GOTO38 IF [ #185 EQ #0 ] GOTO34 IF [ #186 EQ #0 ] GOTO34 IF [ #180 EQ #0 ] GOTO34 IF [ #181 EQ #0 ] GOTO34 #24= #7 * COS[ #1 ] #25= #7 * SIN[ #1 ] GOTO11 N6 (X Y INPUT) IF [ #1 NE #0 ] GOTO32 IF [ #7 NE #0 ] GOTO32 (X ONLY) IF [ #25 NE #0 ] GOTO8 IF [ #185 EQ #0 ] GOTO34 IF [ #180 EQ #0 ] GOTO34 #185= #185 - #180 (INC X) #186= 0 #188= #185 IF [ #8 EQ #0 ] GOTO7 #188= #188 + #[ 2000 + #8 ] (MIN DIST) N7 #189= #0 #190= #185 - #24 (X ERR) #191= 0 #193= #188 - #24 GOTO13 N8 (Y ONLY) IF [ #24 NE #0 ] GOTO10 IF [ #186 EQ #0 ] GOTO34 IF [ #181 EQ #0 ] GOTO34 #185= 0 #186= #186 - #181 (INC Y) #188= #186 IF [ #8 EQ #0 ] GOTO9 #188= #188 + #[ 2000 + #8 ] (MIN DIST) N9 #189= #0 #190= 0 #191= #186 - #25 (Y ERR) #193= #188 - #25 GOTO13 N10 (XY INPUT) IF [ #20 NE #0 ] GOTO38 IF [ #185 EQ #0 ] GOTO34 IF [ #186 EQ #0 ] GOTO34 IF [ #180 EQ #0 ] GOTO34 IF [ #181 EQ #0 ] GOTO34 G65 P9731 Y [ #25 ] X [ #24 ] (ATAN) #1= #168 #7= SQRT[ [ #24 * #24 ] + [ #25 * #25 ] ] N11 #185= #185 - #180 (INC X) #186= #186 - #181 (INC Y) #188= [ SQRT[ [ #186 * #186 ] + [ #185 * #185 ] ] ] IF [ #8 EQ #0 ] GOTO12 #188= #188 + #[ 2000 + #8 ] (MIN DIST) N12 G65 P9731 Y [ #186 ] X [ #185 ] (ATAN) #189= #168 #190= #185 - #24 (X ERR) #191= #186 - #25 (Y ERR) #193= #188 - #7 (MIN DIST ERR) #194= #189 - #1 (ANG ERR) N13 #187= #0 #192= #0 #195= SQRT[ [ #190 * #190 ] + [ #191 * #191 ] ] (TP ERR) #196= #0 IF [ #197 EQ #0 ] GOTO19 #196= [ #193 ] * #197 (METAL CON) GOTO19 N14 (Z PLANE) IF [ #24 NE #0 ] GOTO33 IF [ #25 NE #0 ] GOTO33 IF [ #187 EQ #0 ] GOTO34 IF [ #182 EQ #0 ] GOTO34 IF [ #1 NE #0 ] GOTO17 IF [ #7 NE #0 ] GOTO16 (Z INPUT ONLY) #185= #0 #186= #0 #187= #187 - #182 (INC Z) #188= #187 IF [ #8 EQ #0 ] GOTO15 #188= #188 + #[ 2000 + #8 ] (COR SIZE) N15 #189= #0 #190= #0 #191= #0 #192= #187 - #26 (Z ERR) #193= #188 - #26 (SIZE ERR) #194= #0 #195= ABS[ #192 ] (TP ERR) #196= #0 #7= #0 IF [ #197 EQ #0 ] GOTO19 #196= #192 * #197 (METAL CON) GOTO19 N16 (DZ) IF [ #11 NE #0 ] GOTO35 IF [ #13 NE #0 ] GOTO36 IF [ #19 NE #0 ] GOTO37 IF [ #20 NE #0 ] GOTO38 G65 P9731 Y [ #26 ] X [ #7 ] (ATAN) #1= #168 GOTO18 N17 (AZ) #7= #26 / TAN[ #1 ] N18 #185= #0 #186= #0 #187= #187 - #182 (INC Z) #188= #0 G65 P9731 Y [ #187 ] X [ #7 ] (ATAN) #189= #168 #190= #0 #191= #0 #192= #187 - #26 (Z ERR) #193= #0 #194= #189 - #1 (ANG ERR) #195= #0 #196= #0 #7= #0 #24= #0 #25= #0 #26= #0 N19 IF [ #23 EQ #0 ] GOTO20 G65 P9730 A#1 D#7 H#11 M#13 Q#2 S#19 T#20 W#23 X#24 Y#25 Z#26 N20 IF [ #21 EQ #0 ] GOTO21 (U UPPER TOL) IF [ ABS[ #195 ] GE #21 ] GOTO39 IF [ ABS[ #193 ] GE #21 ] GOTO39 N21 IF [ #11 EQ #0 ] GOTO25 IF [ ABS[ #192 ] GE #11 ] GOTO22 IF [ ABS[ #193 ] LT #11 ] GOTO23 N22 #198= 1 N23 IF [ #170 AND 4 EQ 4 ] GOTO25 IF [ ABS[ #192 ] GE #11 ] GOTO24 IF [ ABS[ #193 ] LT #11 ] GOTO25 N24 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) N25 IF [ #13 EQ #0 ] GOTO27 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO26 #198= 2 N26 IF [ #170 AND 4 EQ 4 ] GOTO27 IF [ ABS[ #195 ] LT #13 / 2 ] GOTO27 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF POSITION) N27 IF [ #2 EQ #0 ] GOTO29 IF [ ABS[ #194 ] LT #2 ] GOTO28 #198= 4 N28 IF [ #170 AND 4 EQ 4 ] GOTO29 IF [ ABS[ #194 ] LT #2 ] GOTO29 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (ANGLE OUT OF TOL) N29 IF [ #20 EQ #0 ] GOTO31 IF [ #195 LT #22 ] GOTO31 IF [ #9 NE #0 ] GOTO30 #9= 1 N30 G65 P9732 T#20 Z#26 C [ #196 * #9 ] N31 IF [ #19 EQ #0 ] GOTO40 G65 P9732 S#19 Z#26 W1. GOTO40 N32 #3000= 91 (FORMAT ERROR) N33 #3000= 91 (XYZ INPUT MIXED) N34 #3000= 91 (DATA #180-#189 MISSING) N35 #3000= 91 (H INPUT NOT ALLOWED) N36 #3000= 91 (M INPUT NOT ALLOWED) N37 #3000= 91 (S INPUT NOT ALLOWED) N38 #3000= 91 (T INPUT NOT ALLOWED) N39 #198= 3 IF [ #170 AND 4 EQ 4 ] GOTO40 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (UPPER TOL EXCEEDED) N40 G103 M99 O09835 (SPC OFFSET UPDATE) IF [ #13 NE #0 ] GOTO1 #3000= 91 (M INPUT MISSING) N1 IF [ #20 NE #0 ] GOTO2 #3000= 91 (T INPUT MISSING) N2 IF [ #3 NE #0 ] GOTO3 #3= 3 N3 IF [ #[ 2001 + #13 ] GE #3 ] GOTO9 IF [ #[ 2001 + #13 ] LT 0 ] GOTO9 IF [ #[ 2001 + #13 ] EQ 0 ] GOTO4 GOTO5 N4 #[ 2000 + #13 ]= 0 N5 IF [ #22 EQ #0 ] GOTO6 IF [ ABS[ #193 ] LT #22 ] GOTO9 N6 #[ 2000 + #13 ]= #[ 2000 + #13 ] + #196 #[ 2001 + #13 ]= #[ 2001 + #13 ] + 1 IF [ #[ 2001 + #13 ] EQ #3 ] GOTO7 GOTO10 N7 (UPDATE) IF [ #9 NE #0 ] GOTO8 #9= 1 N8 G65 P9732 T#20 C [ #[ 2000 + #13 ] / #3 * #9 ] Z#26 N9 #[ 2000 + #13 ]= 0 #[ 2001 + #13 ]= 0 N10 M99 O09843 (REN XY PLANE ANGLE) M98 P9724 #27= #5041 #28= #5042 #5= 185 WHILE [ #5 LE 199 ] DO1 #[ #5 ]= #0 #5= #5 + 1 END1 N1 IF [ #17 NE #0 ] GOTO2 #17= 10.0 * #179 N2 IF [ #7 EQ #0 ] GOTO8 IF [ #24 EQ #0 ] GOTO4 (X AXIS) IF [ #25 NE #0 ] GOTO9 IF [ #1 NE #0 ] GOTO3 #1= 90.0 N3 #14= TAN[ 90 - #1 ] * #7 / 2 (X STEP) #15= #7 / 2 (Y STEP) G65 P9810 X [ #27 + #14 ] Y [ #28 + #15 ] F#169 G65 P9726 X [ #24 + #14 ] Q [ #17 ] F#169 S #[ #161 ] IF [ #199 NE 0 ] GOTO11 #30= #174 ( X1) G65 P9810 X [ #27 - #14 ] Y [ #28 - #15 ] F#169 G65 P9726 X [ #24 - #14 ] Q [ #17 ] F#169 S #[ #161 ] IF [ #199 NE 0 ] GOTO11 #31= #174 ( X2) G00 X#27 Y#28 #29= #31 - #30 G65 P9731 Y#7 X - #29 (ATAN) #16= #168 GOTO6 N4 (Y AXIS) IF [ #25 EQ #0 ] GOTO10 IF [ #1 NE #0 ] GOTO5 #1= 0 N5 #14= #7 / 2 (X STEP) #15= TAN[ #1 ] * #7 / 2 (Y STEP) G65 P9810 X [ #27 + #14 ] Y [ #28 + #15 ] F#169 G65 P9726 Y [ #25 + #15 ] Q [ #17 ] F#169 S #[ #161 + 1 ] IF [ #199 NE 0 ] GOTO11 #30= #175 ( Y1) G65 P9810 X [ #27 - #14 ] Y [ #28 - #15 ] F#169 G65 P9726 Y [ #25 - #15 ] Q [ #17 ] F#169 S #[ #161 + 1 ] IF [ #199 NE 0 ] GOTO11 #31= #175 ( Y2) G00 X#27 Y#28 #29= #31 - #30 G65 P9731 Y - #29 X#7 (ATAN) #16= #168 N6 #189= #16 (ANGLE) #193= #29 (HEIGHT DIFF) #194= #16 - #1 (ANGLE ERROR) IF [ #23 EQ #0 ] GOTO7 G65 P9730 A [ #1 ] Q#2 W#23 N7 IF [ #2 EQ #0 ] GOTO13 IF [ ABS[ #194 ] LT #2 ] GOTO13 #[ 3006 - [ [ #170 AND 8 ] / 8 * 6 ] ]= 1 (OUT OF TOL) GOTO13 N8 #3000= 91 (D INPUT MISSING) N9 #3000= 91 (XY INPUT MIXED) N10 #3000= 91 (XY INPUT MISSING) N11 G00 X#27 Y#28 IF [ #199 EQ 2 ] GOTO12 IF [ #199 EQ 4 ] GOTO12 #3000= 92 (PROBE OPEN) N12 #3000= 93 (PROBE FAIL) N13 G103 M99 O09850 (RENISHAW TOOL SELECT) G103 P1 G91 G28 Z0 G90 G49 IF [ #27 EQ 0 ] GOTO1 T#20 M06 N1 M99 O09851 (RENISHAW LENGTH SET) G103 P1 M98 P9854 M05 #174= 0 M98 P9799 IF [ #6 NE #0 ] GOTO1 IF [ #20 EQ #0 ] GOTO22 N1 #3= #5023 - #5043 #5= 3 IF [ #19 LT 0 ] GOTO2 #5= 4 N2 #23= #5043 - #199 IF [ #17 NE #0 ] GOTO3 #17= 4 * #29 N3 IF [ #26 NE #0 ] GOTO4 #26= -10 * #29 N4 IF [ #13 EQ #0 ] GOTO5 #[ 2000 + #13 ]= 0 N5 #28= #23 + #26 #1= 0.5 * #29 IF [ #23 GT #28 ] GOTO6 #1= -0.5 * #29 #17= - #17 N6 IF [ #6 NE #0 ] GOTO10 IF [ #19 EQ #0 ] GOTO10 #15= [ ROUND[ 1910 / ABS[ #19 / #29 ] ] ] * 10 IF [ #15 LT 800 ] GOTO7 #15= 800 N7 IF [ #15 GT 150 ] GOTO8 #15= 150 N8 #31= 800 N9 #9= #15 / 8 * #29 #27= 4 * #29 GOTO11 N10 #27= 4 * #29 #9= 1000 * #29 #1= 5 * #29 * #[ #30 + 12 ] N11 #10= 1000 * #29 #28= #28 - #17 IF [ #6 NE #0 ] GOTO12 IF [ #19 EQ #0 ] GOTO12 S#15 M#5 G04 P1. N12 #3004= 2 #30= 122 G31 Z#28 F#9 M98 P9854 #25= #5063 - #199 + #1 G01 Z#25 F#10 #30= 122 IF [ ABS[ #5063 - #199 - #28 ] LE 0.05 * #29 ] GOTO23 #30= 121 IF [ ABS[ #5063 - #199 - #23 ] LE 0.05 * #29 ] GOTO23 #30= 0 #32= #25 IF [ #6 NE #0 ] GOTO13 IF [ #19 EQ #0 ] GOTO121 S#31 G04 P1. N121 #32= #5063 - #199 - #26 IF [ #19 NE #0 ] GOTO14 N13 G31 Z#28 F [ 30 * #29 ] M98 P9854 G01 Z#32 F [ 5000 * #29 ] #3004= 0 #30= 122 IF [ ABS[ #5063 - #199 - #28 ] LE 0.05 * #29 ] GOTO23 #30= 121 IF [ ABS[ #5063 - #199 - #25 ] LE 0.05 * #29 ] GOTO23 #30= 0 #12= #5063 #8= #5063 + #3 - #163 IF [ #6 EQ #0 ] GOTO15 #3004= 2 N14 G31 Z#28 F [ #27 ] M98 P9854 G01 Z [ #5063 - #199 - #26 ] F [ 5000 * #29 ] #3004= 0 IF [ #19 EQ #0 ] GOTO141 S#15 N141 #30= 122 IF [ ABS[ #5063 - #199 - #28 ] LE 0.05 * #29 ] GOTO23 #30= 121 IF [ ABS[ #5063 - #199 - #25 ] LE 0.05 * #29 ] GOTO23 #30= 0 #14= #5063 #8= #5063 + #3 - #169 IF [ #6 NE #0 ] GOTO21 N15 IF [ #11 EQ #0 ] GOTO20 IF [ ABS[ #8 - #[ 2000 + #20 ] - #[ 2200 + #20 ] ] GT #11 ] GOTO26 GOTO28 N20 #[ 2000 + #20 ]= #8 #[ 2200 + #20 ]= 0 GOTO28 N21 #163= #12 - #6 + #3 #169= #14 - #6 + #3 #174= 1 GOTO28 N22 #3000= 91 (FORMAT ERROR) N23 M05 G01 Z#23 F [ 2000 * #29 ] IF [ #30 EQ 122 ] GOTO25 N24 #3000= 92 (PROBE OPEN) N25 IF [ #11 NE #0 ] GOTO26 #3000= 93 (PROBE FAIL) N26 IF [ #13 EQ #0 ] GOTO27 #[ 2000 + #13 ]= 1 GOTO28 N27 M05 #3000= 99 (BROKEN TOOL) N28 M05 M98 P9799 #174= 0 G103 M99 O09852 (RENISHAW DIA. SET) G103 P1 M98 P9854 #2= #4 M05 #174= 0 IF [ #19 EQ #0 ] GOTO34 M98 P9799 IF [ #6 NE #0 ] GOTO1 IF [ #7 EQ #0 ] GOTO34 GOTO2 N1 #166= #6 N2 #5= 3 IF [ #19 LT 0 ] GOTO3 #5= 4 N3 #7= ABS[ #7 ] #19= ABS[ #19 ] IF [ #18 NE #0 ] GOTO4 #18= 4 * #29 N4 IF [ #13 EQ #0 ] GOTO5 #[ 2000 + #13 ]= 0 N5 #15= [ ROUND[ 1910 / [ #19 / #29 ] ] ] * 10 IF [ #15 LT 800 ] GOTO6 #15= 800 N6 IF [ #15 GT 150 ] GOTO7 #15= 150 N7 #31= 800 N8 #9= #15 / 6 * #29 #27= 4 * #29 N9 #10= 5000 * #29 #12= 1000 * #29 IF [ #26 NE #0 ] GOTO10 #26= -15 * #29 N10 IF [ #6 NE #0 ] GOTO12 IF [ #15 NE #0 ] GOTO11 #15= 800 N11 S#15 M#5 N12 #21= #5041 #22= #5042 #3004= 0 IF [ #6 NE #0 ] GOTO15 G31 X [ #167 - [ #5021 - #5041 ] ] Y [ #168 - [ #5022 - #5042 ] ] F#10 M98 P9854 #30= 121 IF [ #167 - [ #5021 - #5041 ] EQ #0 ] GOTO13 IF [ ABS[ #5041 - [ #167 - [ #5021 - #5041 ] ] ] GE 0.05 * #29 ] GOTO14 N13 IF [ #168 - [ #5022 - #5042 ] EQ #0 ] GOTO15 IF [ ABS[ #5042 - [ #168 - [ #5022 - #5042 ] ] ] GE 0.05 * #29 ] GOTO14 GOTO15 N14 M05 G01 X#21 Y#22 #3000= 92 (PROBE OPEN) N15 IF [ #176 EQ 2 ] GOTO18 IF [ #176 EQ - 2 ] GOTO18 #21= #5041 #22= #5042 #23= #5043 - #199 #1= -0.5 * #29 #14= 0 #16= #23 + #26 #24= #21 - [ [ #166 + #19 ] / 2 ] + #18 #28= #21 - [ [ #166 + #19 ] / 2 ] - #18 N16 G31 X#28 F#10 M98 P9854 #30= 121 IF [ ABS[ #5061 - #28 ] GT 0.05 * #29 ] GOTO35 G31 Z#16 F#12 M98 P9854 #30= 121 IF [ ABS[ [ #5063 - #199 ] - #16 ] GT 0.05 * #29 ] GOTO33 #3004= 2 G31 X#24 F#9 M98 P9854 #25= #5061 + #1 G01 X#25 F#10 #30= 122 IF [ ABS[ #5061 - #24 ] LE 0.05 * #29 ] GOTO33 #30= 121 IF [ ABS[ #5061 - #28 ] LE 0.05 * #29 ] GOTO33 IF [ #6 NE #0 ] GOTO17 S#31 N17 G04 P1. G31 X#24 F [ #27 ] M98 P9854 G01 X#28 F [ 3000 * #29 ] #3004= 0 S#15 #30= 122 IF [ ABS[ #5061 - #24 ] LE 0.05 * #29 ] GOTO33 #30= 121 IF [ ABS[ #5061 - #25 ] LE 0.05 * #29 ] GOTO33 #30= 0 #[ #14 + 4 ]= #5061 Z#23 X#21 #1= - #1 #14= #14 + 1 #24= #21 + [ [ #166 + #19 ] / 2 ] - #18 #28= #21 + [ [ #166 + #19 ] / 2 ] + #18 IF [ #14 NE 2 ] GOTO16 IF [ #6 NE #0 ] GOTO32 GOTO21 N18 #21= #5042 #22= #5041 #23= #5043 - #199 #1= -0.5 * #29 #14= 0 #16= #23 + #26 #24= #21 - [ [ #166 + #19 ] / 2 ] + #18 #28= #21 - [ [ #166 + #19 ] / 2 ] - #18 N19 G31 Y#28 F#10 M98 P9854 #30= 121 IF [ ABS[ #5062 - #28 ] GT 0.05 * #29 ] GOTO39 G31 Z#16 F#12 M98 P9854 #30= 121 IF [ ABS[ [ #5063 - #199 ] - #16 ] GT 0.05 * #29 ] GOTO37 #3004= 2 G31 Y#24 F#9 M98 P9854 #25= #5062 + #1 G01 Y#25 F#10 #30= 122 IF [ ABS[ #5062 - #24 ] LE 0.05 * #29 ] GOTO37 #30= 121 IF [ ABS[ #5062 - #28 ] LE 0.05 * #29 ] GOTO37 IF [ #6 NE #0 ] GOTO20 S#31 N20 G04 P1. G31 Y#24 F [ #27 ] M98 P9854 G01 Y#28 F [ 3000 * #29 ] #3004= 0 S#15 #30= 122 IF [ ABS[ #5062 - #24 ] LE 0.05 * #29 ] GOTO37 #30= 121 IF [ ABS[ #5062 - #25 ] LE 0.05 * #29 ] GOTO37 #30= 0 #[ #14 + 4 ]= #5062 Z#23 Y#21 #1= - #1 #14= #14 + 1 #24= #21 + [ [ #166 + #19 ] / 2 ] - #18 #28= #21 + [ [ #166 + #19 ] / 2 ] + #18 IF [ #14 NE 2 ] GOTO19 IF [ #6 NE #0 ] GOTO32 N21 #8= ABS[ #4 - #5 ] - #166 - [ #2 * #156 ] IF [ #11 EQ #0 ] GOTO31 IF [ ABS[ [ #8 / #156 ] - #[ 2400 + #7 ] - #[ 2600 + #7 ] ] GT #11 ] GOTO42 GOTO44 N31 #[ 2400 + #7 ]= #8 / #156 #[ 2600 + #7 ]= 0 GOTO44 N32 IF [ #176 EQ 2 ] GOTO36 IF [ #176 EQ - 2 ] GOTO36 #166= ABS[ #4 - #5 ] - #19 #167= [ [ #4 + #5 ] / 2 ] + #5021 - #5041 #168= #5022 X [ #167 - [ #5021 - #5041 ] ] #174= 2 GOTO44 N33 G01 X#28 F [ 5000 * #29 ] Z#23 GOTO35 N34 M05 #3000= 93 (FORMAT ERROR) N35 M05 G01 X#21 F [ 5000 * #29 ] IF [ #30 EQ 122 ] GOTO41 GOTO40 N36 #166= ABS[ #4 - #5 ] - #19 #168= [ [ #4 + #5 ] / 2 ] + #5022 - #5042 #167= #5021 Y [ #168 - [ #5022 - #5042 ] ] #174= 2 GOTO44 N37 G01 Y#28 F [ 5000 * #29 ] Z#23 GOTO39 N38 M05 #3000= 91 (FORMAT ERROR) N39 M05 G01 Y#21 F [ 5000 * #29 ] IF [ #30 EQ 122 ] GOTO41 N40 #3000= 92 (PROBE OPEN) N41 IF [ #11 NE #0 ] GOTO42 #3000= 93 (PROBE FAIL) N42 IF [ #13 EQ #0 ] GOTO43 #[ 2000 + #13 ]= 1 GOTO44 N43 M05 #3000= 99 (BROKEN TOOL) N44 M05 M98 P9799 #174= 0 G103 M99 O09853 (RENISHAW AUTO SET) G103 P1 M98 P9854 IF [ #2 EQ #0 ] GOTO25 #1= #4 M05 #174= 0 M98 P9799 IF [ #20 EQ #0 ] GOTO25 #27= FIX[ #20 ] #32= [ #20 - FIX[ #20 ] ] * 1000 #32= ROUND[ #32 ] IF [ #32 NE 0 ] GOTO1 #32= #27 N1 IF [ #164 EQ 3 ] GOTO2 IF [ #164 EQ 13 ] GOTO2 IF [ ABS[ #7 ] EQ #32 ] GOTO25 N2 #4= #5021 - #5041 #5= #5022 - #5042 #6= #5023 - #5043 IF [ #19 EQ #0 ] GOTO3 #31= #19 + [ #1 * 2 ] #10= ABS[ #31 ] GOTO9 N3 IF [ #7 EQ #0 ] GOTO10 #31= -1 IF [ #7 LT 0 ] GOTO4 #31= 1 N4 #10= #[ 2400 + ABS[ #7 ] ] + #[ 2600 + ABS[ #7 ] ] N8 #10= [ #10 + #1 ] * #156 #31= #10 * #31 N9 IF [ #10 EQ 0 ] GOTO24 IF [ #2 EQ 1 ] GOTO10 IF [ #10 GT #177 ] GOTO24 N10 #3004= 0 IF [ #27 EQ #0 ] GOTO11 G65 P9850 T#27 N11 IF [ #19 NE #0 ] GOTO12 IF [ #7 EQ #0 ] GOTO18 N12 IF [ #10 LE #173 ] GOTO18 IF [ #2 EQ 2 ] GOTO18 IF [ #176 EQ 1 ] GOTO13 IF [ #176 EQ - 1 ] GOTO14 IF [ #176 EQ 2 ] GOTO15 IF [ #176 EQ - 2 ] GOTO16 GOTO18 N13 G00 X [ #167 - #4 ] Y [ #168 - #5 - [ #10 / 2 ] ] GOTO17 N14 G00 X [ #167 - #4 ] Y [ #168 - #5 + [ #10 / 2 ] ] GOTO17 N15 G00 Y [ #168 - #5 ] X [ #167 - #4 - [ #10 / 2 ] ] GOTO17 N16 G00 Y [ #168 - #5 ] X [ #167 - #4 + [ #10 / 2 ] ] N17 #10= #31 GOTO19 N18 G00 X [ #167 - #4 ] Y [ #168 - #5 ] #10= #0 N19 #28= #169 + #171 - #6 G31 G43 H#32 Z#28 F [ 3000 * #29 ] M98 P9854 G65 P9799 IF [ ABS[ [ #5063 - #199 ] - #28 ] GT 0.05 * #29 ] GOTO23 #28= #169 + #172 - #6 G31 Z#28 F [ 1000 * #29 ] M98 P9854 IF [ ABS[ [ #5063 - #199 ] - #28 ] GT 0.05 * #29 ] GOTO23 IF [ #2 EQ 2 ] GOTO20 G65 P9851 T [ #32 ] S [ #10 ] Z [ - #172 ] Q [ #17 ] H [ #11 ] M [ #13 ] IF [ #13 EQ #0 ] GOTO20 IF [ #[ 2000 + #13 ] EQ 1 ] GOTO26 N20 IF [ #7 EQ #0 ] GOTO26 IF [ #26 EQ #0 ] GOTO21 #26= #26 - #172 GOTO22 N21 #26= - [ #172 + [ 5 * #29 ] ] N22 IF [ #2 EQ 1 ] GOTO26 G65 P9852 D [ ABS[ #7 ] ] S [ #31 ] Z [ #26 ] R [ #18 ] I [ #1 ] H [ #11 ] M [ #13 ] GOTO26 N23 G91 G28 Z0 G90 #3000= 92 (PROBE OPEN) N24 #3000= 82 (TOOL OUT OF RANGE) N25 #3000= 91 (FORMAT ERROR) N26 G91 G28 Z0 G90 G49 G103 M99 O09854 (RENISHAW DELAY) G04 P40 G04 P40 G04 P40 G04 P40 M99 O09996 (HAAS VQC Probe MEI/MM #18-1) (HAAS Visual Quick Code Probe) (Mill, English, Inch/MM, #18-1) (Source Program.) (5-16-06) N2100 (CATEGORY) (NAME SPINDLE PROBE 1-9) N2101 (TEMPLATE) (NAME Probe Bore) (DIAGRAM) (CIRCLE [0,0] 5) (sb) (PRINT [-5,9] HANDLE TO THE APPROX.) (PRINT [-5,8] CENTER OF THE BORE) (PRINT [-5,7] BELOW TOP SURFACE) (LINE [-5,-8] [-5,-4]) (LINE [5,-8] [5,-4]) (ARROW [-4,-7] [-5,-7]) (LINE [-5,-7] [-3,-7]) (ARROW [4,-7] [5,-7]) (LINE [5,-7] [3,-7]) (PRINT [-2,-7] DIAMETER) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Diameter) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A1. D#Diameter S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2102 (TEMPLATE) (NAME Probe X Plus Surface) (DIAGRAM) (CIRCLE [-8,0] 1) (sb) (LINE [-5,-5] [-5,5] ) (wb) (LINE [-5,5] [5,5] ) (LINE [5,5] [5,-5] ) (LINE [5,-5] [-5,-5] ) (wb) (LINE [-9,-3] [-7,-3]) (z) (ARROW [-9,-3] [-7,-3]) (PRINT [-9,2] X Plus) (PRINT [-4,1] HANDLE WITHIN 0.4") (PRINT [-4,-1][10 MM] OF SURFACE) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A5. S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2103 (TEMPLATE) (NAME Probe X Minus Surface) (DIAGRAM) (CIRCLE [8,0] 1) (sb) (LINE [-5,-5] [-5,5] ) (wb) (LINE [-5,5] [5,5] ) (LINE [5,5] [5,-5] ) (LINE [5,-5] [-5,-5] ) (wb) (LINE [9,-3] [7,-3]) (z) (ARROW [9,-3] [7,-3]) (PRINT [7,2] X Minus) (PRINT [-4,1] HANDLE WITHIN 0.4") (PRINT [-4,-1] [10 MM] OF SURFACE) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A6. S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2104 (TEMPLATE) (NAME Probe Y Plus Surface) (DIAGRAM) (CIRCLE [0,-8] 1) (sb) (LINE [-5,-5] [-5,5] ) (wb) (LINE [-5,5] [5,5] ) (LINE [5,5] [5,-5] ) (LINE [5,-5] [-5,-5] ) (wb) (LINE [-3,-9] [-3,-7]) (z) (ARROW [-3,-9] [-3,-7]) (PRINT [2,-7] Y Plus) (PRINT [-4,1] HANDLE WITHIN 0.4") (PRINT [-4,-1][10 MM] OF SURFACE) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A7. S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2105 (TEMPLATE) (NAME Probe Y Minus Surface) (DIAGRAM) (CIRCLE [0,8] 1) (sb) (LINE [-5,-5] [-5,5] ) (wb) (LINE [-5,5] [5,5] ) (LINE [5,5] [5,-5] ) (LINE [5,-5] [-5,-5] ) (wb) (LINE [-3,9] [-3,7]) (z) (ARROW [-3,9] [-3,7]) (PRINT [2,7] Y Minus) (PRINT [-4,1] HANDLE WITHIN 0.4") (PRINT [-4,-1][10 MM] OF SURFACE) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A8. S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2106 (TEMPLATE) (NAME Probe Z Surface) (DIAGRAM) (CIRCLE [0,0] 3) (sb) (LINE [1,3] [1,11]) (ss) (LINE [-1,3] [-1,11]) (ss) (LINE [-16,-16] [-16,-8]) (wb) (LINE [-16,-8] [16,-8]) (LINE [16,-16] [16,-8]) (LINE [5,-6] [5,0]) (z) (ARROW [5,-4] [5,-6]) (PRINT [2,9] HANDLE WITHIN 0.4") (PRINT [2,7] [10 MM] OF SURFACE) (PRINT [6,-2] Z) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A9. S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2107 (TEMPLATE) (NAME Probe Vise Corner) (DIAGRAM) (CIRCLE [1,9] 1) (sb) (LINE [1,9] [12,9] ) (LINE [12,9] [12,0] ) (LINE [12,0] [1,0] ) (LINE [1,0] [1,9] ) (LINE [1,-1] [1,-3]) (LINE [1,-2] [6,-2]) (ARROW [6,-2] [1,-2]) (LINE [7,-2] [12,-2]) (LINE [12,-1] [12,-3]) (ARROW [7,-2] [12,-2]) (LINE [-1,0] [-3,0]) (LINE [-2,0] [-2,4]) (ARROW [-2,4] [-2,0]) (LINE [-1,9] [-3,9]) (LINE [-2,5] [-2,9]) (ARROW [-2,5] [-2,9]) (CIRCLE [16,8] 1) (sb) (LINE [18,5] [22,5]) (LINE [18,5] [18,1]) (LINE [14,7] [16,7]) (LINE [14,3] [16,3]) (LINE [15,3] [15,7]) (ARROW [15,3] [15,7]) (ARROW [15,7] [15,3]) (PRINT [17,7] Z DEPTH) (PRINT [-6,5] Y BLOCK WIDTH) (PRINT [3,-3] X BLOCK WIDTH) (PRINT [-4,13] HANDLE WITHIN 0.4") (PRINT [-4,12] [10MM] OF Z SURFACE) (PRINT [-4,11] OVER CORNER) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Xwidth) (#Ywidth) (#ZDepth) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A17. X#Xwidth Y#Ywidth Z#ZDepth S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2108 (TEMPLATE) (NAME Probe Center of Block Start From Center) (DIAGRAM) (CIRCLE [7,5] 1) (sb) (LINE [1,10] [13,10] ) (LINE [13,10] [13,0] ) (LINE [13,0] [1,0] ) (LINE [1,0] [1,10] ) (LINE [1,-1] [1,-3]) (LINE [1,-2] [6,-2]) (ARROW [6,-2] [1,-2]) (LINE [8,-2] [13,-2]) (LINE [13,-1] [13,-3]) (ARROW [8,-2] [13,-2]) (LINE [-1,0] [-3,0]) (LINE [-2,0] [-2,4]) (ARROW [-2,4] [-2,0]) (LINE [-1,10] [-3,10]) (LINE [-2,6] [-2,10]) (ARROW [-2,6] [-2,10]) (CIRCLE [16,8] 1) (sb) (LINE [18,5] [22,5]) (LINE [18,5] [18,1]) (LINE [14,7] [16,7]) (LINE [14,3] [16,3]) (LINE [15,3] [15,7]) (ARROW [15,3] [15,7]) (ARROW [15,7] [15,3]) (PRINT [17,7] Z DEPTH) (PRINT [-6,5] Y BLOCK WIDTH) (PRINT [3,-3] X BLOCK WIDTH) (PRINT [-4,13] HANDLE WITHIN 0.4") (PRINT [-4,12] [10MM] OF Z SURFACE) (PRINT [-4,11] OVER CENTER) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (LABEL Work offset) (#Xwidth) (LABEL X Width) (#Ywidth) (LABEL Y Width) (#ZDepth) (LABEL Z Depth) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A16. X#Xwidth Y#Ywidth Z#ZDepth S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2109 (TEMPLATE) (NAME Probe Center of Block Start From Corner) (DIAGRAM) (CIRCLE [1,9] 1) (sb) (LINE [1,9] [12,9] ) (LINE [12,9] [12,0] ) (LINE [12,0] [1,0] ) (LINE [1,0] [1,9] ) (LINE [1,-1] [1,-3]) (LINE [1,-2] [6,-2]) (ARROW [6,-2] [1,-2]) (LINE [7,-2] [12,-2]) (LINE [12,-1] [12,-3]) (ARROW [7,-2] [12,-2]) (LINE [-1,0] [-3,0]) (LINE [-2,0] [-2,4]) (ARROW [-2,4] [-2,0]) (LINE [-1,9] [-3,9]) (LINE [-2,5] [-2,9]) (ARROW [-2,5] [-2,9]) (CIRCLE [16,8] 1) (sb) (LINE [18,5] [22,5]) (LINE [18,5] [18,1]) (LINE [14,7] [16,7]) (LINE [14,3] [16,3]) (LINE [15,3] [15,7]) (ARROW [15,3] [15,7]) (ARROW [15,7] [15,3]) (PRINT [17,7] Z DEPTH) (PRINT [-6,5] Y BLOCK WIDTH) (PRINT [3,-3] X BLOCK WIDTH) (PRINT [-4,13] HANDLE WITHIN 0.4) (PRINT [-4,12] [10MM] OF Z SURFACE) (PRINT [-4,11] OVER CORNER) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Xwidth) (#Ywidth) (#ZDepth) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A18. X#Xwidth Y#Ywidth Z#ZDepth S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) (END CATEGORY) N2200 (CATEGORY) (NAME SPINDLE PROBE 10-18) N2201 (TEMPLATE) (NAME Probe Boss) (DIAGRAM) (CW [13,5] [16,0] 5) (CW [16,0] [13,-5] 5) (CW [-16,0] [-13,5] 5) (CW [-13,-5] [-16,0] 5) (CW [13,-5] [-13,-5] 23) (CW [-13,5] [13,5] 23) (CIRCLE [0,6] 3) (LINE [1,9] [1,17]) (LINE [-1,9] [-1,17]) (LINE [-16,-10] [-16,0]) (LINE [16,-10] [16,0]) (CW [16,-10] [13,-15] 5) (CW [13,-15] [-13,-15] 23) (CW [-13,-15] [-16,-10] 5) (LINE [-16,-24] [-16,-14]) (LINE [16,-24] [16,-14]) (LINE [2,3] [23,3]) (LINE [17,-6] [23,-6]) (LINE [22,2] [22,0]) (LINE [22,-6] [22,-4]) (ARROW [22,0] [22,3]) (ARROW [22,-4] [22,-6]) (PRINT [18,-3] Z DEPTH) (ARROW [-14,-23] [-16,-23]) (LINE [-16,-23] [-7,-23]) (ARROW [14,-23] [16,-23]) (LINE [7,-23] [16,-23]) (PRINT [-2,-23] DIAMETER) (PRINT [3,14] HANDLE TO APPOX.) (PRINT [3,12] CENTER OF BOSS) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Diameter) (#ZDepth) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A2. D#Diameter S#WrkOfset Z#ZDepth) (M30) (END GCODE) (END TEMPLATE) N2202 (TEMPLATE) (NAME Probe X Pocket) (DIAGRAM) (CIRCLE [0,0] 3) (LINE [1,3] [1,11]) (ss) (LINE [-1,3] [-1,11]) (ss) (LINE [-16,4] [-11,4]) (LINE [-11,-5] [-11,4]) (LINE [-11,-5] [11,-5]) (LINE [11,-5] [11,4]) (LINE [16,4] [11,4]) (LINE [16,-10] [16,4]) (LINE [-16,-10] [16,-10]) (LINE [-16,4] [-16,-10]) (LINE [-11,-16] [-11,-11]) (wd) (LINE [11,-16] [11,-11]) (ARROW [-9,-15] [-11,-15]) (LINE [-11,-15] [-6,-15]) (ARROW [9,-15] [11,-15]) (LINE [11,-15] [6,-15]) (PRINT [-13,13] HANDLE TO APPROX.) (PRINT [0,13] CENTER OF SLOT) (PRINT [-2,-13] X WIDTH) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Xwidth) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A3. X#Xwidth S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2203 (TEMPLATE) (NAME Probe Y Pocket) (DIAGRAM) (CIRCLE [0,0] 3) (LINE [1,3] [1,11]) (ss) (LINE [-1,3] [-1,11]) (ss) (LINE [-16,4] [-11,4]) (LINE [-11,-5] [-11,4]) (LINE [-11,-5] [11,-5]) (LINE [11,-5] [11,4]) (LINE [16,4] [11,4]) (LINE [16,-10] [16,4]) (LINE [-16,-10] [16,-10]) (LINE [-16,4] [-16,-10]) (LINE [-11,-16] [-11,-11]) (wd) (LINE [11,-16] [11,-11]) (ARROW [-9,-15] [-11,-15]) (LINE [-11,-15] [-6,-15]) (ARROW [9,-15] [11,-15]) (LINE [11,-15] [6,-15]) (PRINT [-13,13] HANDLE TO APPROX.) (PRINT [0,13] CENTER OF SLOT) (PRINT [-2,-13] Y WIDTH) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Ywidth) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A3. Y#Ywidth S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2204 (TEMPLATE) (NAME Probe X Web) (DIAGRAM) (CIRCLE [0,0] 3) (LINE [1,3] [1,11]) (ss) (LINE [-1,3] [-1,11]) (ss) (LINE [-16,-8] [-11,-8]) (wb) (LINE [-11,-8] [-11,-4]) (LINE [-11,-4] [11,-4]) (LINE [11,-8] [11,-4]) (LINE [16,-8] [11,-8]) (LINE [16,-10] [16,-8]) (LINE [-16,-10] [16,-10]) (LINE [-16,-8] [-16,-10]) (LINE [2,-3] [16,-3]) (zd) (LINE [12,-6] [16,-6]) (LINE [15,-6] [15,-2]) (ARROW [15,-5] [15,-3]) (ARROW [15,-4] [15,-6]) (PRINT [8,0] Z DEPTH) (LINE [-11,-16] [-11,-11]) (wd) (LINE [11,-16] [11,-11]) (ARROW [-9,-15] [-11,-15]) (LINE [-11,-15] [-6,-15]) (ARROW [9,-15] [11,-15]) (LINE [11,-15] [6,-15]) (PRINT [-13,13] HANDLE TO APPROX.) (PRINT [0,13] CENTER OF WEB) (PRINT [-2,-13] X WIDTH) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Xwidth) (#ZDepth) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A4. X#Xwidth Z#ZDepth S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2205 (TEMPLATE) (NAME Probe Y Web) (DIAGRAM) (CIRCLE [0,0] 3) (LINE [1,3] [1,11]) (ss) (LINE [-1,3] [-1,11]) (ss) (LINE [-16,-8] [-11,-8]) (wb) (LINE [-11,-8] [-11,-4]) (LINE [-11,-4] [11,-4]) (LINE [11,-8] [11,-4]) (LINE [16,-8] [11,-8]) (LINE [16,-10] [16,-8]) (LINE [-16,-10] [16,-10]) (LINE [-16,-8] [-16,-10]) (LINE [2,-3] [16,-3]) (zd) (LINE [12,-6] [16,-6]) (LINE [15,-6] [15,-2]) (ARROW [15,-5] [15,-3]) (ARROW [15,-4] [15,-6]) (PRINT [8,0] Z DEPTH) (LINE [-11,-16] [-11,-11]) (wd) (LINE [11,-16] [11,-11]) (ARROW [-9,-15] [-11,-15]) (LINE [-11,-15] [-6,-15]) (ARROW [9,-15] [11,-15]) (LINE [11,-15] [6,-15]) (PRINT [-13,13] HANDLE TO APPROX.) (PRINT [0,13] CENTER OF WEB) (PRINT [-2,-13] Y WIDTH) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Ywidth) (#ZDepth) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A4. Y#Ywidth Z#ZDepth S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2206 (TEMPLATE) (NAME Probe External Corner) (DIAGRAM) (CIRCLE [0,0] 1) (LINE [2,0] [4,0]) (LINE [4,0] [4,1]) (LINE [4,0] [9,0]) (LINE [9,0] [9,1]) (LINE [2,2] [2,12]) (LINE [2,12] [12,12]) (LINE [12,12] [12,2]) (LINE [12,2] [2,2]) (LINE [0,2] [0,4]) (LINE [0,4] [1,4]) (LINE [0,4] [0,9]) (LINE [0,9] [1,9]) (LINE [4,-1] [4,-3]) (LINE [9,-1] [9,-3]) (LINE [4,-2] [6,-2]) (ARROW [6,-2] [4,-2]) (LINE [7,-2] [9,-2]) (ARROW [7,-2] [9,-2]) (LINE [-1,4] [-3,4]) (LINE [-1,9] [-3,9]) (LINE [-2,4] [-2,6]) (ARROW [-2,6] [-2,4]) (LINE [-2,7] [-2,9]) (ARROW [-2,7] [-2,9]) (PRINT [-4,-4] HANDLE TO CORNER) (PRINT [-3,7] Y) (PRINT [6,-2] X) (PRINT [3,3] 1) (PRINT [11,3] 4) (PRINT [11,11] 3) (PRINT [3,11] 2) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Xwidth) (#Ywidth) (#Corner) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A15. I#Xwidth J#Ywidth B#Corner S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) N2207 (TEMPLATE) (NAME Probe Internal Corner) (DIAGRAM) (CIRCLE [0,0] 1) (LINE [2,0] [4,0]) (LINE [4,0] [4,-1]) (LINE [4,0] [9,0]) (LINE [9,0] [9,-1]) (LINE [-2,-2] [-2,12]) (LINE [-2,12] [12,12]) (LINE [12,12] [12,-2]) (LINE [12,-2] [-2,-2]) (LINE [0,2] [0,4]) (LINE [0,4] [-1,4]) (LINE [0,4] [0,9]) (LINE [0,9] [-1,9]) (LINE [4,1] [4,3]) (LINE [9,1] [9,3]) (LINE [4,2] [6,2]) (ARROW [6,2] [4,2]) (LINE [7,2] [9,2]) (ARROW [7,2] [9,2]) (LINE [1,4] [3,4]) (LINE [1,9] [3,9]) (LINE [2,4] [2,6]) (ARROW [2,6] [2,4]) (LINE [2,7] [2,9]) (ARROW [2,7] [2,9]) (PRINT [-4,-4] HANDLE TO CORNER) (PRINT [3,7] Y) (PRINT [6,2] X) (PRINT [-3,-3] 1) (PRINT [13,-3] 4) (PRINT [13,13] 3) (PRINT [-3,13] 2) (END DIAGRAM) (PARAMETERS) (#WrkOfset) (#Xwidth) (#Ywidth) (#Corner) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A14. I#Xwidth J#Ywidth B#Corner S#WrkOfset) (M30) (END GCODE) (END TEMPLATE) (END CATEGORY) N2300 (CATEGORY) (NAME TOOL SETTING) N2301 (TEMPLATE) (NAME Auto Length Only) (DIAGRAM) (LINE [0,0] [6,2]) (DR) (LINE [0,0] [-6,2]) (LINE [-6,2] [6,14]) (LINE [-6,2] [-6,8]) (LINE [-6,8] [6,20]) (LINE [0,0] [6,5]) (LINE [6,2] [6,5]) (LINE [6,5] [1,9]) (LINE [6,14] [6,20]) (LINE [6,28] [6,34]) (LINE [6,28] [6,34]) (LINE [-2,12] [-6,16]) (LINE [-6,16] [-6,22]) (LINE [-6,16] [6,28]) (LINE [-2,26] [-6,30]) (LINE [-6,22] [6,34]) (LINE [6,20] [2,24]) (LINE [-6,30] [-6,34]) (LINE [-6,30] [-2,34]) (LINE [-18,-11] [18,-11]) (LINE [-18,-11] [-18,-21]) (LINE [-18,-21] [18,-21]) (LINE [18,-11] [18,-21]) (LINE [-5,-21] [-5,-28]) (LINE [5,-21] [5,-28]) (PRINT [-40,-3] LENGTH ONLY THAT CAN) (PRINT [-40,-5] TOUCH TS27R DISK) (PRINT [-40,-8] SUCH AS DRILLS,TAPS,) (PRINT [-40,-11] REAMS,END MILLS,) (PRINT [-40,-13] BALL NOSE END MILLS) (END DIAGRAM) (PARAMETERS) (#ToolNo) (NO DECIMAL) (END PARAMETERS) (GCODE) (G65 P9023 A12. T#ToolNo) (M30) (END GCODE) (END TEMPLATE) N2302 (TEMPLATE) (NAME Manual Length Only) (DIAGRAM) (LINE [0,0] [1,0]) (EM) (LINE [0,0] [0,3]) (LINE [0,3] [1,3]) (LINE [1,0] [1,3]) (LINE [1,1] [7,1]) (LINE [6,1] [6,0]) (LINE [6,0] [8,0]) (LINE [8,0] [8,3]) (LINE [8,3] [7,3]) (LINE [7,3] [7,1]) (LINE [8,1] [12,1]) (LINE [11,1] [11,0]) (LINE [11,0] [13,0]) (LINE [13,0] [13,3]) (LINE [13,3] [12,3]) (LINE [12,1] [12,6]) (LINE [12,6] [9,6]) (LINE [9,6] [9,9]) (LINE [9,9] [-9,9]) (LINE [8,9] [8,12] ) (LINE [-8,9] [-8,12] ) (LINE [-9,9] [-9,6] ) (LINE [-9,6] [-12,6] ) (LINE [-12,6] [-12,1]) (LINE [-12,1] [-7,1] ) (LINE [-12,3] [-13,3] ) (LINE [-13,3] [-13,0] ) (LINE [-13,0] [-11,0] ) (LINE [-11,0] [-11,1] ) (LINE [-7,0] [-7,3] ) (LINE [-7,3] [-6,3]) (LINE [-6,3] [-6,1]) (LINE [-6,1] [0,1] ) (LINE [-5,1] [-5,0]) (LINE [-5,0] [-7,0]) (LINE [8,-6] [19,-6]) (LINE [19,-6] [19,-10]) (LINE [19,-10] [15,-10]) (LINE [15,-10] [15,-14]) (LINE [12,-14] [12,-10]) (LINE [12,-10] [8,-10]) (LINE [8,-10] [8,-6]) (PRINT [-20,-8] HANDLE FLUTE ABOVE) (PRINT [-20,-11] TS27R DISK ABOUT) (PRINT [-20,-13] 0.4" [10MM]) (END DIAGRAM) (PARAMETERS) (#ToolNo) (NO DECIMAL) (END PARAMETERS) (GCODE) (G00 G90) (G65 P9023 A25. T#ToolNo) (M30) (END GCODE) (END TEMPLATE) N2303 (TEMPLATE) (NAME Automatic Length Rotating) (DIAGRAM) (LINE [0,2] [6,5]) (em) (LINE [-6,2] [6,2]) (LINE [-6,2] [6,14]) (LINE [-6,2] [-6,8]) (LINE [-6,8] [6,20]) (LINE [6,2] [6,5]) (LINE [6,5] [1,9]) (LINE [6,14] [6,20]) (LINE [6,28] [6,34]) (LINE [6,28] [6,34]) (LINE [-2,12] [-6,16]) (LINE [-6,16] [-6,22]) (LINE [-6,16] [6,28]) (LINE [-2,26] [-6,30]) (LINE [-6,22] [6,34]) (LINE [6,20] [2,24]) (LINE [-6,30] [-6,34]) (LINE [-6,30] [-2,34]) (LINE [-12,34] [12,34]) (LINE [12,34] [12,39]) (LINE [-12,34] [-12,39]) (LINE [-18,39] [18,39]) (LINE [-18,40] [18,40]) (LINE [-18,44] [18,44]) (LINE [-18,45] [18,45]) (LINE [-16,42] [16,42]) (LINE [-18,39] [-18,40]) (LINE [18,39] [18,40]) (LINE [-18,40] [-16,42]) (LINE [-16,42] [-18,44]) (LINE [-18,44] [-18,45]) (LINE [18,40] [16,42]) (LINE [16,42] [18,44]) (LINE [18,44] [18,45]) (LINE [-13,45] [-12,49]) (LINE [13,45] [12,49]) (LINE [-23,46] [-33,46]) (LINE [-33,2] [-8,2]) (LINE [-32,46] [-32,27]) (LINE [-32,2] [-32,22]) (ARROW [-32,44] [-32,46]) (ARROW [-32,4] [-32,2]) (LINE [-18,-11] [18,-11]) (LINE [-18,-11] [-18,-21]) (LINE [-18,-21] [18,-21]) (LINE [18,-11] [18,-21]) (LINE [-5,-21] [-5,-28]) (LINE [5,-21] [5,-28]) (LINE [-6,1] [-6,-4]) (LINE [6,1] [6,-4]) (LINE [-6,-3] [-4,-3]) (LINE [6,-3] [4,-3]) (ARROW [-4,-3] [-6,-3]) (ARROW [4,-3] [6,-3]) (PRINT [-33,25] APPROX. TOOL LENGTH) (PRINT [-6,-6] TOOL DIAMETER) (END DIAGRAM) (PARAMETERS) (#ToolNo) (NO DECIMAL) (#ToolLgth) (#ToolDia) (END PARAMETERS) (GCODE) (T#ToolNo M06) (G00 G90) (G65 P9023 A23. T#ToolNo D[#ToolDia] H#ToolLgth ) (M30) (END GCODE) (END TEMPLATE) N2304 (TEMPLATE) (NAME Automatic Length and Diameter) (