O0001 (main program)
G90G17G21G40G49G80
G0 G91 G28 Z0.0
T01M06
G00G54X0.0Y0.0S1200M03
G43H01Z100.0
M8
G0 Z15.0
G65P0002 A0.0 B0.0 C8.5 D30E4 Z-20R15.0Q2.0F100
G80
G00Z100.0 M5
G0 G91 G28 Z0.0
G28 Y0.0
M30
O0002 ( Sub program )
#7=[#7/2]
#11=0
#12=360/#8
G90
G00Z#18
WHILE[#11LT360]DO1
#20=[#1+#7*COS[#11]]
#21=[#2+#7*SIN[#11]]
G00X#20Y#21
G98G83Z#26R#18Q#17F#9
#11=[#11+#12]
END1
G80
G00X#1Y#2
M99