谁能给我个 卡西欧4800坐标方位角计算编程程式

这个是我月个朋友编写的“卡西欧4800计算全站仪坐标程序”一共是5个程序。1个主程序，4个子程序，好用的话大家帮我推荐一下：
平曲线坐标计算程序（CASIO fx-4800P）

A子程序：X＞M⇒Prog“B”：Goto 0：≠⇒X=M⇒Prog“C”：≠⇒X＜M⇒Prog“B”：Q=Q+180：Lb1 0：Q=Q+360：Q≥360⇒Q=Q-360◢≠⇒Q=Q◢
B子程序：Q“Q”=tan-1（（Y-N）÷（X-M）
C子程序：Y≥N⇒Q=90◢
≠⇒Q=270◢
D子程序：C“SO”=√（（X-M）2+（Y-N）2）
PQX主程序：
R“R”S“LS1”U“LS2”W“ZG”P“WZH”：A=90S÷Rπ：B=90U÷Rπ：C=S2÷24R：D=U2÷24R：E=S÷2-S＾3÷240R2：F=U÷2-U＾3÷240R2：Q“T1”=E+（R+C）tan（AbsW÷2）+（D-C）÷sin AbsW◢
K“T2”=F+（R+C）tan（AbsW÷2）-（D-C）÷tan AbsW◢
O“S”=（AbsW-A-B）Rπ÷180+S+U◢
J“JD”T“XJD”V“YJD”：A“ZH”=J-Q◢
B“HY”=A+S◢
E“YH”=A+O-U◢
F“HZ”=A+O◢
G“XZH”=T+Q cos（P+180）◢
H“YZH”=V+Q sin（P+180）◢
I“XHZ”=T+K cos（P+W）◢
J“YHZ”=V+K sin（P+W）◢
M“XO”N“YO”：Prog“A”：Prog“D”◢
Lb1 O：｛Z｝：Z“ZHUANG HAO”：｛D｝：D：｛T｝：T“JG”：Lb1 0：Z≤A⇒Goto 1：≠⇒Z＞A⇒Z≤B⇒L=Z-A：Goto 2：≠⇒Z＞B⇒Z≤E⇒L=S：Goto 2：≠⇒Z＞E⇒Z≤F⇒L=F-Z：Got