R01 LBL R
R02 INPUT X
R03 INPUT Y
R04 INPUT Z
Q01 LBL Q
Q02 RCL Y
Q03 RCL X
Q04 y,x→θ,r
Q05 x<>y
Q06 STO T
Q07 R↓
Q08 RCL Z
Q09 y,x→θ,r
Q10 STO R
Q11 x<>y
Q12 STO P
P01 LBL P
P02 INPUT R
P03 INPUT T
P04 INPUT P
P05 RCL T
P06 RCL P
P07 RCL R
P08 θ,r→y,x
P09 STO Z
P10 R↓
P11 θ,r→y,x
P12 STO X
P13 x<>y
P14 STO Y
P15 GTO P
E01 LBL E
E02 RCL X
E03 STO U
E04 RCL Y
E05 STO V
E06 RCL Z
E07 STO W
E08 GTO Q
X01 LBL X
X02 RCL X
X03 x<> U
X04 STO X
X05 RCL Y
X06 x<> V
X07 STO Y
X08 RCL Z
X09 x<> W
X10 STO Z
X11 GTO Q
A01 LBL A
A02 RCL X
A03 RCL+ U
A04 STO X
A05 RCL V
A06 RCL+ Y
A07 STO Y
A08 RCL Z
A09 RCL+ W
A10 STO Z
A11 GTO Q
S01 LBL S
S02 -1
S03 STO× X
S04 STO× Y
S05 STO× Z
S06 GTO A
C01 LBL C
C02 RCL Y
C03 RCL× W
C04 RCL Z
C05 RCL× V
C06 -
C07 RCL Z
C08 RCL× U
C09 RCL X
C10 RCL× W
C11 -
C12 RCL X
C13 RCL× V
C14 RCL Y
C15 RCL× U
C16 -
C17 STO Z
C18 R↓
C19 STO Y
C20 R↓
C21 STO X
C22 GTO Q
D01 LBL D
D02 RCL X
D03 RCL× U
D04 RCL Y
D05 RCL× V
D06 +
D07 RCL Z
D08 RCL× W
D09 +
D10 STO D
D11 VIEW D
D12 RCL D
D13 RCL÷ R
D14 RCL W
D15 RCL V
D16 RCL U
D17 y,x→θ,r
D18 x<>y
D19 R↓
D20 y,x→θ,r
D21 x<>y
D22 R↓
D23 ÷
D24 ACOS
D25 STO G
D26 VIEW G
D27 GTO P