(49G) Convert Integer from Integer Base A to Integer Base B

[Gerald H]

Here a sys version of the programme in posting #1:

Code:

Size: 99.5

CkSum: # 2568h

::
  CK3&Dispatch
  # 5FFFF
  ::
    2NULLLAM{}_
    BIND
    INNERCOMP
    reversym
    ZINT 0
    SWAP
    ZERO_DO
    OVER
    TYPEZINT?
    NcaseTYPEERR
    2GETLAM
    FPTR2 ^RMULText
    FPTR2 ^RADDext
    LOOP
    NULL{}
    SWAP
    BEGIN
    1GETLAM
    FPTR2 ^ZDIVext
    ROT
    SWAP>HCOMP_
    SWAP
    FPTR2 ^DupQIsZero?
    UNTIL
    DROP
    ABND
  ;
;