(49G) OEIS A084545: Counting Base 5 without Zero

[Gerald H]

But this programme is much faster & smaller:

Size: 110.5

CkSum: # 6A43h

Code:

::
  CK1&Dispatch
  # FF
  ::
    NULL$SWAP
    BEGIN
    ZINT 5
    FPTR2 ^ZDIVext
    DUP
    ZINT 0
    EQUAL
    IT
    ::
      DROP
      ZINT 5
      SWAP
      ZINT 1
      FPTR2 ^RSUBext
      SWAP
    ;
    FPTR2 ^Z>S
    ROT
    &$SWAP
    DUP
    ZINT 0
    EQUAL
    UNTIL
    DROP
    FPTR2 ^S>Z
  ;
;