%
O0010 (PROG. PRINCIPAL)
N1 G17 G21 G90 G94
N2 G53 G0 Z0 G49
N3 T18 (FRESA D20 MM)
N4 M6
N5 G54 S3500 M3
N6 G0 X60 Y0 M8
N7 G43 Z10 H18 D18
N8 Z-2
N9 G65 X0 Y0 I80 J50 A0 B1 Q5
R10 F520 P2000
N10 G53 G0 Z0 G49 M9 M5
N11 M30
%
O2000 (SUBPROG. MACRO)
N1 #4=[#4/2]+#18
N2 #5=[#5/2]+#18
N3 G00 X[[#4+#17]*COS[#1]] Y[[#5+#17]*SIN[#1]]
N4 WHILE [#1 LT 360] DO1
N5 G01 X[#4*COS[#1]] Y[#5*SIN[#1]] F[#9]
N6 #1=#1+#2
N7 END1
N8 G01 X[#4*COS[360]] Y[#5*SIN[360]]
N9 G00 X[[#4+#17]*COS[#1]] Y[[#5+#17]*SIN[#1]]
N10 M99
%