O1000
G54
G00 X100.0 Z150.0;
T0101;
S600.0 M04;
G00 X45.0 Z75.0;
G94 X-5.0 Z72.0 F0.5;
G00 X100.0 Z150.0;
T0202;
G00 X45.0 Z72.0;
G71 U1.2 R0.5;
G71 P10 Q20 U0.2 W0.5 F0.3;
N10 G00 X7;
G65 P9001 A0.05 Z72.0;
N20 G01 Z-20.0;
G00 X100.0 Z150.0;
T0303;
S3000 M04;
G00 X45.0 Z72.0;
G65 P9001 A0.05 Z72.0;
G01 Z-20.0;
G00 X100.0 Z150.0;
T0404;
S800.0 M04;
G00 X45.0 Z-20.0;
G01 X-0.5 F0.2;
G00 X45.0;
G00 X100.0 Z150.0;
M30
O9001
WHILE[lbk]#26 GE 2.0[rbk]DO1;
#3=#26;
#2=36.0/#3+3.0;
G01 X#2 Z#3 F0.1
#26=#26-#1;
END1;
M99;
G54
G00 X100.0 Z150.0;
T0101;
S600.0 M04;
G00 X45.0 Z75.0;
G94 X-5.0 Z72.0 F0.5;
G00 X100.0 Z150.0;
T0202;
G00 X45.0 Z72.0;
G71 U1.2 R0.5;
G71 P10 Q20 U0.2 W0.5 F0.3;
N10 G00 X7;
G65 P9001 A0.05 Z72.0;
N20 G01 Z-20.0;
G00 X100.0 Z150.0;
T0303;
S3000 M04;
G00 X45.0 Z72.0;
G65 P9001 A0.05 Z72.0;
G01 Z-20.0;
G00 X100.0 Z150.0;
T0404;
S800.0 M04;
G00 X45.0 Z-20.0;
G01 X-0.5 F0.2;
G00 X45.0;
G00 X100.0 Z150.0;
M30
O9001
WHILE[lbk]#26 GE 2.0[rbk]DO1;
#3=#26;
#2=36.0/#3+3.0;
G01 X#2 Z#3 F0.1
#26=#26-#1;
END1;
M99;