“JIA-KUAN-ZHI=”:J▲ “CHAO-GAO-ZHI=”:H▲ Goto 0
Lbl 2:Prog“ZHONG ZHUANG” Z[3]=W:Z[4]=N[1]:Z[5]=E[1]：Z[53]=0 Lbl B:D=Z:K=Z[7]:Z[53]=1+Z[53] Z[65] <0﹦> Goto N
P=Z[53]：V=Z[54+P]：K=Z[60+P]：Goto P Lbl N:{K}：K=0﹦> V=90：Goto P {V}
Lbl P:K＜0﹦> V=-AbsV：K=AbsK：≠>V＜0﹦> V=-AbsV：K=AbsK：≠>V=AbsV：K= AbsK P=Z[4]+cos(Z[3]+V) ×K-Z[1] F=Z[5]+sin(Z[3]+V) ×K-Z[2]
V＜0﹦> V=AbsV：K=-AbsK：≠>V=AbsV：K= AbsK M=2﹦> Goto 5 “N[2]=”：P+Z [1]▲ “E[2]=”：F+Z [2]▲ M=1﹦> Goto 8 Lbl 5: Prog “JU-LI FWJ” “FWJ=”:W▲ “JU-LI=”:L▲ M≠3﹦> Goto 8
“SHUI PING JIAO=”：W=Abs(W-Z[12]):W->DMS▲ Lbl 8:I=Z[1]:J=Z[2]:N=Z[10]:E=Z[11]:Z[7]=K U=Z[52]:T=Z[51] “NOW Z=”:Z▲ Z[53]=U﹦> Z=Z+T “NO.”：Z[53] ▲
“NEXT Z=”:{Z}：Z=D﹦> Goto B:≠> Goto 0 Lbl V：V=14﹦>Prog “P-Q-X J-S” V=14﹦>{Z}：Goto W
加宽值； 超高值。
输入桩位的K，V值：K为边桩到中桩的距离（左为负值，右为正值）， V为旋转角度（左为负值，右为正值。正交时V取90或-90）；当V或K为负值时，计算左侧边桩；当V、K同时为正值时，计算右侧边桩；当K=0时，计算中桩。
N[2]=为该桩位的X坐标值； N[1]=为该桩位的Y坐标值；
FWJ=为测站点与路线中、边桩坐标间的方位角。 JU-LI=为测站点与路线中、边桩坐标间的距离；
SHUI PING JIAO=为测站点与后视点及测站点与路线中、边桩间的水平夹角。
NOW Z=为现在的桩号；
NO.为现在的桩号的第几个桩位； NEXT Z=为下一桩位的桩号。 二 CHAO GAO (超高)
M“SHI FUO INPUT CAN SHU（M＞0，N O M＜0，YES）” M≥0﹦> Goto 0
“INPUT V ZUO﹦> V<0 YOU﹦> V≥0”: VQC：S“S1=”:Z[1]=S: {S}：S“S2=”：Z[20]=S：S=Z[1]：JBH:Z[8]=C:Z[4]=V:Z[9]=K: Z[10]=J：Lbl 0: {Z}:M<0﹦> Goto A
I“INPUT I （I≥0﹦> SHE-JI GAO-CHENG≠>JI-SUAN CHAO-GAO）” Z[15]=I：Prog “SQSBG-1”: Z[8]=G Z[15]<0﹦> Goto 1
“SHE-JI GAO-CHENG=”：G▲ Lbl 1:Prog “CAN SHU” A
Lbl A:C=Z[8]:V=Z[4]:K=Z[9]:J=Z[10] Lbl B: Prog “CHAO GAO-1” “I[1]=”：100*I[1] ▲ “I[2]=”：100*I[2] ▲ “B[1]=”：B[1] ▲ “B[2]=”：B[2] ▲
“Z[1]=”：Z[1] ▲ 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程
输入M值，当M〈0时，则需要输入圆曲线参数；当M≥0,则直接调用子程序中的对应参数。 [输入v值，当圆曲线为左转弯时，则V为负值 , 当圆曲线为右转弯时，则V为正值 。 圆曲线（ZH）起点桩号Q，圆曲线（HZ）起点桩号C，缓和段长度为S，路面宽度为K（半幅宽度），内侧路基最大加宽值为J，路拱横坡度为B（必须取负数），最大超高横坡度为H（必须取非负数）。]
显示结果含义：G为设计高程。
I[1]为左侧路面横坡度，负值为左侧低于中桩，正值为左侧高于中桩。 I[2] 为右侧路面横坡度，负值为右侧低于中桩，正值为右侧高于中桩。 B[1]为左侧路面宽度 B[2]为右侧路面宽度 主程序名及内容 备 注 （接上页） “Z[2]=”：Z[2] ▲ “Z[3]=”：Z[3] ▲ M<0﹦> Goto 0
“H[1]=”：H[1]=Z[8]+Z[1] ▲
“H[2]=”：H[2]=Z[8]+Z[2] ▲ “H[3]=”：H[3]=Z[8]+Z[3] ▲
Goto 0 Z[1]为左侧路面边缘与设计高程之差 Z[2]为中桩处与设计高程之差 Z[3]为右侧路面边缘与设计高程之差 H[1]为左侧路面边缘设计标高 H[2]为中桩处设计标高 H[3]为右侧路面边缘设计标高 三 YYLDFWJ (任意两点方位角) Lbl 0:XYNE：P=N-X：F=E-Y Prog “JU-LI FWJ” “JU-LI=”:L▲ “FWJ=”:W▲
{XYNE}: Goto 0 计算任意两点间的距离和方位角 输入第一点的坐标X，Y；输入第一点的坐标N，E。 显示结果含义： L为任意两点间的距离 W为任意两点间的方位角 四SQXBG（竖曲线标高） M:M≥0﹦> Goto 1
IJRNH：Lbl 1: {Z}：Prog “SQSBG-1” “SHE-JI GAO-CHENG=”：G▲ Goto 1 计算竖曲线设计标高
(输入M值，当M〈0时，则需要输入圆曲线参数； 当M≥0,则直接调用子程序中的对应参数。） 显示结果含义：G为设计高程 五 TIAN WA G-C(填挖高差) N “INPUT JIE-GOU-CENG-HOU-DU” H “INPUT SHI-XIAN-GAO-CHENG”:M=3 Z[8]=N:Z[9]=H:Z Lbl A:D=Z Prog“SQSBG-1”
Z[15]=G:Prog“CAN SHU” A
Z[5]=I[1]: “INPUT V(V=1,2,3 ZUO ZHONG YOU)”:{V} V=1﹦>Goto 1:≠> V=2﹦>Goto 2:≠> V=3﹦>Goto 1:≠> Goto 4
Lbl 1:J=Z[11]: “KUAN-DU>=SHE-JI﹦>J>=0≠>J〈0” {J,F}:Z[11]=J
V=1﹦>I=Z[5]:H=Z[1]: ≠> I=Z[2]:H=Z[3] Z[7]=Z[10]+H+IJ-Z[8]-Z[9]+F：Goto 3
Lbl 2:J=Z[12]：“ZUO﹦>J〈0≠>YOU J>0≠>ZHONG J=0” {J，F}:Z[12=J：J>0﹦>I=Z[5]：≠>I=-I[2]
Z[7]=Z[15]+Z[2]-IJ-Z[8]-Z[9]+F▲ Lbl 3:“TIAN-WA GAO-CHA=”：Z[7] ▲
Lbl 4:N=Z[8]：H=Z[9]：{Z}:Z=D﹦> Goto B:≠> Goto A
计算左、中、右处填挖高差（必须调用平、竖曲线参数才能进行计算）
输入结构层厚度N值（即本结构层顶面至设计高程之差值）；输入视线高程H值。输入桩号Z值。
输入v值，当计算左侧边桩高差时，则V=1；当计算中桩高差时，则V=2, 当计算右侧边桩高差时，则V=3值 。输入边桩加宽值J，当边桩至中桩之距离大于该侧设计路基宽度时，则J为正值；当边桩至中桩之距离小于该侧设计路基宽度时，则J为负值。输入中桩或边桩处的前视读尺数F值。当V=2时，J为偏左或偏右的距离，左为负值，右为正值，不偏离 J=0；铺稳定层适用中桩左右偏离，其他J=0。
显示结果含义：
为所侧点至本结构层顶面之填挖高差（正值为 填，负值为挖）。 主程序名及内容 备 注 六 BZZB （边桩坐标）
I“INPUT I （I≥0﹦>JU-LI FWJ FY ≠>X，Y FY）”：Z[15]=I M“INPUT M （M=244﹦>S244-QIAO）”：M≠244﹦>Goto B Lbl A:Z“INPUT LI-CHENG”：Z≥148﹦>Z/1000 Z≥148﹦> Goto A
Z＞130﹦>Prog “S244-QIAO”
P=N-X：F=E-Y：“QIAO-LIANG ZHONG-XIN ZHUANG-HAO Z=”：Z▲ Prog “JU-LI FWJ”
N=（X+N）/2：E=（Y+E）/2：Z[15]＜0﹦>Goto C I“INPUT BM BIAN-HAO”：Z[13]=I：Prog “S244-BM” “X=”：X▲ “Y=”：Y▲ “H=”：H▲ Goto C
Lbl B: Z[15]＜0﹦>Goto 1 “INPUT CE-ZHAN-DIAN X,Y”:XY
Lbl 1:“JI-SUAN-YUAN-DIAN N，E，FWJ”：NE：W=Z[2]：{W}
Lbl 0: Z=Z[14]：{Z}：Z“INPUT QIAN-HOU JU-LI（QIAN +，HOU ）”：{VK}：Z[14]=Z：Z≥0﹦>A=0：Z[1]=Z：≠>A=180：Z[1]=-1 N[2]=N+cos(W+A)×Z[1]+cos(W+V)×K E[2]=E+sin(W+A)×Z[1]+sin(W+V)×K I=Z[15]：Z=[14]：Z[15]＜0﹦>Goto 2 P=N[2]-X：F=E[2]-Y：Prog “JU-LI-FWJ” “FWJ=”:W▲ “JU-LI=”:L▲ W=Z[2]：Goto 0 Lbl 2:“N[2]=”：N[2]▲
“E[2]=”：E[2]▲
Goto 0 主要进行桥梁及涵洞各点坐标计算放样
输入I值（距离方位角放样时I≥0，坐标放样时I＜0）。 输入M值（M=244时，进行S244线桥梁放样计算）。 输入S244线桥梁的里程桩号。
显示桥梁中心桩号
输入桥梁附近的导线点编号
输入测站点坐标
输入计算原点的坐标N、E。 输入前后距离，角度及左右距离。
显示测站点与计算点的方位角和距离。
显示计算点的坐标。 7 ZHUI PO （锥坡）
I“INPUT I（I≥0﹦>JU FWJ FY ≠>X，Y FY）”：ABWVXYKM：Z[3]=W： I<0﹦> Goto 0
“INPUT CE-ZHAN-DIAN N,Y”:{NE} Lbl 0:Z[1]=M/K：Z[2]=B√（1-Z[1]2） N[2]=X+A*Z[1]cosW+Z[2]cos(W+V) E[2]=Y+A*Z[1]sinW+Z[2]sin(W+V) I<0﹦> Goto 1
P=N[2]-X：F=E[2]-Y：Prog “JU-LI-FWJ” “FWJ=”:W▲ “JU-LI=”:L▲ W=Z[3]：Goto 2 Lbl 1:“N[2]=”：N[2]▲ “E[2]=”：E[2]▲
Lbl 2:{M}：Goto 0 进行锥坡放样计算
子程序名及内容 备 注 1 XY （坐标计算子程序） Prog “ZB”：Z[53]=0
Lbl B:Z[69]=Z:B=Z[70]:Z[53]=1+Z[53] Z[65]<0﹦> Goto N
P=Z[53]：U=Z[54+P]：B=Z[60+P]
Lbl P:B＜0﹦> U=AbsU：B=-AbsB：≠>U＜0﹦> U=AbsU：B=-AbsB：≠>U=AbsU：B= AbsB Goto 3
Lbl N:{B}：B“K（ZUO-，YOU +）”：B≠0﹦>U=Z[68]:{U}：U“V（ZHENG JIAO V=+90）”：U=AbsU： Z[68]=U
Lbl 3:N[2]=N+Bcos（W+U）：E[2]=E+Bsin（W+U）