(12C) Decimal to Fraction

[Thomas Klemm]

Just noticed that we could inline the round subroutine when it's called at the end of the program.
Thus you may just replace these lines:

Code:

  *LBL 4
   ENTER        ; q q
   GSB 6        ; p q
   RTN

by these:

Code:

  *LBL 4
   ENTER        ; q q
  *LBL 6        ; round
   RCL 0        ; f d
   ×            ; f*d
   .            ;
   5            ; 0.5 f*d
   +            ; f*d+0.5
   INT          ; round(f*d)
   RTN

And then remove that block at the end.
This saves us two precious steps.