N01 LBL N
N02 INPUT F
N03 2
N04 ×
N05 π
N06 ×
N07 STO W
N08 0
N09 ENTER
N10 RTN
S01 LBL S
S02 CMPLX1/x
S03 R↓
S04 R↓
S05 CMPLX1/x
S06 CMPLX+
S07 CMPLX1/x
S08 RTN
P01 LBL P
P02 CMPLX+
P03 RTN
C01 LBL C
C02 INPUT C
C03 RCL× W
C04 0
C05 RTN
L01 LBL L
L02 INPUT L
L03 RCL× W
L04 1/x
L05 +/-
L06 0
L07 RTN
R01 LBL R
R02 0
R03 INPUT R
R04 1/x
R05 RTN
Z01 LBL Z
Z02 CMPLX1/x
Z03 y,x→θ,r
Z04 STO Z
Z05 x<>y
Z06 STO A
Z07 VIEW A
Z08 VIEW Z
Z09 x<>y
Z10 θ,r→y,x
Z11 CMPLX1/x
Z12 RTN