[求助]请教高手把正反算程序合并

harrison

正算：Lbl 0：{AB}:A〝X0〞:B〝YO〞: Lbl 1:{CD}:C〝A〞:D: Fixm: Rec(D,C）:〝X〞: X=A+I◢〝Y〞:Y=B+J◢<br>Goto 2: Lbl 2:{N}:N=1&nbsp;=&gt; Goto 1: ≠&gt; Goto 0⊿<br>反算：Lbl 0：{AB}:A〝X0〞:B〝YO〞: Lbl 1:{CD}:C〝X1〞:D〝Y1〞: Fixm: Pol(C-A,D-B:J&lt;0=&gt;J=J+360⊿J〝A〞: J →DMS◢〝D〞:I◢<br>Goto 2: Lbl 2:{N}:N=1&nbsp;=&gt; Goto 1: ≠&gt; Goto 0⊿