0
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
'FULL'
&uf('+7'),&uf('+7W200#',v200^a),&uf('+7W210#',v210^d),&uf('+7W3#0'),&uf('Av910#1')
'IN=',&uf('Av910^b#1')

PUTLOG
'1001= ', v1001
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if &uf('JFULL,IN=',&uf('Av1001^b#1'))='1' then '1' else if p(v200^a) and p(v210^d) then if v200^a=&uf('+7R200') and &uf('Av210^d#1')=&uf('+7R210') then '1' else '0' fi else '0' fi fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
PUTLOG
'910 было ', (if p(v910) then v910 fi /),&uf('+7W3#1')
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
REP
910
F
&uf('+7W1#0'), &uf('+7W2#0'), (if p(v910) then if v910^b=&uf('Av1001^b#1') and v910^d=&uf('Av1001^d#1') and '015':v910^a then if &uf('+7R1,1')='0' then &uf('+7W1#1'),&uf('Av1001#1') else &uf('+7W2#1'),v910 fi else v910 fi fi /)
XXXXXXXXXXXXXXXXXXX
PUTLOG
'910 стало ', (if p(v910) then v910 fi /)
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
940
XXXXXXXXXXXXXXXXXXX
if &uf('+7R1')='1' then v1001 fi
XXXXXXXXXXXXXXXXXXX
PUTLOG
if &uf('+7R2')='1' then 'Проверьте запись MFN: ',f(MFN,1,0) fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
PUTLOG
if &uf('+7R3')='0' then 'Не найдена запись ',&uf('Av1001#1') fi, &uf('+7W3#0')
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
910
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
UNTIL
if p(v910) then '1' else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DELR
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX