数据录入主程序：CZXY    (运行此程序无数据显示)
Defm100:T″QIDIANCHANGSHU″:N″PANDUANCHANGSHU″：
A″X1″:B″Y1″:C″A0″:D″RA-QI″:″E″RB K-ZHONG″:F″K-QI″：G″K-ZHONG″：L=0(零):T=T-7:
Prog″XY″
Lbi 0:Z[N]=A
Z[N+1]=B
Z[N+2]=C
Z[N+3]=D
Z[N+4]=E
Z[N+5]=F
Z[N+6]=G
Lbi 1:{DEG}: D″RA-QI″:″E″RB-ZHONG″: G″K-ZHONG″：N=N+7
Z[N]=X:Z[N+1]=Y:Z[N+2]=U:Z[N+3]=D:Z[N+4]= Z[N-3]:Z[N+5]=F:Z[N+6]=G:
A=X:B=Y:D=Z[N-4]:C=U：F=Z[N-2]： Prog″XY″:N<T=>Goto1:≠>Goto2
Lbi 2:″END″

子程序：XY1
Fix3:A=Z[N-6]:B=Z[N-5]:C=Z[N-4]:D=Z[N-3]:E=Z[N-2]:F=Z[N-1]:G=Z[N]
Prog″XY″： ″X=″:X◢
″Y=″:Y◢Prog″BD″

子程序：XY
R=(E-D)/Abs(G-F):Q=Abs(H-F):V=RQ
U=C+(V+2D)Q×90/π
M=C+(V/4+2D)Q×45/(2π):N=C+(3V/4+2D)Q×135/(2π):K=C+(V/2+2D)Q×45/π
X=A+Q(cosC+4(cosM+cosN)+2cosK+cosU)/12+Lcos(U+90)
Y=B+ Q(sinC+4(sinM+sinN)+2sinK+sinU)/12+Lsin (U+90)

子程序：BD
Lbi 0: X > O=>Goto 1: ≠=>Goto4◣
Lbi 1:Y>P=>Goto2:  ≠=>Goto3◣
Lbi 2:B″A″=tan-1 ((Y-P)/(X-O)) ◣
L=√((Y-P)2+(O-X)2) ◣
Lbi 3:B″A″=360+ tan-1((Y-P)/(X-O)) ◣
L=√((Y-P)2+(X-O)2) ◣
Lbi 4: B″A″=180+ tan-1((Y-P)/(X-O)) ◣
L=√((O-X)2+(Y-P)2) ◣

程序说明: 只需运行主程序
数据输入显示说明:
Y0,Y0:测站点坐标
PANDUANCHANGSHU:常数
QIDIANCHANGSHU：常数
X,Y1:线型起点坐标
A0:线型起点切线方位角
RA-QI, RB K-ZHONG:线型起终点曲率半径(直线为0,左偏向时为-1/R,右偏向时为+1/R)
K-QI:线型起点桩号
K-ZHONG:线型终点桩号
K:放样里程桩号
J:放样里程边桩距

结果显示说明:
X,Y:放样点坐标
A:测站点与放样点的方位角
L:测站点与放样点的距离

程序中√为根号
运行数据录入CZXY时无数据显示
根据自有计算器的内存只需对程序《数据录入主程序： CZXY》中的Defm100数值进行修改
增加线路时无需修改或增加程序只需在运行时对PANDUANCHANGSHU, QIDIANCHANGSHU常数取值就可

PANDUANCHANGSHU, QIDIANCHANGSHU常数取值如下
例：总有以下线路
第一条线路中有8条线元
运行CZXY时： QIDIANCHANGSHU=7*N   N=8（线元数量）    PANDUANCHANGSHU=1
运行KJ=> XY时：QIDIANCHANGSHU=1
第二条线路中有10条线元
运行CZXY时： QIDIANCHANGSHU=(7*N)第一条线路中的QIDIANCHANGSHU取值+7*N  N=10(本线路线元数量）    PANDUANCHANGSHU=(7*N)第一条线路中的PANDUANCHANGSHU取值+1
运行KJ=> XY时：QIDIANCHANGSHU=(7*N)第一条线路中的PANDUANCHANGSHU取值+1
第三条线路中有12条线元
运行CZXY时： QIDIANCHANGSHU=(7*N)第二条线路中的QIDIANCHANGSHU取值+7*N  N=12(本线路线元数量）    PANDUANCHANGSHU=(7*N)第二条线路中的PANDUANCHANGSHU取值+1
运行KJ=> XY时：QIDIANCHANGSHU=(7*N)第二条线路中的PANDUANCHANGSHU取值+1
PANDUANCHANGSHU, QIDIANCHANGSHU：除第一条线路时其余线路取值均为累加前面线路的值
本程序暂未有工程调试，请自行调试，调试后有何问题请联系作者，数据录入后非急需情况请不要运行数据录入程序防止数据错误,也可在数据录入程序中自行加入密码，程序输入后请仔细检查,防上输入错误产生计算错误。