卡西欧5800计算器程序曲线段主程序：“1.SZ→XY”: “2.XY→SZ”:?N: “XO”?U: “YO”?V:“SO”?O: “SN”?I: “FO”?G: “LS”?H: “RO”?P: “RN”?R: “JIAJIAO”?T:?Q:1÷P→C(P-R)÷(2HPR)→D:18÷π→ E:IfN=1:ThenGoto0:ElseGoto1:IfEnd:Lbl0:?S:?Z:IfS>I:Then“CHUJIE” ◢Goto0:IfEnd:Abs(s-0)→W:Prog“SUB1”:F-T→F:“X=”:X◢“Y=”:Y◢“F=”:F►DMS◢Goto0Lbl1:?X:?Y:X→I;Y→Prog“SUB2”:“S”?S:O+W→S◢“Z”?Z:Z→Z◢Goto1字母表示：1: SZ→XY（XY→SZ） 距离算坐标（坐标算距离） 2： N 选择1或2（一般选1）3： XO，YO 起点的X，Y坐标4： SO,SN 起点、终点桩号5： FO 方位角6： LS 切线长7： RO,RN 起点、终点半径8： JIAJIAO 90不变9： Q 线路偏向（左-1，右+1）10: S 求点的桩号11： Z 距S桩的距离（左负，右正）子程序：FS2 Pol(X-A,Y-B):J≤0=>J+360→J子程序：SUB10.1739274226→A:0.3260725774→B0.0694318442→K:0.3300094782→L1-L→F：1-K→MG+QEKW(C+KWD)→Z[1] G+QELW(C+LWD)→Z[2] G+QEFW(C+FWD)→Z[3] G+QEMW(C+MWD)→Z[4] Acos(Z[1])→XX+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→Y子程序：SUB2G-90→T(Y-V)cos(T)-(X-U)sin(T)→WAbs(W)→W:0→ZLbl 4：Prog“SUB1” T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<10^(-6):Then0→Z：Prog“SUB1” (J-Y)/sin(F)→ZElseW+Z→W:Goto 4:IfEnd子程序：XBD“XP=”:A+Scos(F◢“YP=”:B+Ssin(F◢子程序：XBZJ+90→F:“R”?R：R→S:Prog “XBD”：“L”？L：-L→S：Prog“XBD”1。