哪位测量的高手将这条卡西欧4850的万能路面程序改为卡西欧5800的，小弟在这里感激不尽！期待！

　　Deg↙
　　?R 半径
　　〃LS〃?V 缓和曲线长
　　〃JD〃?U 交点桩
　　〃XJD〃?W 交点坐标
　　〃YJD〃? S
　　?A↙转角
　　“FWJ”?C 方位角
　　V2÷24R-V＾4÷2688R＾3→P
　　V÷2-V＾3÷240R2→M
　　(R+P)tan(A/2)+M→T
　　〃T=〃:T▲
　　Lb1 1:
　　?N 桩号
　　?E
　　?Q
　　U-T→H 直缓里程
　　πRA÷180+V+H→K 缓直里程
　　C+180→J
　　W+TcosJ→X直缓点坐标
　　S+TsinJ→Y↙
　　N≤H => Goto0
　　IF N≤H+V: Then N-H→L:Goto2: IfEnd
　　N≤K-V=> Goto3
　　IF N≤K: Then K-N→L: Goto2: IfEnd↙
　　N+T-K→L
　　C+ZA→F
　　W+Lcos F→X
　　S+LsinF→Y
　　Goto7
　　Lb1 0
　　H-N→L
　　C→J
　　X+LcosJ→X
　　Y+Lsin J→Y
　　Goto7↙
　　Lb1 2
　　L-L＾5÷40R2V2-L＾9÷3456R＾4V＾4→B
　　L＾3÷6RV-L＾7÷336R＾3V＾3→O
　　90L2÷RVπ→I
　　IF N≤H+V :Then C+ZI→F: B→D： O→G:Goto6 :ifend
　　C+Z(A-I) →F:T+TcosBcosA-OsinA→D
　　TsinA+OcosA-BsinA→G:Goto6:↙
　　Lb1 3:
　　N-H→L:
　　90(2L-V)÷πR→O:
　　RsinO+M→D:R-RcosO+ P→G:
　　ZO+C→F↙
　　Lb1 6:
　　PO1(D,G) →I:
　　C+ZJ→J:
　　X+IcosJ→X:
　　Y+IsinJ→Y:
　　Lb1 7
　　IF E=0 :Then 〃X=〃:X▲
　　〃Y=〃:Y▲
　　Goto1 : else
　　If E＞0: then F+Q→F : else F+Q-180→F: ifend:ifend
　　if F≤0 :then F+360→F: else if F＞360: then F-360→F: ifend: ifend
　　X+Abs(E)cosF→X↙
　　Y+Abs(E)sinF→Y↙
　　〃X=〃:X▲
　　”Y=”:Y▲
　　Goto1↙
　　如果有问题加我qq1095174953