%%HP: T(3)A(D)F(.);
\<< "Address Book"
THISIT "Search"
SWAP OBJ\-> 1 + \->LIST
1 CHOOSE
  IF 0 ==
  THEN 'THISIT'
PURGE CENTRAL
  END DUP
  IF "Search" ==
  THEN SEARCH
  END DUP OBJ\-> OBJ\->
DROP FORMAT
(-6.3,-2.5) SWAP
"-- " SWAP ADD
" --" ADD 1 GLABEL
(-6.3,-1.6) SWAP
FONTSIZE GLABEL
(-6.3,-.7) SWAP
FONTSIZE GLABEL " "
SWAP ADD ADD SWAP
", " ADD SWAP ADD
(-6.3,.4) SWAP
FONTSIZE GLABEL
(-6.3,1.3) SWAP
FONTSIZE GLABEL
(-6.3,2.2) SWAP
FONTSIZE GLABEL 0
WAIT 'THISIT' PURGE
DUP
  IF 15.4 ==
  THEN DROP 'WHERE'
STO EDITLIST
  END
  IF 14.4 ==
  THEN 'WHERE' STO
DELENTRY
  END CENTRAL
\>>
