Long Division program

[Gamo]

Got this nice Long Division program from HP Key Notes newsletter (1977 issue)

Anyone have the idea on how to adapt this program to work on HP 12C will be nice.

001 *LBL A
002 /
003 LSTX
004 X<>Y
005 ENT^ (ENTER)
006 FRC (FRAC)
007 X<>Y
008 INT (INTG)
009 R down
010 x
011 EEX
012 4
013 /
014 R up (no key)
015 +
016 DSP4 (FIX4)
017 RTN (no key)
018 R/S

To use the routine press ENTER key in divisor and press A

Example:

4359 ENTER, 57 A ------ 76.0027

Quotient = 76, Remainder = 27


Gamo