幅杭計算（曲線）プログラム（fx-4850P測量計算）

　　 Fixm:Defm 10:H=0
Lbl 0:{H,K,L}:Cls
　　 "<HABA-CURVE>"
　　 K"HABA(L)_"
　　 L"HABA(R)_"
　　 Z[2]=180÷π
　　 Cls
　　 "LEFT_CURVE_⇒0"
　　 H"RIGHT_CURVE⇒1_"
Lbl 1:Cls:I=0
　　 {M,A,B,I,E}
　　 M"R_":M≦0⇒Goto 1△
　　 Cls
　　 A"BCX_":B"BCY_"
　　 Cls
　　 "IP_INPUT"
　　 "ZAHYO___⇒0"
　　 I"HOKOKAKU⇒1_"
　　 I＝0⇒Goto 2△
　　 Cls
　　 E"IP_HOKO_":Goto 3
Lbl 2:Cls:{C,D}
　　 C"IPX_":D"IPY_"
　　 T=A:U=B:V=C:W=D
　　 Prog "ZA.SUB"
　　 Z＝999⇒Goto 1△
　　 E=Y
　　 "KYORI=":X:Pause 0
　　 "HOKOKAKU=":E→DMS▲
Lbl 3:H＝0⇒Goto 6△
Lbl 4:Cls:{N}
　　 N"(R)L_":N≦0⇒Goto 4△
　　 Z[4]=N÷M×Z[2]÷2
　　 Z[6]=sin Z[4]×2×M
　　 Z[5]=E＋Z[4]
　　 Z[7]=cos Z[5]×Z[6]＋A
　　 Z[8]=sin Z[5]×Z[6]＋B
　　 "(R)PX=":Z[7]:Pause 0
　　 "(R)PY=":Z[8]▲
　　 F=Z[5]＋Z[4]−90
　　 K≦0⇒Goto 5△
　　 P=cos F×K＋Z[7]
　　 Q=sin F×K＋Z[8]
　　 "(R)PLX=":P:Pause 0
　　 "(R)PLY=":Q▲
Lbl 5:L≦0⇒Goto 8△
　　 G=F+180
　　 R=cos G×L＋Z[7]
　　 S=sin G×L＋Z[8]
　　 "(R)PRX=":R:Pause 0
　　 "(R)PRY=":S▲
　　 Goto 8
Lbl 6:{N}:Cls
　　 N"(L)L_":N≦0⇒Goto 6△
　　 Z[4]=N÷M×Z[2]÷2
　　 Z[6]=sin Z[4]×2×M
　　 Z[5]=E-Z[4]
　　 Z[7]=cos Z[5]×Z[6]＋A
　　 Z[8]=sin Z[5]×Z[6]＋B
　　 "(L)PX=":Z[7]:Pause 0
　　 "(L)PY=":Z[8]▲
　　 F=Z[5]-Z[4]-90
　　 K≦0⇒Goto 7△
　　 P=cos F×K＋Z[7]
　　 Q=sin F×K＋Z[8]
　　 "(L)PLX=":P:Pause 0
　　 "(L)PLY=":Q▲
Lbl 7:L≦0⇒Goto 8△
　　 G=F+180
　　 R=cos G×L＋Z[7]
　　 S=sin G×L＋Z[8]
　　 "(L)PRX=":R:Pause 0
　　 "(L)PRY=":S▲
Lbl 8:J=0:Cls
　　 {J}
　　 "CONTINUE__⇒0"
　　 J"TOP⇒2__END⇒9_"
　　 J＝2⇒Goto 0△
　　 J＝9⇒Goto 9△
　　 J≠0⇒Goto 8△
　　 H＝0⇒Goto 6△
　　 Goto 4
Lbl 9

　　 Z=999
　　 "DATA_ERROR"
　　 Pause 3
　　 Cls

　　 Fixm:Z=0
　　 (T-V)≠0⇒Goto 1△
　　 (U-W)≠0⇒Goto 1△
　　 Prog "ER.SUB":Goto 2
Lbl 1:X=W-U:Y=V-T
　　 Deg:Pol(Y,X):J≦0⇒J=J+360△
　　 X=I:Y=J
Lbl 2