ERASE an object from the database

1 ERase
2! objecttype (1) 
2?
2 QUERY
2 FORM
2 PROC
2 TABLE
3 objectname
4?  (
4.1? 
4.1 CONfirm
4.1.1! =
4.1.2! profile (2) 
4.1.2 Yes
4.1.2 No
4.1.3? )