Deg:Fix?3?
Lbl?0?
“XA=”?X:”YA=”?Y:“XB=”?U:”YB=”?V:"ZJ="?A:"L-BC="?B?
If A>0:Then A-180→A:Else A+180→A:IfEnd?
pol((U-X),(V-Y)):J＜0?=>?J+360→J:J+A→J?
U+Bcos(J)→C:V+Bsin(J)→D?
“XC=”:C◢
“YC=”:D◢
Goto?0
註：
輸入條件：點A坐標XA、YA；點B坐標XB、YB；
直線AB到BC的轉角“ZJ”（以A到B為線路前進方向，向左轉彎輸入正值、向右轉彎輸入負值）；
點B到點C的距離“L-BC”
計算出點C的坐標XC、YC