/************************************************************/
/*                       newname                            */
/************************************************************/

/* :SUMMARY: New command
:PRIORITY: 5
:STATUS: ok
:FEATURE: 
acedb's command 
  new class_name format 
Construct a new name according to C-language printf(format,n) 

:MODEL:
?Probe specific_properties probe_clone_data	Text REPEAT

:DATA:
Probe : "G00-163-666"
probe_clone_data	 "vector_type" "Plasmid"

:RESULT: 
 New Probe A\%d
  should construct Pobe A1, then A2 etc
works in: ace43h

:SCRIPT: */
newname: dbinit -f wspec.igd-fred  // tag value query
  tace
     parse: do parse $data/igd.probe.ace
     1: do new Probe A\%d
     2: do new Probe A\%d
     l: do Query Find Probe
           list
           count
  exit