%%HP: T(3)A(R)F(.);
"!NO CODE
!RPL
::
  CK2NOLASTWD
  CK&DISPATCH1
  2REAL
  ::
    %0 %0 %0 %0 %0 %0 %0 %0 %0 %0 %0
  ( {{ A K B F H I J C G N T W E }}  for Debug4x )
    {{ E W T N G C J I H F B K A }}

    ::
     CLKTICKS
     A %3 DODISP
     K %4 DODISP
     %10 K %^ !B
     K %2 %LOG %/ %IP !E
     A %2 %LOG %/ %IP %1+ !F  F %5 DODISP
     A K %/ %1+ %IP !H
     H COERCE #0 DO %0 LOOP  H COERCE {}N ' ID arry STO
     F COERCE #0 DO B %5 %/ LOOP

     F !N
     %0    !C
     H %1+ COERCE #1 DO
       N %6 DODISP
       %0 !T

       N DUP !J COERCE #1+ #1 DO
         J COERCE PICK B %* T J %* %+
         J J %+ %1- 2DUP
                %/ %IP !T
                T %* %- J COERCE PTR 373D0 ( UNPICK_ )
       J %1- !J  LOOP

       T B %/ %IP !W
       C W %+
        INDEX@ ID arry PUTLIST ' ID arry STO
       T W B %* %- !C

       N E %- !N
     LOOP

    F COERCE {}N DROP

    CLKTICKS SWAP bit- HXS>% % 8192 %/

    ID arry
    ;
 ABND
 ;
;
@"