Set Exclusive On
 Set Safety off
 Close Databases All
 Close Indexes
 If Directory('CTEMP')=.T.
     Cd CTEMP
     Copy File *.* To ..
     Cd ..
 Endif
DELETE FILE dig.cdx
DELETE file staff.cdx
Select 1
 Use dig
 Index On code Tag code
 Index On descr Tag descr
 Select 2
 Use staff
 Index On descr Tag descr
 Index On acode Tag acode
 Index On dcode Tag dcode
 Index On code Tag code
 INDEX ON  llcode+sec Tag llcode
 ........
 Set Safety On
Endproc