A01 LBL A
A02 1.012
A03 STO i
L01 LBL L
L02 INPUT⟪i⟫
L03 ISG i
L04 GTO L
L05 GTO A
I01 LBL I
I02 XEQ D
I03 STO W
I04 RCL A
I05 RCL× I
I06 RCL C
I07 RCL× G
I08 -
I09 STO X
I10 RCL C
I11 RCL× D
I12 RCL A
I13 RCL× F
I14 -
I15 STO Y
I16 RCL B
I17 RCL× G
I18 RCL A
I19 RCL× H
I20 -
I21 STO Z
I22 RCL A
I23 RCL× E
I24 RCL B
I25 RCL× D
I26 -
I27 STO i
I28 RCL E
I29 RCL× I
I30 RCL F
I31 RCL× H
I32 -
I33 STO A
I34 RCL C
I35 RCL× H
I36 RCL B
I37 RCL× I
I38 -
I39 RCL B
I40 RCL× F
I41 RCL C
I42 RCL× E
I43 -
I44 STO C
I45 R↓
I46 STO B
I47 RCL F
I48 RCL× G
I49 RCL D
I50 RCL× I
I51 -
I52 RCL D
I53 RCL× H
I54 RCL E
I55 RCL× G
I56 -
I57 STO G
I58 R↓
I59 STO D
I60 RCL i
I61 STO I
I62 RCL X
I63 STO E
I64 RCL Y
I65 STO F
I66 RCL Z
I67 STO H
I68 9
I69 STO i
I70 RCL W
J01 LBL J
J02 STO÷⟪i⟫
J03 DSE i
J04 GTO J
J05 RTN
M01 LBL M
M02 7
M03 XEQ N
M04 8
M05 XEQ N
M06 9
N01 LBL N
N02 STO i
N03 RCL J
N04 RCL K
N05 RCL L
N06 RCL×⟪i⟫
N07 XEQ P
N08 XEQ P
N09 23
N10 STO+ i
N11 R↓
N12 STO⟪i⟫
N13 VIEW⟪i⟫
N14 RTN
P01 LBL P
P02 x<>y
P03 DSE i
P04 DSE i
P05 DSE i
P06 RCL×⟪i⟫
P07 +
P08 RTN
D01 LBL D
D02 RCL A
D03 RCL× E
D04 RCL× I
D05 RCL D
D06 RCL× H
D07 RCL× C
D08 +
D09 RCL G
D10 RCL× F
D11 RCL× B
D12 +
D13 RCL G
D14 RCL× E
D15 RCL× C
D16 -
D17 RCL A
D18 RCL× F
D19 RCL× H
D20 -
D21 RCL D
D22 RCL× B
D23 RCL× I
D24 -
D25 RTN