!   TITLE:  new_db.mac (MANAGEMENT)
!
!
!   This sub-macro clears the database, ready to start a new session; resumes
!   the current database, and initializes the toolbar functions.
!
*get,prkey_,active,0,prkey
/nopr

clear_start_new
!
*ask,new_dbf,DATABASE FILE TO CHANGE TO,'file'
!
/filname,new_dbf,1
!
resume
!
allsel,all
!
*get,kp_cnt,kp,,count
*get,ln_cnt,line,,count
*get,ar_cnt,area,,count
*get,vl_cnt,volu,,count
*get,el_cnt,elem,,count
!
*if,el_cnt,gt,0,then
    eplot
*elseif,vl_cnt,gt,0,then
    vplot
*elseif,ar_cnt,gt,0,then
    aplot
*elseif,ln_cnt,gt,0,then
    lplot
*elseif,kp_cnt,gt,0,then
    kplot
*endif
!
toolbar

*if,prkey_,eq,1,then
    /go
*endif