%%HP: T(3)A(D)F(.);
\<< TEMPLIST OBJ\->
"Done" SWAP 1 +
ROLLD DEPTH \->LIST
'TEMPLIST' STO
"HP Address Book"
TEMPLIST 1 CHOOSE
  IF 0 ==
  THEN 'TEMPLIST'
PURGE 'NEWORDER'
PURGE CENTRAL
  END DUP
  IF "Done" ==
  THEN DROP
TEMPLIST OBJ\-> ROLL
DROP DEPTH \->LIST
'TEMPLIST' STO
NEWORDER OBJ\-> DROP
TEMPLIST OBJ\-> DROP
DEPTH \->LIST 'ALIST'
STO 'NEWORDER'
PURGE 'WHERE' PURGE
'TEMPLIST' PURGE
CENTRAL
  END 'WHERE' STO
NEWORDER OBJ\-> DROP
WHERE DEPTH \->LIST
'NEWORDER' STO
TEMPLIST OBJ\-> 1
SWAP
  FOR j DUP
    IF WHERE ==
    THEN DROP
    END DEPTH ROLLD
  NEXT DEPTH 1 SWAP
  FOR j DUP
    IF "Done" ==
    THEN DROP DEPTH
\->LIST 'TEMPLIST'
STO YUCHOOSE
    END DEPTH ROLLD
  NEXT CONT
\>>
