fx-4800P：交点計算(直線−直線)

交点計算(直線−直線) 【ファイル名：P6】（696バイト）

　　 Fixm:M=0:N=0
Lbl 0:"<KOUTEN_S-S>"
Lbl 1:{ABCDMK}
　　 A"A1X_":B"A1Y_"
　　 "A-LINE_INPUT"
　　 "__ZAHYO___⇒0"
　　 M"__HOKOKAKU⇒1_"
　　 M≠0⇒K"A-HOKO_"
　　 T=K:Prog "60.SUB"
　　 L=W:Goto 2△
　　 C"A2X_":D"A2Y_"
　　 T=A:U=B:V=C:W=D
　　 Prog "ZA.SUB"
　　 Z＝999⇒Goto 1△
　　 L=Y
　　 X"A-KYORI="▲
　　 T=L:Prog "60.SUB"
　　 K=V
　　 K"A-HOKO="▲
Lbl 2:{EFGHNP}
　　 E"B1X_":F"B1Y_"
　　 "B-LINE_INPUT"
　　 "__ZAHYO___⇒0"
　　 N"__HOKOKAKU⇒1_"
　　 N≠0⇒P"B-HOKO_"
　　 T=P:Prog "60.SUB"
　　 Q=W:Goto 3△
　　 G"B2X_":H"B2Y_"
　　 T=E:U=F:V=G:W=H
　　 Prog "ZA.SUB"
　　 Z＝999⇒Goto 2△
　　 Q=Y
　　 X"B-KYORI="▲
　　 T=Q:Prog "60.SUB"
　　 P=V
　　 P"B-HOKO="▲
Lbl 3:(K−P)＝0⇒Prog "ER.SUB":Goto 1△
　　 Abs (K-P)＝180⇒Prog "ER.SUB":Goto 1△
　　 T=A:U=B:V=E:W=F
　　 Prog "ZA.SUB"
　　 Z＝999⇒Goto 1△
　　 L＝90⇒Goto 4△
　　 L＝270⇒Goto 4△
　　 Q＝90⇒Goto 5△
　　 Q＝270⇒Goto 5△
　　 I=tan L
　　 J=tan Q
　　 R=(J×E−I×A＋B−F)÷(J−I)
　　 S=I×(R−A)＋B
　　 Goto 6
Lbl 4:R=A
　　 S=tan Q×(R−E)＋F
　　 Goto 6
Lbl 5:R=E
　　 S=tan L×(R−A)＋B
Lbl 6:R"PX="▲
　　 S"PY="▲
　　 Goto 2

QUICK RUN に書き加える条件文 （14バイト）

I＝6⇒Prog "P6":Goto 0△

エラー表示サブルーチン 【ファイル名：ER.SUB】（38バイト）

　　 Z=999
　　 "DATA_ERROR"
　　 Pause 1

座標変換サブルーチン 【ファイル名：ZA.SUB】（106バイト）

　　 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

角度変換サブルーチン 【ファイル名：60.SUB】（153バイト）

　　 Fixm:V=T:W=T
　　 T＝0⇒Goto 1△
　　 X=T÷Abs T
　　 T=Abs T
　　 V=Int T:W=V
　　 Y=(T-V)×60
　　 I=Int Y
　　 J=(Y-I)×60
　　 V=(V+(J÷100+I)÷100)×X
　　 Y=Frac T×100
　　 I=Int Y
　　 J=(Y-I)×100
　　 W=(W+(I+J÷60)÷60)×X
Lbl 1