(11C) Decimal Expansion of a Fraction

[Gamo]

This update add-on Integer Reverse routine so now can be read normally.

Code:


[LBL] [A]
[STO] 4 [R↓] [STO] 5
[LBL] 0
.007 [STO] [I] 0 [STO] 3
[LBL] 1
[RCL] 5 [RCL] 4 [÷] [INT] [STO] 0
[RCL] 5 [RCL] 0 [RCL] 4 [x] [-] [EEX] 1 [x] [STO] 5
[RCL] 0 [RCL] [I] [INT] [10^X] [x] [STO] [+] 3
[RCL] 3 [PSE] [ISG] [GTO] 1 
[STO] 1 0 [STO] 2 [R↓]
[LBL] 2
10 [÷] [INT] [STO] 1 [LSTx] [FRAC] 10 [STO] [x] 2 [x] [STO] [+] 2
[RCL] 1 [X≠0] [GTO] 2 [RCL] 2 [R/S] [GTO] 0

Remark:
If the result shown less than8 digits add 0 to the end to complete 8 digits set.
Example: [xxxxxxx0]

Gamo