(49G & 33s) OEIS A10785: Repdigit Numbers (in Human Readable Form)

[Gerald H]

Slightly improved 33s programme, also deals correctly with 0 as input.

Code:

1.    LBL A
2.    x<0?
3.    GTO B
4.    STO N
5.    9
6.    STO I
7.    INT/
8.    STO Q
9.    RCL* I
10.    +/-
11.    RCL+ N
12.    STO R
13.    SGN
14.    STO+ Q
15.    x≠0?
16.    RCL* R
17.    x=0?
18.    RCL+ I
19.    RCL Q
20.    x≠0?
21.    RTN
22.    x<>y
23.    SGN
24.    RTN
1.    LBL B
2.    +/-
3.    STO N
4.    SGN
5.    STO- N
6.    CLx
7.    9
8.    RCL* N
9.    +
10.    RTN

A: LN = 84
B: LN = 42