精选优质文档-倾情为你奉上(逻辑运行运算公式主程序):Deg:Fix 3:20DimZ（回车符号）“ZS1，FS2”？J（回车符号）If J=1：Then Goto 0：Else Goto 4：IfEnd（回车符号）Lbl 0（回车符号）“ROAD？1-5”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl 1（回车符号）“KP”？P（回车符号）Prog “ROAD-DATA”（回车符号）M+ON（回车符号）Prog “ROAD-SUB1”（回车符号）Prog “ROAD-SUB2”（回车符号）“XP=”：F（黑色三角）“YP=”：G（黑色三角）“BP=”：Z（黑色三角）DMS（黑色三角）If U=0：Then Goto 3:Else Pol(F-U，G-V)：IfEnd（回车符号）Lbl 2（回车符号）If J0：Then J+360J：IfEnd（回车符号）“A1=”：J（黑色三角） DMS（黑色三角）“D1=”：I（黑色三角）Lbl
