SPiral interpolation macro

Hello Everyone,
I wanted to make a parametrised macro for spiral milling for Fanuc.
I don't know what is the error in this program:

#14=95.02 (DIAMETER OF THE HOLE)
#11=0.05 (PITCH)
#21=0.5 (LENGHT FOR CHAMFER(FOR EX 0.5X45 DEGREES)
#9=#14+[2*#21]+[4*#11] (DIAMETER FOR BEGINING MACHINING)
#19=#14+[2*#21]+[6*#11](DIAMETER FOR BEGINING MACHINING)
#10=0 (Z PLANE; FOR EXAMPLE Z=0)


#32=#10+[4*#11]
#33=#10-#21-[4*#11]


N10 G21 G17


(CICLU SANFRENARE UNGHI 45 GRD DIAMETRU INTERIOR)


N20T1 M06


N30 G0G90G54.
N40 S2000 M3
N50 G0 X0. Y0.
N60 G43 Z10H1 M8


N70 G94G1Z0.2F1000.
N80 G41D1X0.


N80 G1 G91 X0. Y-48.21 D1 F1000




N100G1G40Y48.21




WHILE [#32 GT #33]DO1


G3 X0 Y#9 Z-#11 I0 J[#9/2] K-#11
G3 X0 Y-#19 Z-#11 I0 J-[#19/2] K-#11


#9=#9-[4*#11]
#19=#19+[4*#11]
END1


N100G1G40X-50
N110G0G90Z10.
N120G0G91G28Z0
N140M0
M30

WHILE [#32 GT #33]DO1

G3 X0 Y#9 Z-#11 I0 J[#9/2] K-#11
G3 X0 Y-#19 Z-#11 I0 J-[#19/2] K-#11


#9=#9-[4*#11]
#19=#19+[4*#11]


END1

WHILE [#32 GT #33]DO1 #32 will always be the same number #32=#10+[4*#11]
you will need to have a modifier between the while statement and the END1

Are you trying to generate a chamfer with a 3 axis move ?
i did not look to see if your center of arc is correct or not as you are changing the dia. during the cut and not moving to a new starting point (the center point won't be the center starting point of the hole)
this would be correct J[#9/2] if you started at #9 arc dia.

Yea. I'm trying to make a chamfer. But i don't know how...

What kind of end mill do you intend to use ( sharp corner, ball end mill, an end mill with a chamfer / radius corner )
the type of end mill will make a difference in the programming and how the surface finish comes out

I need 2 kinds: one program with sharp corner and another with a parametrized radius if you can.