rem                            DELENT.CDL

rem        Copy Right by International Technology Transfer Corp.
rem        revision 1.0 7/30/99   


rem        ********************************************************************
rem        Delete Entity
rem        ********************************************************************

clear
clearsel

:start
count=0

getmenu "Select Entity","Single","Chain","Window",\
        "Polygon","Group","Plane","All Disp"
        on (@key + 3) goto exit,start,start,
selno   =@key

getentm selno,nument

:delete
count=count+1
if (count>nument)
	goto exit
getnext enttype,count,id
delent id
goto delete

:exit
redraw