O1111
N010T0101
N20M03S800
N030G00X70Z5
N040G73U25R5
N050G73P60Q120U1F200
N060G01X0Z0
N070#100=40
N080#101=20*SQRT[1-#100*#100/1600]
N090#100=#100-1
N100G01X[2*#101]Z[#100-40]
N110IF[#100GT-20]GOTO80
N120G01Z-100
N130G70P60Q120
N140M30
N150
N110
%