1、=>,,条件转移成立符号，其用法相当于BASIC 中的 IF,,THEN （假设语句相当于假如,, 然后，IF 相当于条件 ,,THEN 相当于结果）语句2、≠ >,, 条件转移不成立符号，其用法相当于BASIC 中的 IF,,ELSE 语句通常二者连用，相当于BASIC 中的 IF,,THEN ,,ELSE 语句（它的英语形式一般为if a＞b then c＞d else if b＞a the,, ）3、⊿,,条件转移结束符号，与=>和≠ >配合使用，放在条件语句最后面4、 LbI ,, 标记命令用于将一段语句作转换标记后可接字母、数字、符号，但不能超过两个字节，如不能用≥10 的数字作行标，否则会出现出错信息5、Goto,,（条件）转移命令前面可加条件语句，与BASIC 中的 GOTO 作用相同通常与 LbI 一起用，如果所转移的行号无效，则会显示：GO ERROR（详见说明书）出错信息6、 Dsz,, 减量循环命令可减少未知数的数量7、 Isz,, 增量循环命令8、 Pause ,, 暂停命令后可接0~9 之间的整数n，可使某一数据显示n/2 秒钟，然后继续运行下面的程序它被认为是一个语句。
9、 Fixm,, 变量锁定命令该命令能使其所有变量值（A~Z ）均当成定数处理当程序运行时，将不需要输入变数（“{} ”内的变数除外） ，而是将存贮器中原有的数值来完成计算10、 {} ,,变量输入命令只程序在循环使用时经常发生改变的数字，如里程、和宽度它的输入方式可以使很多种如{AB}{A,B}{A B}都可以注意“{”和“ } ”必需成对输入否则会出现Syn ERROR（详见说明书）出错信息11、=、≠、 >、500→DimZ为数据库增加额外变量500 个，在SET 、SETPFDYS 程序根据实际再增减变量以保证不浪费内存50→Z[C+22]：本程序设置变量个数目前50 个刚刚够用PASSWORDS“?I:I →Z[C+39]重设要素保护密码Cls:Stop FileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50 →C “PASSWORDS“?J:Cls:J ≠Z[C+39]=>Stop FileName:SHELL(外壳程序 ) 50→C ;在扩充变量预留前50 个给别的程序用如不够就适量加大RESET ，SHELL ，SET ，SETPFDYS，这几个程序中 C值必需一致Norm 1 Z[C+23]→N当前分段要素 N坐标Z[C+24]→E当前分段要素 E坐标Z[C+25]→M当前分段要素起点桩号Z[C+26]→H当前分段要素起点方位角（正北）单位：弧度Z[C+27]→A当前分段要素起点曲率有左偏负右偏正（注意不是半径）Z[C+28]→R当前分段要素终点曲率有左偏负右偏正（注意不是半径）Z[C+29]→L当前分段要素长度Z[C+3]→W斜桩角度Lbi S Prog“PROGMODE“ ; 进入模式功能选择Lbi A Deg:Norm 1:Cls Z[C+1]→G:“ZH“?G ;桩求桩号If G=-1:Then Prog“WORK-SET“:Goto S:IfEnd 进入工作设置G →Z[C+1] Z[C+2]→B:“JL“?B:B →Z[C+2];B 横向距离，左正右负Lbi B Prog “ZBJS“ ;坐标正算Fix 3:Cls ; 设置三位小数“ZH＝“:Locate 4,1,G ; 第一行显示桩号“X＝“:Locate 3,2,X ;第二行显示 X(N)坐标“Y＝“:Locate 3,3,Y ；第三行显示 Y(E)坐标Prog “GCJS“ ;高程计算“Z“:Locate 2,4,Z+Z[C+41] ；第四行显示 Z 坐标Locate 10,4,B ；第四行显示横向距离0→I Do:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 Or Getkey=26) ; 锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1 If Getkey=26=> Prog “SDFY“:Goto B:EndIf Pol(Z[C+35]-X,Z[C+36]-Y) Cls:“DL“:Locate 3,1,I:Locate 12,1,Z[C+45] “→“:Locate 3,2,B:Locate 12,2,Z[C+49] “FWJ“ JJ+360 →J:J ◤DMS ◢ J→Z[C+46] I →Z[C+47] Goto 1 FileName：SDFY 隧道放样Cls Z[C+2]→V Z[C+41]→D Z[C+43]→I:“DQD- Z“?I:I→Z[C+43] Z[C+42]→J:“R“?J:J →Z[C+42] Z[C+40]→K:“R - DL“?K:K→Z[C+40] Abs(V-K)→P√(P2+(I -Z- D)2)→U计算实际半径Fix 3:Cls ; 设置三位小数“ZH＝“:Locate 4,1,G “R“:Locate 2,2,U Locate 10,2,U-J If I-Z-D-J>0 :Then I-Z-D-√(J2 - P2)→P:0→O Else If P-J>0:Then P-√(J2 -(I-Z-D)2)→O:0→P Else P- √(J2 -(I-Z-D)2)→O:I -Z-D- √(J2 -P2)→P IfEnd:IfEnd “H“:Locate 2,3,O Locate 8,3,“V“ Locate 9,3,P Locate 1,4,Z+D Locate 9,4,I 0→T Do:T+1→T:T=1000=>Return:LpWhile Not(Getkey=57 Or Getkey=27) ; 锁定键盘，并在几十秒后自动返回Getkey=57=>Return If V-K>0 :Then V-O →B:Else V+O→B:IfEnd FileName：ZBJS 坐标计算程序Prog“READDAT“ Rad G-M →Q IF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else3 →J:IfEnd:IfEnd 判断线元类型If J=1 :Then H→F:N+QCos(H) →X:E+QSin(H)→Y:IfEnd直线段直接计算If J=2 :Then H+QR →F:Rec(Abs(2Sin(Abs(0.5QR))÷R),H+QR ÷2):N+I →X:E+J→Y:IfEnd圆弧段直接计算If J=3 :Then Goto 5 :IfEnd X+BCos(F+W) →X Y+BSin(F+W) →Y Deg:Return Lbi 5 用五点通用坐标计算计算缓和段0.5(R- A)÷L→K AQ →I KQ2 →J 0.0469100770→P:H+IP+JP2→O 0.2307653449→P:H+IP+JP2→T 0.5→P:H+IP+JP2→D 0.7692346551→P:H+IP+JP2→F 0.9530899230→P:H+IP+JP2→P 0.1184634425→I 0.2393143352→J 0.2844444444→Y N+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P)) →X E+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→Y H+AQ+KQ2→F X+BCos(F+W) →X Y+BSin(F+W) →Y Deg:Return FileName:TURNZH( 坐标反算 ) Prog“INNEZ“ Z[C+37]→U Z[C+38]→V 0→B：M+L ÷2→G ： Prog“ZBJS“ Lbi S:Rad U-X→I:V -Y→J If I=0 And J=0 :Then Goto A:IfEnd Pol(I,J) Lbi A:Rec(I,J-F) G+I→G:IF Abs(I)>0.0001 :Then Prog“ZBJS“:Goto S↙ J→B G →Z[C+1] J→Z[C+2] Prog“GCJS“ FileName：INNEZ 实测坐标输入程序Lbl S:Norm 1:Cls Z[C+50]=2=>Goto 1 Z[C+37]→I IGoto 1 “DQD-N“?I 输入待求点 N坐标IGoto 1 I →Z[C+37] Z[C+38]→I:“DQD-E“?I 输入待求点 E坐标IGoto 1 I →Z[C+38] Z[C+43]→I:“DQD-Z“?I 输入实测高程IGoto 1 I →Z[C+43]Return Lbi 1 I=- 1=>Then 2→Z[C+50] If I=-2:Then Prog“WORK-SET“:Goto S:IfEnd 进入工作设置Prog“INFWJDLDH“ Z[C+50]=1=>Goto S Return FileName：INFWJDLDH 实测坐标（用方位角，距离，高差）输入程序Lbi S:Deg:Norm 1:Cls Z[C+46]→J:“DQD-FWJ“?J JGoto 1 J→Z[C+46] Z[C+47]→I:“DQD- DL“?I:I →Z[C+47] Z[C+48]→K:“DQD - DZ“?K:K→Z[C+48] Z[C+49]→P:“RHT“?P:P→Z[C+49] Rec(I,J) Z[C+35]+I →Z[C+37] Z[C+36]+J→Z[C+38] Z[C+44]+Z[C+45]+K- P→Z[C+43] Return Lbi 1 If J=-2:Then Prog“WORK-SET“:GotoS:IfEnd 进入工作设置1→Z[C+50] Return FileName: WORK-SET 测站设置程序Norm 1:Cls 50→C Z[C+32]→I:“DAT1 2 3“?I:I→Z[C+32]平曲线要素数库类型选择1 为内置式，2 文件式， 3 实时输入 (查看当前要素值 ) Z[C+4]→I:“0 1 2 3“?I:I→Z[C+4]选择本程序模式0 为坐标正算， 1 坐标反算，2 横向边仰坡放样， 3，纵向边仰坡放样 (隧道进出口用到 ) Z[C+41]→I:“GC -DH“?I:I →Z[C+41]放样点高差常数Z[C+35]→I:“STATION-N“?I:I →Z[C+35]设置测站 N坐标Z[C+36]→I:“STATION-E“?I:I →Z[C+36]设置测站 E坐标Z[C+44]→I:“STATION-Z“?I:I→Z[C+44]设置测站 Z 坐标Z[C+45]→I:“STATION-HI“?I:I→Z[C+45]设置仪高Cls FileName: PROGMODE 程序功能模式选择Z[C+4]→I I=0=>Return ;正算模式I=1=>Prog“TURNZH“ ;反算模式I=2=>Prog“HXBYP“ ;横向边仰坡放样模式I=3=>Prog“ZXBYP“ ; 纵向边仰坡放样模式FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1 Z[C+40]→I:“QPD- DL“?I:I →Z[C+40]输入起坡点与中桩距离常数Z[C+41]→I:“QPD- DZ“?I:I →Z[C+41]输入起坡点与中桩高差常数Z[C+42]→I:“i“?I:I→Z[C+42]输入边仰坡坡度，左仰坡( 路堑 )为正，右仰坡 ( 路堑) 为负，左边坡为负，右边坡为正Cls:Z[C+43] →I:。