lbI 0
cls: “===xuan ze===[sz=>0[fs=>1][zs=>2][FY=>3]” ? O
if O=0 :then cls: “[JD-K]” ? N: “[QD-K]” ?Q: “[ZD-K]” ?Z: “[JD-X]” ?X: “[JD-Y] ” ? Y: “[PX(-1)(+1)]” ?W: “[PIAN JIAO]” ?T: “[R]” ?R: “[LS1]” ?L: “[LS2]” ?M: “[FWJ]” ?P:
L^2 ÷ 24 ÷ R-L^4 ÷ 2484 ÷ R^3 → G: M^2 ÷ 24 ÷ R-M^4 ÷ 2384 ÷ R^3 → J:
L ÷ 2-L^3 ÷ 240 ÷ R^2 → H: M ÷ 2-M^3 ÷ 240 ÷ R^2 → K: tan-1((J-G)cos(T ÷ 2) ÷ R ÷ sin(T)) → D : R(T ÷ 2-90L ÷ π ÷ R+D) π ÷ 180 → F: R(T ÷ 2-90M ÷ π ÷ R-D) π ÷ 180 → Z[1]: L+M+F+Z[1] → E: (R+G) *tan(T ÷ 2)+H+(J-G) ÷ sin(T) → F : (R+J)tan(T ÷ 2)+K-(J-G) ÷ sin(T) → Z[1] : X+Fcos(P+180) → G : Y+Fsin(P+180) → H : P+WT → S: X+Z[1]cos(S) → J : Y+Z[1]sin(s) → K : N-F → C : C+E → E :GOTO 0
ifend
if O=1 :then GOTO 2 ： ifend
if O=2 :then GOTO 3 ： ifend
if O=3 :then GOTO 4 ： ifend
LBI 2
CLS:”[XC=]” ？ U:”[YC=]” ？ V:”[XH=]” ？ X:”[YH=]” ？ Y:GOTO 5
LBI 3
CLS:”[FWJ=]” ？ F:”[JL=]” ？ I:”XZ”: U+Icos(F) → X: ∆:”YZ”: V+Isin(F) → Y ∆ GOTO 0
LBI 4
CLS:”FYZH---K---”?N:if N<Q :then “<QI DIAN” ∆ GOTO 0 ： ifend
if N>Z :then “>ZI DIAN” ∆ GOTO 0 ： ifend
if C>N :then G-(C-N)cos(P) → X: H-(C-N)sin(P) → Y: P → T :GOTO 6 ： ifend
If C<N and N<=C+L :then N-C-(N-C)^5 ÷ (90R^2L^2) → F: 30(N-C)^2 ÷ (πRL) → I:
3I → D: G+Fcos(P+WI) → X: H+Fsin(P+WI) → Y: P+WD → T:GOTO 6 ： ifend
If C+L<N and N<E-M :then L-L^3 ÷ 90 ÷ R^2 → F: 30L ÷ π ÷ R → I: 3I → D: 90(N-C-L) ÷ π ÷ R → T: G+Fcos(P+WI) → X: H+Fsin(P+WI) → Y: 2Rsin(T) → F: X+Fcos(P+WD+WT) → X: Y+Fsin(p+WD+WT) → Y: P+WD+2WT → T: GOTO 6 ： ifend
If E-M<=N and N<E :then E-N-(E-N)^5 ÷ (90R^2M^2) → F:30(E-N)^2 ÷ (πRM) → I :3I → D:
J+Fcos(S+180-WI) → X: K+Fsin(S+180-WI) → Y: S-WD → T :GOTO 6 ： ifend
If E<=N :then J+(N-E)cos(S) → X: K+(N-E)sin(s) → Y: S → T:GOTO 6 ： ifend
LBI 5
Pol(x-u,y-v):j<0=>j+360 → J:”FWJ”:J DMS∆
“D=”:I∆
GOTO 0
LBI 6
”BJ(L=-;Z=0;R=+)” ？ B:
If B<>0 :then GOTO 7 ： ifend
CLS:”XF=”:X: ∆:”YF=”:Y ∆ GOTO 5
LBI 7
”JIA JIAO” ?A:
T+A → T: X+(B)cos(T) → X: Y+(B)sin(T) → Y:”XF=”:
X ∆ ”YF=”:Y ∆ GOTO 5 ∆ : 暂停输出 ; 用“ ： ”替代换行符（回车） ;
