FASOLKA ZAGŁEBIANIE SPIRALNE

WITAM WSZYSTKICH MAM PYTANIE CZY WIE KYOS JAK NAPISAC TEN PR.ABY ZAGLEBIENIE SZLO CALY CZAS SPIRALNIE? BEDE WDZIECZNY ZA POMOC
TOOL CALL 4 Y S3000 F2222
7 L Y+100 R0 FMAX M3
8 L X+0 Z+0 R0 FMAX
9 L Y+0 R0 FMAX
10 CALL LBL 1
11 L X0 Z R0 F MAX
12 L Y+100 R0 FMAX M2
13 LBL 1
14 FN 0: Q1 =+20
14 FN0: Q10=20
16 FN 4: Q1 =+Q1 DIV +Q10
16 CALL LBL2
17 LBL 0
18 LBL 2
18 L IY-Q1
19 CC X+0 Z-15.1
20 L X+17.1 RL F1000
21 L Z-15.1 RL F1000
22 CP IPA+180 DR+ RL F1000
23 CC X+0 Z+15.1
24 L Z+15.1 RL F1000
25 CP IPA+180 DR+ RL F1000
27 CC X0 Z-15,1
27 L Z0 RL F1000
27 FN2:Q10=Q10-+1
27 FN10:IF+Q10 NE 0 GOTO LBL2
28 LBL 0
29 END PGM EX13 MM

Czesc.Na szybko wyszlo cos takiego.