F01 LBL F
F02 CF 0
F03 INPUT A
F04 INPUT B
F05 INPUT X
F06 RCL× A
F07 RCL+ B
F08 RCL÷ B
F09 1/x
F10 STO T
F11 RTN
E01 LBL E
E02 SF 0
E03 RCL A
E04 RCL B
E05 STO A
E06 x<>y
E07 STO B
E08 1
E09 RCL- T
E10 STO T
D01 LBL D
D02 0
D03 STO I
D04 1
D05 STO K
D06 STO H
D07 RCL A
D08 2
D09 -
D10 2
D11 ÷
D12 STO N
P01 LBL P
P02 1
P03 STO+ I
P04 RCL- T
P05 RCL× K
P06 2
P07 RCL I
P08 yˣ
P09 ÷
P10 RCL I
P11 1
P12 -
P13 2
P14 ×
P15 RCL+ B
P16 ×
P17 STO K
P18 STO+ H
P19 RCL N
P20 RCL- I
P21 x≠0?
P22 GTO P
P23 RCL B
P24 2
P25 ÷
P26 RCL T
P27 x<>y
P28 yˣ
P29 RCL× H
P30 1
P31 x<>y
P32 FS? 0
P33 -
P34 STO Q
P35 VIEW Q
P36 RTN