(12C) Square roots : digit-by-digit

[Schraf]

This program gives approximately 20 digits for small numbers (< 100)

Example : √7

initialization : f Σ (or 0 STO 1)
7 R/S

Display :
2 R/S
6 R/S
4 R/S
5 R/S
...

HP ≃ 2,645751311064590590505802...
√7 ≃ 2,645751311064590590501615...

Explanation (in french) : https://youtu.be/m1EieVSY6Us

Code:

1    STO 0
2    1
3    STO + 1
4    9
5    STO 2
6    RCL 4
8    20
9    ×
10    RCL 2
11    +
12    LST x
13    ×
14    STO 3
15    RCL 0
16    x ⇌ y
17    x ≤ y
18    GTO 22
19    1
20    STO - 2
21    GTO 06
22    10
24    STO × 4
25    RCL 2
26    STO + 4
27    R/S
28    RCL 3
29    STO - 0
30    100
33    STO × 0
34    GTO 02