G99G97;
M03S500T0101;
G0X42.Z2.;
G65 P1234 A25 C20 U2 V1 F0.1 S700;
G0 X100.Z100.;
M05 T0100;
M30;
O1234;
#5=#5043;
#4=#3;
WHILE[#4GE0] DO1;
#2=[[1-[#4*#4]/[#3*#3]]*[#1*#1]];
#2=SQRT[#2];
#2=#2-#1;
G0X[2*#4+0.5];
G1Z[#2+0.3]F0.15;
U1W1;
G0Z#5;
#4=#4-#21;
END1;
G0X0;
G1Z0.;
#5=360.;
WHILE[#5GE270] D02;
#2=#1*COS[#5];
#4=#3*SIN[#5];
#2=#2-#1;
#4=ABS[#4];
G1X[2*#4]Z#2F#9;
#5=#5-#22;
END2;
M99;