%%HP: T(3)A(R)F(.); "!NO CODE !RPL :: CK2NOLASTWD CK&DISPATCH1 2REAL :: %0 %0 %0 %0 %0 %0 %0 %0 %0 %0 %0 { LAM A LAM K LAM B LAM F LAM H LAM I LAM J LAM C LAM G LAM N LAM T LAM W LAM E } BIND :: CLKTICKS LAM A %3 DODISP LAM K %4 DODISP %10 LAM K %^ ' LAM B STO LAM K %2 %LOG %/ %IP ' LAM E STO LAM A %2 %LOG %/ %IP %1+ ' LAM F STO LAM F %5 DODISP LAM A LAM K %/ %1+ %IP ' LAM H STO LAM H COERCE #0 DO %0 LOOP LAM H COERCE {}N ' ID arry STO LAM B %5 %/ LAM F COERCE #0 DO DUP LOOP DROP LAM F ' LAM N STO %0 ' LAM C STO LAM H %1+ COERCE #1 DO LAM N %6 DODISP %0 ' LAM T STO LAM N DUP ' LAM J STO COERCE #1+ #1 DO LAM J COERCE ROLL LAM B %* LAM T LAM J %* %+ LAM J LAM J %+ %1- 2DUP %/ %IP ' LAM T STO LAM T %* %- LAM J COERCE UNROLL LAM J %1- ' LAM J STO LOOP LAM T LAM B %/ %IP ' LAM W STO LAM C LAM W %+ INDEX@ ID arry PUTLIST ' ID arry STO LAM T LAM W LAM B %* %- ' LAM C STO LAM N LAM E %- ' LAM N STO LOOP LAM F COERCE {}N DROP CLKTICKS SWAP bit- HXS>% % 8192 %/ ID arry ; ABND ; ; @"