0
IF
if v936:'Подшивка'then'1'else'0'fi



ADD
101

if v931^c:'-'then ,&uf('+7W1#'),(&uf('+7U1#'&uf('+5Tnom.mnu'))/),if g1:&uf('E1'&uf('G2-'v931^c))then &uf("D,!I="v933"!,&uf('Av101#1')")fi fi

REP
931^c
1
&unifor("V"v931^c)
XXXXXXXXXXXXXXXXXXX
ADD
74
XXXXXXXXXXXXXXXXXXX
(/&unifor('1*R,?v931^c#1'))
XXXXXXXXXXXXXXXXXXX
REP
931^c
1
&unifor("U"v931^c)
XXXXXXXXXXXXXXXXXXX
REP
920
1
'NJK'
XXXXXXXXXXXXXXXXXXX
DEL
910^E
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if p(v74) then '*' fi
"^C"v903,(if p(v910)then if '0 1 3':v910^a then |^D|v910^d,|^B|v910^b fi fi/)
(if p(v74) then |I=|d74,&unifor('Av933#1'),|/|d74,&unifor('Av934#1'),if &unifor('Av935#1')<>''then'/'&unifor('Av935#1') fi,|/|v74 fi/)
XXXXXXXXXXXXXXXXXXX
REP
920
1
'NJP'
XXXXXXXXXXXXXXXXXXX
ADD
1903

&uf('Av1001^c#1')

REPEAT




ADD
910^p
F
(if p(v910)then if v910^a='0'and v910^d=&uf('AV1001^d#1')then if v910^p<>'' then # else &uf('Av1903#1'),BREAK fi else # fi fi/)


ADD
910^I
F
(if p(v910)then if v910^a='0'and v910^d=&uf('AV1001^d#1')then if v910^i<>'' then # else &uf('Av1001^b#1'),BREAK  fi else # fi fi/)

REP
910^a
F
(if p(v910)then if v910^a='0'and v910^i<>''then 'p',BREAK else v910^a fi fi/)

DEL
1001
1


UNTIL
if v1001<>''then'1'else'0'fi



DEL
463^W
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
445
XXXXXXXXXXXXXXXXXXX
(if p(v910) then if '2 6 7 ':v910^a then else '^A'v910^p,if a(v910^p) then &unifor('Av903#1') fi fi fi/)
XXXXXXXXXXXXXXXXXXX
ADD
463
XXXXXXXXXXXXXXXXXXX
(if p(v445) then if &unifor('Pv445^A')<>''then/'^W'&unifor('Pv445^A') fi fi)
XXXXXXXXXXXXXXXXXXX
DEL
445
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1001
*


DEL
1903
1


END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
74
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if p(v481) then '1'else'0'fi



ADD
1481
XXXXXXXXXXXXXXXXXXX
(if p(v481)then v481 fi/)
XXXXXXXXXXXXXXXXXXX
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
2481
XXXXXXXXXXXXXXXXXXX
&unifor('Av1481#1')
XXXXXXXXXXXXXXXXXXX
ADD
777
XXXXXXXXXXXXXXXXXXX
&unifor("V"v2481^h)
XXXXXXXXXXXXXXXXXXX
ADD
74
XXXXXXXXXXXXXXXXXXX
(/&unifor('1*R,?v777#1'))
XXXXXXXXXXXXXXXXXXX
DEL
777
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if p(v74) then '*' fi
"^C"v903,(if p(v910)then if '0 1 3':v910^a then |^D|v910^d,|^B|v910^b fi fi/)
(if p(v74) then |I=|d74,if &uf('Av2481^W#1')<>'' then &uf('Av2481^W#1') else &unifor('Av933#1') fi,|/|d74,&unifor('Av2481^q#1'),if &unifor('Av2481^f#1')<>''then'/'&unifor('Av2481^f#1') fi,|/|v74 fi/)

REP
920
1
'NJP'
XXXXXXXXXXXXXXXXXXX
ADD
1903

&uf('Av1001^c#1')

REPEAT




ADD
910^p
F
(if p(v910)then if v910^a='0'and v910^d=&uf('AV1001^d#1')then if v910^p<>'' then # else &uf('Av1903#1'),BREAK fi else # fi fi/)


ADD
910^I
F
(if p(v910)then if v910^a='0'and v910^d=&uf('AV1001^d#1')then if v910^i<>'' then # else &uf('Av1001^b#1'),BREAK  fi else # fi fi/)

REP
910^a
F
(if p(v910)then if v910^a='0'and v910^i<>''then 'p',BREAK else v910^a fi fi/)

DEL
1001
1


UNTIL
if v1001<>''then'1'else'0'fi



DEL
463^W
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
445
XXXXXXXXXXXXXXXXXXX
(if p(v910) then if '2 6 7 ':v910^a then else '^A'v910^p,if a(v910^p) then &unifor('Av903#1') fi fi fi/)
XXXXXXXXXXXXXXXXXXX
ADD
463
XXXXXXXXXXXXXXXXXXX
(if p(v445) then if &unifor('Pv445^A')<>''then/'^W'&unifor('Pv445^A') fi fi)
XXXXXXXXXXXXXXXXXXX
DEL
445
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
74
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
2481
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1481
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
UNTIL
if v1481<>''then'1'else'0'fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if v481^W<>''then'1'else'0'fi



DEL
1903
*


ADD
1903

(&uf('Pv481^W')/)

REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if p(v1903)then'*'fi
(if p(v910)then if '0 1 3':v910^a then '^Q',&uf('Av934#1'),|^D|v910^d,|^K|v910^b,'^H',&uf('Av936#1'),'^P',&uf('Av903#1') fi fi/)
"I="d1903,&uf('Av1903#1')

ADD
909

(v1001/)

END




DEL
1903
1


UNTIL
if p(v1903)then'1'else'0'fi



FI




FI




FI




DEL
991
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX