﻿M03 S800 T0101
G00 X90 Z2
G80 X80 Z-185 F100
#50=82/2
#51=-50
#52=50/2
#53=54
#54=3
G00 Z50
T0202
M98 P0011
#51=-140
M98 P0011
G00 X90 Z50
M30

%0011
#60=#50+#53
#61=#60
WHILE #61 GT #52+#53
#61=#61-#54
IF #61 LT #52+#53
#61=#52+#53
ENDIF
#62=#61-#50
#63=SQRT[#53*#53-#62*#62]
#64=#51+#63
#65=#51-#63
#66=#50*2
G00 X[#66] Z[#64]
G02 X[#66] Z[#65] R[#53]
ENDW
M99
