P01 LBL P
P02 INPUT F
P03 STO i
I01 LBL I
I02 INPUT⟪i⟫
I03 DSE i
I04 GTO I
I05 RCL F
I06 STO i
I07 GTO⟪i⟫
H01 LBL H
H02 RCL H
H03 STO i
H04 1
J01 LBL J
J02 ENTER
J03 RCL× X
J04 RCL+⟪i⟫
J05 DSE i
J06 GTO J
J07 RTN
S01 LBL S
S02 STO H
S03 250
S04 STO X
S05 +/-
S06 FN= H
S07 SOLVE X
S08 GTO H
S09 0
S10 ÷
Q01 LBL Q
Q02 x<>y
Q03 2
Q04 ÷
Q05 +/-
Q06 ENTER
Q07 ENTER
Q08 STO F
Q09 x²
Q10 R↑
Q11 -
Q12 CF 0
Q13 x<0?
Q14 SF 0
Q15 ABS
Q16 SQRT
Q17 STO G
Q18 FS? 0
Q19 RTN
Q20 STO- F
Q21 R↓
Q22 STO+ G
Q23 RTN
B01 LBL B
B02 RCL B
B03 RCL A
B04 GTO T
C01 LBL C
C02 3
C03 XEQ S
C04 R↓
C05 XEQ Q
C06 VIEW X
C07 GTO N
E01 LBL E
E02 5
E03 XEQ S
E04 R↓
E05 STO A
E06 R↓
E07 STO B
E08 R↓
E09 STO C
E10 RCL E
E11 RCL+ X
E12 STO D
E13 VIEW X
D01 LBL D
D02 4
D03 RCL× C
D04 RCL D
D05 x²
D06 -
D07 RCL× A
D08 RCL B
D09 x²
D10 -
D11 STO E
D12 RCL C
D13 +/-
D14 STO G
D15 RCL D
D16 RCL× B
D17 4
D18 RCL× A
D19 -
D20 STO F
D21 4
D22 3
D23 10ˣ
D24 ÷
D25 7
D26 +
D27 XEQ S
D28 R↓
D29 XEQ Q
D30 RCL X
D31 STO E
D32 FS? 0
D33 GTO F
D34 RCL F
D35 x<y?
D36 x<>y
D37 RCL G
D38 x<y?
D39 x<>y
D40 STO E
F01 LBL F
F02 2
F03 STO÷ D
F04 STO÷ E
F05 9
F06 10ˣ
F07 1/x
F08 RCL E
F09 x²
F10 RCL- A
F11 x<y?
F12 CLx
F13 SQRT
F14 STO A
F15 RCL D
F16 RCL× E
F17 RCL B
F18 2
F19 ÷
F20 -
F21 x=0?
F22 1
F23 STO B
F24 ABS
F25 STO÷ B
F26 RCL D
F27 x²
F28 RCL- C
F29 RCL+ E
F30 RCL+ E
F31 SQRT
F32 STO× B
F33 RCL D
F34 RCL+ B
F35 RCL E
F36 RCL+ A
F37 XEQ T
F38 RCL D
F39 RCL- B
F40 RCL E
F41 RCL- A
T01 LBL T
T02 XEQ Q
N01 LBL N
N02 RCL F
N03 STO X
N04 VIEW X
N05 RCL G
N06 FS? 0
N07 GTO U
N08 STO X
N09 VIEW X
N10 RTN
U01 LBL U
U02 STO i
U03 VIEW i
U04 VIEW X
U05 RCL i
U06 +/-
U07 STO i
U08 VIEW i