L1 C=0:A>9ÞDefm 2(A－9△Lbl l:C=C+1:{I}:Prog 3:A[C+8]=D:C≠AÞ Goto 1△{B}:Prog B:B=D－B:D=B/A:Prog C▲C=0
L2 Lbl 2:C=C+1:A[C+8]=A[C+8]－DC:B=A[C+8:Prog C▲C≠AÞGoto 2△C= 8:D=0:E=0:F=0
L3 Lbl 3:C=C+1:{B}:D=D+B:E=E+Bcos A[C:F=F+Bsin A[C:A[A+C] =B:C≠ A +7ÞGoto 3△D▲{BI}:BGHI:E=E+B－H▲F=F+G－I▲D/√(E2+F2▲E=E/D :F=F /D
L4 C=8:Lbl 4:C=C+1:B=A[A+C]cos A[C]+B－EA[A+C▲G=A[A+C] sin A[C] +G－FA[A+C▲C≠A+7ÞGoto4△Defm 0

说明：
　　①程序10用以单一附合导线的近似平差计算；
　　②程序中：A=测站数、B=起算边坐标方位角、附合边坐标方位角、导线边边长、起点纵坐标、I=观测角(左角)、终点横坐标、G=起点横坐标、H=终点纵坐标；
　　③程序设计可以计算9个测站，大于是9站时只要计算器剩余有步骤数，程序会自动扩充储存器增加储存变量；
　　④算例如表：按Prog 10调用程序显示A？输入测站数5，按EXE键、显示B？输入起算边的坐标方位角169.5359，按EXE键、显示I？输入B点的观测角93.3642，按EXE键、显示I？输入C点的观测角179.56，依次输入各观测角…，按EXE键、显示B？输入附合边的坐标方位角250.06，按EXE键、显示导线的角度闭合差－0.003699999(－37″)，按EXE键、显示平差后B点至C点的坐标方位角83.30484，按EXE键依次显示各导线边平差后的坐标方位角…，按EXE键、显示B？输入B点至C点的边长126.11，按EXE键、显示B？依次输入各导线边的边长…，按EXE键、显示各边长之和508.96，按EXE键、显示B？输入起点纵坐标801.53，按EXE键、显示G？输入起点横坐标724.84，按EXE键、显示H？输入终点纵坐标959.29，按EXE键、显示I？输入终点横坐标1158.41，按EXE键、显示纵坐标闭合差0.093449934，按EXE键、显示横坐标闭合差－0.02045631，按EXE键、显示导线全长相对闭合差5320.360577(K=1/5320)，按EXE键、显示C点纵坐标815.754，按EXE键、显示C点横坐标850. 148，按EXE键依次显示D、E、F、G点的纵横坐标。

由论坛整理　，谢谢　测量人1　提供分享