/out,d_wnd
!  deletes the sourc36 widning elements
*ask,_delwnd, (1) To confirm delete,0

*if,_delwnd,eq,1,then
 fini
 /prep7
 esel,none
 esel,,ename,,36
 nsle
 *get,_ecnt36,elem,,count
 *if,_ecnt36,gt,0,then
  edel,all
  ndel,all
 *endif
 esel,,mat,,5
 nsle
 /num,1
 /pnum,mat,1
 eplo
*endif
/out