%%HP: T(3)A(D)F(.);
\<< FORMAT NOISE
NOISE (-2,1.9)
"Warning!" 2 GLABEL
(-6.2,.7)
"Are you sure you want"
2 GLABEL (-6.2,-.3)
"to delete:" 2
GLABEL (-5.4,-1.3)
WHERE OBJ\-> OBJ\-> 1 -
DROPN FONTSIZE
GLABEL (-3.6,-2.3)
"1.Yes   2.No" 2
GLABEL 0 WAIT
  IF 82.1 ==
  THEN CLEAR 1
'DELTHIS' STO
EDITLIST
  END 'WHERE' PURGE
CENTRAL
\>>
