RPL

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

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

         N FLASHPTR R>Z  FLASHPTR QMul
         G FLASHPTR QDiv
         ZINT 2  FLASHPTR QAdd

     N %1- !N LOOP

     SWAP

     CLKTICKS SWAP bit- HXS>% % 8192 %/

    ;
  ABND

  ;
;
@