C01 LBL C
C02 INPUT A
C03 INPUT B
C04 INPUT C
C05 INPUT D
C06 INPUT E
C07 INPUT F
C08 RCL A
C09 STO- C
C10 STO- E
C11 RCL B
C12 STO- D
C13 STO- F
C14 RCL D
C15 RCL C
C16 y,x→θ,r
C17 STO X
C18 x<>y
C19 STO T
C20 RCL F
C21 RCL E
C22 y,x→θ,r
C23 x<>y
C24 RCL- T
C25 x<>y
C26 θ,r→y,x
C27 STO Z
C28 x<>y
C29 STO Y
C30 ÷
C31 RCL Z
C32 RCL- X
C33 ×
C34 RCL+ Y
C35 RCL X
C36 y,x→θ,r
C37 2
C38 ÷
C39 STO R
C40 RCL T
C41 0
C42 CMPLX+
C43 θ,r→y,x
C44 RCL B
C45 RCL A
C46 CMPLX+
C47 STO X
C48 x<>y
C49 STO Y
C50 VIEW X
C51 VIEW Y
C52 VIEW R
C53 RTN