Threaded Mode | Linear Mode

Gerald H · (This post was last modified: 02-27-2018 11:31 AM by Gerald H.)

Shorter:

NB PTR 273B6 has been stable at least from version 1.19-6 on.

Size: 90.

CkSum: # FB5Bd (edited to correct incorrect checksum)

Code:

::

  CK1&Dispatch

  # FF

  ::

    PTR 273B6

    FPTR2 ^ZNMax

    FPTR2 ^Z>ZH

    FPTR2 ^ZBits

    DUPUNROT

    #2/

    DUP

    ZERO_DO

    DROP

    SWAP#1-SWAP

    OVER

    FPTR2 ^ZBit?

    SWAPINDEX@

    FPTR2 ^ZBit?

    ROT

    EQUAL

    DUP

    ?SKIP

    ExitAtLOOP

    LOOP

    ROTROT2DROP

    COERCEFLAG

  ;

;