T01 LBL T
T02 CLVARS
T03 1.012
T04 STO i
X01 LBL X
X02 INPUT⟪i⟫
X03 ISG i
X04 GTO X
X05 RCL I
X06 RCL J
X07 θ,r→y,x
X08 STO J
X09 x<>y
X10 STO I
X11 RCL G
X12 RCL+ K
X13 RCL H
X14 RCL× L
X15 θ,r→y,x
X16 1
X17 +
X18 CMPLX1/x
X19 RCL E
X20 RCL F
X21 +/-
X22 θ,r→y,x
X23 CMPLX×
X24 STO N
X25 x<>y
X26 STO M
X27 x<>y
X28 XEQ V
X29 RCL C
X30 RCL+ K
X31 RCL D
X32 RCL× L
X33 θ,r→y,x
X34 CMPLX×
X35 RCL A
X36 RCL B
X37 θ,r→y,x
X38 CMPLX+
X39 STO P
X40 x<>y
X41 STO O
X42 x<>y
X43 CMPLX1/x
X44 RCL M
X45 RCL N
X46 CMPLX×
X47 RCL K
X48 RCL L
X49 θ,r→y,x
X50 CMPLX×
X51 XEQ V
X52 RCL O
X53 RCL P
X54 CMPLX×
X55 RCL O
X56 RCL+ I
X57 RCL P
X58 RCL+ J
X59 CMPLX÷
X60 XEQ V
X61 RCL O
X62 RCL P
X63 XEQ V
X64 RCL G
X65 RCL H
X66 θ,r→y,x
X67 RCL I
X68 RCL J
X69 CMPLX×
X70 RCL G
X71 RCL+ A
X72 RCL H
X73 RCL× B
X74 θ,r→y,x
X75 CMPLX+
X76 RCL E
X77 RCL+ C
X78 RCL F
X79 RCL× D
X80 θ,r→y,x
X81 CMPLX-
X82 CMPLX1/x
X83 RCL A
X84 RCL B
X85 θ,r→y,x
X86 RCL+ J
X87 x<>y
X88 RCL+ I
X89 x<>y
X90 CMPLX×
V01 LBL V
V02 y,x→θ,r
V03 STO R
V04 x<>y
V05 STO T
V06 x<>y
V07 θ,r→y,x
V08 VIEW T
V09 VIEW R
V10 RTN