problem z programem

witam wszystkich czy jest opcja przerobienia tego programu na q parametrach tak zeby os w ktorej zaglebia sie narzedzie sla jednym ciagiem tak jak w interpolacji kolowej? z gory dziekuje za pomoc
0 BEGIN PGM 20 MM
1 TOOL DEF 9 L+0,000 R+10,000
2 TOOL CALL 9 Y S 1200
3 L Y+0,000 R0 F9998 M04
4 L X+0,000 Z+0,000 R0 F9998 M
5 L Y+0,000 R0 F9998 M
6 FN 0 : Q1 = +25,000
7 FN 0 : Q10 = +50,000
8 FN 4 : Q1 = +Q1 DIV +Q10
9 LBL 1
10 L IY-Q1 R0 F9998 M
11 L Z+35,000 RR F1000 M
12 L X-33,000 RR F1000 M
13 L Z-35,000 RR F1000 M
14 L X+33,000 RR F1000 M
15 L Z+35,000 RR F1000 M
16 L X-5,000 RR F1000 M
18 FN 2 : Q10 = +Q10 - +1,000
19 FN 10 : IF +Q10 NE +0,000 GOTO LBL 1
20 L X+0,000 Z+0,000 R0 F9998 M
21 L Y+0,000 R0 F9998 M02
22 STOP M00
23 END PGM 20 MM a pomoc