公路边坡放样程序：
主程序BPFY
G—测站X H—测站Y N—中桩X E—中桩Y B---路肩距路中宽度 C—切线方位角 O—控制左右 –左+右 R—设计路肩高程 Q—边沟及挖方平台长度 S--移动距离 K—实测高程 L—控制值，当L在0.05m附近时，即可打桩，在填方时，如L为负，指挥移尺员向后移1.5L，如为正，向前移1.5L；在挖方时，如L为负，指挥移尺员向前移L，如为正，向后移L
本程序的填方边坡为1：1.5，挖方边坡为1：1
主程序BPFY
G+H
Lb1 0
N+E+B+C+R“SJGC”+Q“BGC”
Lb1 1
Fixm
{O}
“O=”：O
O=-1→F=C-90
GoTo 2
≠→F=C+90
Lb1 2
“X=”：X=N+B COS(F)▲
“Y=”：Y=E+B SIN(F)▲
Prog”SUB. RD”
Lb1 3
Fixm
{A}
A”DMGC”
D=R-A
D>0→goto 4
Lb0 4
Z[2]=B+1.5D
“X=”：X=N+Z[2] COS(F)▲
“Y=”：Y=E+Z[2] SIN(F)▲
Prog”SUB RD”：Goto5
≠→GoTo 6
Lb1 5
Fixm
{K}
K>R→Fixm
{S}
“X=”：X=X-SCOS(F)▲
“Y=”：Y=Y-SSIN(F)▲
1
Prog”SUB RD”：A=K：GoTo5
≠→X=N+Z[2] COS(F)：Y=E+Z[2] SIN(F) L=K-A▲
M=ABS(L)
M
≠→A=K：“X=”：X=N+(B+1.5(R-K))COS(F) ▲ “Y=”：Y=E+(B+1.5(R-K))SIN(F) ▲
Prog”SUB RD”
GoTo 5
Lb1 6
Q
Z[2]=Q+B+ABS(D)
“X=”：X=N+Z[2] COS(F)▲
“Y=”：Y=E+Z[2] SIN(F)▲
Prog”SUB RD”
Lb1 7
Firm
{K}
K
{S}
“X=”：X=X-SCOS(F)▲
“Y=”：Y=Y-SSIN(F)▲
Prog”SUB RD”： A=K：GoTo 6
≠→X=N+Z[2] COS(F)：Y=E+Z[2] SIN(F) L=K-A▲
M=ABS(L) ▲
M
≠→A=K：“X=”：X=N+(B+Q+K-R)COS(F) ▲ “Y=”：Y=E+(B+Q+K-R)SIN(F) ▲Prog”SUB RD”GoTo 7
Lb1 8
“END”
2
公路边坡放样程序：
主程序BPFY
G—测站X H—测站Y N—中桩X E—中桩Y B---路肩距路中宽度 C—切线方位角 O—控制左右 –左+右 R—设计路肩高程 Q—边沟及挖方平台长度 S--移动距离 K—实测高程 L—控制值，当L在0.05m附近时，即可打桩，在填方时，如L为负，指挥移尺员向后移1.5L，如为正，向前移1.5L；在挖方时，如L为负，指挥移尺员向前移L，如为正，向后移L
本程序的填方边坡为1：1.5，挖方边坡为1：1
主程序BPFY
G+H
Lb1 0
N+E+B+C+R“SJGC”+Q“BGC”
Lb1 1
Fixm
{O}
“O=”：O
O=-1→F=C-90
GoTo 2
≠→F=C+90
Lb1 2
“X=”：X=N+B COS(F)▲
“Y=”：Y=E+B SIN(F)▲
Prog”SUB. RD”
Lb1 3
Fixm
{A}
A”DMGC”
D=R-A
D>0→goto 4
Lb0 4
Z[2]=B+1.5D
“X=”：X=N+Z[2] COS(F)▲
“Y=”：Y=E+Z[2] SIN(F)▲
Prog”SUB RD”：Goto5
≠→GoTo 6
Lb1 5
Fixm
{K}
K>R→Fixm
{S}
“X=”：X=X-SCOS(F)▲
“Y=”：Y=Y-SSIN(F)▲
1
Prog”SUB RD”：A=K：GoTo5
≠→X=N+Z[2] COS(F)：Y=E+Z[2] SIN(F) L=K-A▲
M=ABS(L)
M
≠→A=K：“X=”：X=N+(B+1.5(R-K))COS(F) ▲ “Y=”：Y=E+(B+1.5(R-K))SIN(F) ▲
Prog”SUB RD”
GoTo 5
Lb1 6
Q
Z[2]=Q+B+ABS(D)
“X=”：X=N+Z[2] COS(F)▲
“Y=”：Y=E+Z[2] SIN(F)▲
Prog”SUB RD”
Lb1 7
Firm
{K}
K
{S}
“X=”：X=X-SCOS(F)▲
“Y=”：Y=Y-SSIN(F)▲
Prog”SUB RD”： A=K：GoTo 6
≠→X=N+Z[2] COS(F)：Y=E+Z[2] SIN(F) L=K-A▲
M=ABS(L) ▲
M
≠→A=K：“X=”：X=N+(B+Q+K-R)COS(F) ▲ “Y=”：Y=E+(B+Q+K-R)SIN(F) ▲Prog”SUB RD”GoTo 7
Lb1 8
“END”
2