(11C) Decimal Expansion of a Fraction

[Gamo]

HP-11C program to give the decimal expansion of a fraction to
as many decimal places as desired.

This program is the extended version from the one for the
HP-12C found at this post: https://www.hpmuseum.org/forum/thread-16160.html

Program will produce decimal expansion 8 digits at a time with each press of [R/S]
give user another 8 digits.

When program finish running read each digit from right to left on each set of 8 digits.
------------------------------------------------------------
Procedure: [FIX] 0

Numerator [ENTER] Denominator [f] [A] display 1 digit at a time until reach 8 digit then stop.

Read decimal expansion from right to left if dispaly shown [87654321] reverse to 12345678
------------------------------------------------------------
Example:
I like to know decimal expansion digits to 24 decimal places ( 8 digits 3 times )
For 35/31

[f] [FIX] 0
35 [ENTER] 31 [f] [A] display 22,309,211 write down in reverse as 11290322
[R/S] dispaly 61,546,085 reverse as 58064516
[R/S] display 52,230,921 reverse as 12903225

answer: 11290322 58064516 12903225

Program: FIX 0

Code:


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

Gamo