子程序：
Ｏ1148（ARC）；
N10 IF[[#4*#2*#7]EQ0]GOTO210；
N20 IF[#25EQ#0] GOTO210；
N30 IF[#25EQ#0] GOTO210；
N40 IF[4009EQ80] GOTO60；
N50 IF[#19NE#0] GOTO220；
N60 #31=#4003；
N70 #10=0；
N80 #27=#7-1；
N90 #27=ROUND[#！LE##27]D0；
N100 WHILE[#！LE#27]-DO1；
N110 #11=#1+#10*#2；
N120 #12=#24+#4*COS[#11]；
N130 #13=#25=#4*SIN[#11]；
N140 G90X#12Y#13；
N150 IF[#19EQ#0]GOTO180；
N160 G#31；
N170 G65P#19；
N180 #10=#10+1；
N190 END 1；
N200 GOTO 210；
N210 #3000=140(DATA LACK)；
N220 #3000=142(DATA ERROR)；
N230 G#31 M99；
主程序:
Ｏ0148；
N10 G90G00G54S800M03；
N20 G76R2.0Z-15.0Q0.5F80 L0；
N30 G65P1148X70.0Y80.0I55.0B60.0D3.0A30.0；
N40 G80X0Y0M05；
N50 M30；
