(33s) Double Deck Descriptor: A 2-level Description of Input

[Gerald H]

A description of the programme's function, PedroLeiva, is in the text of the 1st posting in this thread.

Another slightly improved version:

Code:

1.    LBL D
2.    CLVARS
3.    STO K
4.    x<>y
5.    STO L
6.    +
7.    x≠0?
8.    GTO F
9.    1
10.    x<>y
11.    RTN
1.    LBL F
2.    CLx
3.    RMDR(K:10)+1
4.    STO i
5.    SGN
6.    STO+ [i]
7.    CLx
8.    RCL L
9.    x=0?
10.    GTO I
11.    CLx
12.    RMDR(L:10)+1
13.    STO i
14.    SGN
15.    STO+ [i]
16.    CLx
17.    IDIV(L:10)
18.    STO L
1.    LBL I
2.    CLx
3.    IDIV(K:10)
4.    STO K
5.    x≠0?
6.    GTO F
7.    CLx
8.    10
9.    STO i
10.    CLx
11.    STO T
12.    STO U
1.    LBL H
2.    CLx
3.    RCL [i]
4.    x=0?
5.    GTO J
6.    CLx
7.    10*U+[i]
8.    STO U
9.    CLx
10.    10* T+i-1
11.    STO T
1.    LBL J
2.    DSE i
3.    GTO H
4.    CLx
5.    RCL U
6.    RCL T
7.    RTN

D: LN = 45        H: LN = 49
F: LN = 88        J: LN = 21
I: LN = 58