G0 X80 Z2
G1 Z-100 F150
G0 X90 Z2
N0010 r50=82000/2
r51=-50000
r52=50000/2
r53=54000
r54=3000
G00 Z50
T0202
M98 P0100
G00 X90 Z50
M30
N0100 r60=r50+r53
r61=r60
N0150 r61=r61-r54
r70=r52+r53
if (r61 > r70) then P0200
r61=r52+r53
N0200 r62=r61-r50
N0202 r153=r53/10
N0204 r162=r62/10
N0206 r81=r153*r153
N0208 r82=r162*r162
N0210 r83=r81-r82
r63=sqr(r83)
N1000 r63=r63*10
r64=r51+r63
r65=r51-r63
r66=r50*2
G00 Xr66 Zr64
G02 Xr66 Zr65 Rr53
r71=r52+r53
if r61 > r70 then P0150
M99