50g Mini-Challenge: Number of positive divisors of x!

[Gerald H]

A more efficient version of the programme:

Size: 124.

CkSum: # 6E3Ch

Code:

::
  CK1&Dispatch
  # FF
  ::
    ZINT 1
    SWAP
    ZINT 0
    BEGIN
    FPTR2 ^Prime+
    2DUP
    Z>=
    WHILE
    ::
      2DUP
      ZINT 0
      SWAPROT
      BEGIN
      OVER
      FPTR2 ^ZQUOText
      ROTOVER
      FPTR2 ^RADDext
      3UNROLL
      FPTR2 ^DupQIsZero?
      UNTIL
      2DROP
      ZINT 1
      FPTR2 ^RADDext
      4ROLL
      FPTR2 ^RMULText
      3UNROLL
    ;
    REPEAT
    2DROP
  ;
;