%%HP: T(3)A(D)F(.);
\<< TEXT CLLCD
"Status: Sorting" 1
DISP 1 27
  FOR j j 64 + 's'
STO j 96 + 't' STO
ALIST OBJ\-> 1 SWAP
    FOR k DUP OBJ\->
1 GET NUM DUP
      IF s ==
      THEN 'OK' STO
DUP TEMPLIST OBJ\-> 1
+ 'LSTDPTH' STO
LSTDPTH ROLL
LSTDPTH \->LIST
'TEMPLIST' STO OK
      END
      IF t ==
      THEN DUP
TEMPLIST OBJ\-> 1 +
'LSTDPTH' STO
LSTDPTH ROLL
LSTDPTH \->LIST
'TEMPLIST' STO
      END "(" j 27
/ 100 * 2 RND \->STR
ADD "%)" ADD 6 DISP
DEPTH ROLLD
    NEXT CLEAR
  NEXT TEMPLIST
'ALIST' STO
'TEMPLIST' PURGE
's' PURGE 'LSTDPTH'
PURGE 'OK' PURGE
't' PURGE CLEAR
CENTRAL
\>>
