RPL

::
  CK1NOLASTWD
  CK&DISPATCH1
  real
  ::
    %0 %0 ZINT 0 ZINT 0 ZINT 0
    {{ A F N G numer denom }} ( for Debug4x )
  ( {{ P G N I F A }} for calc )
    ::
     CLKTICKS
     A %3 DODISP
     A %2 %LOG %/ %IP !F  F %5 DODISP

     ZINT 2 !numer ZINT 1 !denom
     F DUP !N COERCE #0 DO
       N %6 DODISP
       N N %+ %1+ FLASHPTR R>Z !G

       numer N FLASHPTR R>Z FLASHPTR QMul !numer
       denom G FLASHPTR QMul DUP !denom
       DUP FLASHPTR QAdd numer FLASHPTR QAdd !numer

     N %1- !N LOOP

     ZINT 10 A COERCE FLASHPTR RP# DUP
       numer FLASHPTR QMul denom FLASHPTR ZMod !G
       numer FLASHPTR QMul G FLASHPTR QSub denom FLASHPTR QDiv

     SWAP

     CLKTICKS SWAP bit- HXS>% % 8192 %/

     SWAP
    ;
  ABND
  ;
;
@