一、主程序：M（M是文件名，下同)
L1 A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK”H”ZHJD°”
I”A°”J”L0”K”L1”R
L2 Pol(C-A,D-B):M=W
L3 Lbl 2:W=90:{NOWZ}:Z”DK”N”Z/!/Y(1/2/3)”:N=2=>Goto 1⊿O”M”W”A°”
L4 Lbl 1:P=Z-G:S=E:T=F:U=H:V=H:Fixm
L5 P≤0=>Prog 3:≠=>P≤J=>Prog 1:≠=>P≤J+K=>Prog 2:V=90J/π/R+180π-1R-1
(P-J)⊿⊿P≤J+K=>Prog 4:V=H+V⊿⊿
L6 P>J+K=>P=2J+K-P:S=Q:T=L:P>0=>Prog 1:X=-X:U=H+I:Prog 4: V=U-V:≠=>
U=H+I:V=U:P=-P:Prog 3⊿⊿
L7 N≠2=>P=O:U=V-W:N=3=>P=-P⊿S=X:T=Y:Prog 3⊿
L8 Pol(X-A,Y-B):W=W-M:W<0=>W=W+360⊿
L9 W:”°°°=”◢V:”S=”◢X:”X=”◢Y:”Y=”◢Goto 2
二、子程序：1
L1 V=90P2(πRJ)-1
L2 X=P-Pxy5(40R2J2)-1
L3 Y=PVπ/540
三、子程序：2
L1 Y=180π-1R-1(P-0.5J)
L2 X=RsinY+J/2- Jxy3/240/R2
L3 Y=J/24/R+R-RcosY
四、子程序：3
L1 X=S+PcosU
L2 Y=T+PsinU
五、子程序：4
L1 I<0=>Y=-Y:V=-V⊿
L2 S=S+XcosU-YsinU
L3 Y=T+XsinU+YcosU
L4 X=S
