三、直线坐标程序 1.Deg:Fix 3
2.Lbl 0: “K0=”?K:?X:?Y:“X 1”?M:“Y1”?N: Pol(M-X,N-Y):“JL”：I◢ 3.“FWJ=” J＜0 =＞J+360→J: J△DMS◢ 4.“ZS=0，FS≠0”：?S 5.S≠0 =＞Goto 1 6.“Ki”?Z
7.“Xi=”:X+(Z-K)cos J→P◢ 8. “Yi=”:Y+(Z-K)sin J→Q◢ 9.“ZBJ”?L
10. “XiL=”:P+Lcos(J-90)◢ 11. “YiL=”:Q+Lsin(J-90)◢ 12. “YBJ”?D
13. “XiR=”:P+Dcos(J+90)◢ 14. “YiR=”:Q+Dsin(J+90)◢ 15. Goto 0 16. Lbl 1
17. “XC”?H: “YC”?G
18. “XCZ=”:(H+X(tan J)²-(Y-G)tan J)÷(1+(tan J)²) →U◢ 19. “YCZ=”:(Y-(X-U)tan J) →V◢
20. “CZZH=”: Pol(X-U,Y-V) →C：K+C→F◢ 21. “PJ=”: Pol(H-U,G-V) →T◢ 22. Goto 0
运行时在\"FWJ=\": J0=＞J+360→J：
