%%HP: T(3)A(D)F(.);
\<< ALIST OBJ\-> "TOP"
SWAP 1 + ROLLD
DEPTH 1 SWAP
  FOR j DUP
    IF WHERE ==
    THEN DEPTH
\->LIST 'TEMPLIST'
STO TEMPLIST OBJ\->
DROP
    END DEPTH ROLLD
  NEXT CLEAR
DELTHIS
  IF 1 \=/
  THEN
"MAKE YOUR CHANGES HERE"
{ { "Name:" } {
"Address:" } {
"City:" } {
"State:" } { "Zip:"
} { "Phone#:" } {
"Email:" } {
"Sp Notes:" } } { 2
0 } WHERE OBJ\-> DUP
INFORM
    IF 0 ==
    THEN 'WHERE'
'TEMPLIST' PURGE
PURGE CENTRAL
    END \->STR
TEMPLIST OBJ\-> SWAP
DROP ROLL
  ELSE TEMPLIST
OBJ\-> DROP DROP
  END DEPTH 1 SWAP
  FOR j DUP
    IF "TOP" ==
    THEN DEPTH
\->LIST 'TEMPLIST'
STO TEMPLIST OBJ\->
DROP
    END DEPTH ROLLD
  NEXT CLEAR
TEMPLIST OBJ\-> DROP
DROP DEPTH \->LIST
'ALIST' STO
'TEMPLIST' PURGE
'WHERE' PURGE 0
'DELTHIS' STO
CENTRAL
\>>
