**a60000
*do startE
set stat off
set dele on
set echo off
set talk off
set cons off
!md z60000
!md z60001
***********Очистка рабочих каталогов
!DEL Z60000\*.DBF
!DEL Z60001\*.DBF

*do pech00
*set echo on
*set talk on
********************отладочная таблица 1500*70
use mmrab
j1=0
********************Размножается на объем
do while j1<6
j1=j1+1
s2a='z60000\m'+str(100000+j1,6)

copy to &S2A
enddo
use
!dir z60000\m*.dbf >mmtxt.txt
*use f080
*copy stru to mmdir
******************файл для запоминания списка файлов
use mmdir
zap
appe from mmtxt sdf
dele for lowe(text)#"m"
pack
go top
dime xmac(99) && с запасом

do while .not.eof()
s2=trim(substr(text,1,8))+'.dbf'
?s2
sele 2
s2a='z60000\'+s2
s2b='z60001\'+s2
SET ALTE TO TXT1.TXT
SET ALTE ON
use &s2a
copy STRU to &s2b
J1K=FCOUN()
*list stru
@23,00 say s2
store 0 to xmac
j2=0
do while .not.eof()
j2=j2+1
scat to x1
j1=1
??X1(1)
do while j1<J1K
j1=j1+1
s2=xmac(j1)+x1(j1)
xmac(j1)=s2
*x1(j1)=s2
??',',S2
enddo
?
*?x1(1),xmac(2),xmac(3)
*gath from x1
*list memo
*edit
skip
enddo
go top
*set head off
*list next 3 off
SET ALTE OFF
SET ALTE TO
USE &S2B
APPE FROM TXT1.TXT DELI 
*WITH '`'

?TIME(),DBF()
use
********удаление переведенного
dele file &s2a
sele 1
skip
enddo
quit