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

IF
if p(v200) and p(v210^d) then if v200=&uf('+7R200') and &uf('Av210^d#1')=&uf('+7R210') then &uf('+7W2#1'),'1' else '0' fi else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
REP
910
F
&uf('+7W1#0'), (if p(v910) then if v910^b=v1001^b and v910^d=v1001^d and '01':v910^a then if &uf('+7R1')=0 then &uf('+7W1#1'),v1001 else v910 fi else v910 fi fi /)
XXXXXXXXXXXXXXXXXXX
ADD
940
XXXXXXXXXXXXXXXXXXX
if &uf('+7R1')='1' then v1001 fi
XXXXXXXXXXXXXXXXXXX
PUTLOG
if &uf('+7R1')=0 then &uf('+7R200'),': Экземпляр не найден.',v1001 fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
PUTLOG
if &uf('+7R2')=0 then &uf('+7R200'),': Запись не найдена' fi
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