哪位大神帮忙把这个给编成卡西欧fx-5800p的程序

 原程序是卡西欧fx—4500PA程序

L1

fix 3：AXYD

L2

Lb1 0：｛:EFGHMI｝:EFGHMI:Rec（E,F）:V=V-.157E-6V×（D+W◢J=W-H+I+.44VV/6371000◢M＞0⇒fix 2：D-M-H◢fix 3△

L3

D=D+J:A=A+G-180：A＜0⇒A=A+360△A≥360⇒A=A-360△A◢X=Rec(V,A)+X◢Y=Y+W◢D◢Goto 0