P01 LBL P
P02 CLΣ
P03 INPUT N
K01 LBL K
K02 INPUT X
K03 INPUT Y
K04 RCL X
K05 RCL- Y
K06 Σ+
K07 DSE N
K08 GTO K
K09 x̄
K10 STO D
K11 sx
K12 STO S
K13 ÷
K14 n
K15 SQRT
K16 ×
K17 STO T
K18 n
K19 1
K20 -
K21 STO F
K22 VIEW D
K23 VIEW S
K24 VIEW T
K25 VIEW F
K26 RTN
T01 LBL T
T02 INPUT H
T03 CLΣ
T04 STOP
T05 x̄
T06 STO A
T07 Σx²
T08 STO B
T09 n
T10 STO C
T11 CLΣ
T12 STOP
T13 x̄
T14 STO J
T15 Σx²
T16 STO K
T17 n
T18 STO L
T19 RCL B
T20 RCL A
T21 x²
T22 RCL× C
T23 -
T24 RCL+ K
T25 RCL J
T26 x²
T27 RCL× L
T28 -
T29 RCL C
T30 RCL+ L
T31 2
T32 -
T33 STO F
T34 ÷
T35 SQRT
T36 1/x
T37 RCL A
T38 RCL- J
T39 RCL- H
T40 ×
T41 RCL C
T42 1/x
T43 RCL L
T44 1/x
T45 +
T46 SQRT
T47 ÷
T48 STO T
T49 VIEW T
T50 VIEW F
T51 RTN