開放トラバース計算 FILE KAI  L"HO=" : X"X=" : Y"Y=" EXE   M=Int L:N=Frac L×100:O=Int N :P=Frac N×100:A=M+(O÷60+P÷3600) :Q"KA=":C"S="EXE R=Int Q:S=Frac Q×100:T=Int S :V=Frac S×100:B=R+(T÷60+V÷3600) :L=B+A+180:X=X+C×COS L :Y=Y+C×SIN L :X"PX=" ▲Y"PY=" ▲ L≧360⇒L=L−360:Goto 2:≠⇒L=L :Lbl 2:L≧360⇒L=L−360:Goto 3:≠⇒L=L :Lbl 3 :E=Int L:F=Int((L−E)×60) :G=L−E−(F÷60):H=Int(G×3600) :L=E+(F÷100)+(H÷10000) 開放トラバース計算  HO=?      入射角  後視から器械点への方向角 60.2030 EXE 角度入力は、60°20′30″ 60.2030と入力してください。   X=?     器械設置点のX座標に入力   例題  100.123 EXE   Y=?     器械設置点のY座標に入力   例題  200.456 EXE KA=?   測角した角度夾角入力 例題  50.1015 EXE  S=?   測定距離入力      例題   40.125  EXE PX=114.1832704  EXE PY=162.875095   EXE L=290.3045   そのままEXE (方向角290°30′45″) HO=?290.3045 そのままEXE   X=?114.1832704  そのままEXE Y=?162.875095   そのままEXE KA=?   測角した角度夾角入力 例題  190.2030 EXE  S=?   測定距離入力      例題   15.123  EXE PX=121.9391718  EXE PY=149.892371  EXE L=300.5114  そのままEXE (方向角300°51′14″) HO=?300.5114 そのままEXE   X=?121.9391718  そのままEXE Y=?149.892371   そのままEXE KA=?   測角した角度夾角入力 例題  275.1025 EXE  S=?   測定距離入力      例題   20.356  EXE PX=138.4017771  EXE PY=161.8652304  EXE L=36.0139  そのままEXE (方向角36°01′39″) 同じように繰り返す。 終わる場合はAC/on Break 入力画面に戻る AC/on 2回押しで終了。