幅杭計算（直線）

幅杭計算（直線） 【プログラム番号：P2】

　　 AC 999 MinF
LBL0 MR59 "Haba(L) ?" HLT
　　 Min59 MR60 "Haba(R) ?" HLT
　　 Min60
LBL1 0 Min9F MR51 "Ax ?" HLT
　　 Min51 Min91 MR52 "Ay ?" HLT
　　 Min52 Min92 0 "(zahyo[RTA]0 hoko[RTA]1)" HLT
　　 X=0 GOTO2
　　 MR56 SDMS "Hoko ?" HLT
　　 Min56 GOTO3
LBL2 MR53 "Bx ?" HLT
　　 Min53 Min93 MR54 "By ?" HLT
　　 Min54 Min94 GSBP19
　　 MR9F X=F GOTO1
　　 MR96 Min56 MR95 "Kyori=" HLT
　　 MR56 SDMS "Hoko=" HLT
LBL3 MR61 "Lp ?" HLT
　　 Min61 MR56 COS * MR61 + MR51 = Min62 MR56 SIN * MR61
　　 + MR52 = Min63 MR62 "Px=" HLT
　　 MR63 "Py=" HLT
　　 MR59 +/- X>=0 GOTO4
　　 MR56 - 90 = Min57 COS * MR59 + MR62 = Min64 MR57 SIN
　　 * MR59 + MR63 = Min65 MR64 "PLx=" HLT
　　 MR65 "PLy=" HLT
LBL4 MR60 +/- X>=0 GOTO3
　　 MR56 + 90 = Min58 COS * MR60 + MR62 = Min66 MR58 SIN
　　 * MR60 + MR63 = Min67 MR66 "PRx=" HLT
　　 MR67 "PRy=" HLT
　　 GOTO3

エラー表示サブルーチン 【プログラム番号：P18】

　　 999 Min9F 0 " DATA ERROR" PAUSE

座標変換サブルーチン 【プログラム番号：P19】

　　 0 Min9F MR91 - MR93 = X=0 GOTO1
　　 GOTO3
LBL1 MR92 - MR94 = X=0 GOTO2
　　 GOTO3
LBL2 GSBP18
　　 GOTO5
LBL3 MR93 - MR91 = R>P ( MR94 - MR92 ) = Min95 X<>Y X>=0 GOTO4
　　 + 360 =
LBL4 Min96
LBL5

ご注意下さい

• 上記プログラムソースは見やすいようにインデント・改行されていますが、FX-603Pに入力する際には、インデント・改行を無視してください。
• サブルーチンは他のプログラムと共用しますのでプログラム番号を変更しないでください。
• 当プラグラムソースはASCIIコードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。