/* 1001 - модельное поле с номерами отмеченных повторений поля 40
'{'MHL,'\fs14 ',"\b ЦГПБ имени В. В. Маяковского \b ",
"\par  ",
"\par  ""\b Номер билета: \b "v30,
'\par ___________________________________________',
'\par   Выдача: Возврат:   Инв. №,  Документ    '
'\par ___________________________________________',
if s(v40,v200^a)<>'' then
(if v1001<>'' then
|\par  |d1001,&uf('Av40^d*6.2#',v1001),|.|d1001,&uf('Av40^d*4.2#',v1001),|.|d1001,&uf('Av40^d*2.2#',v1001),| : |d1001,&uf('Av40^e*6.2#',v1001),|.|d1001,
&uf('Av40^e*4.2#',v1001),|.|d1001,&uf('Av40^e*2.2#',v1001),| :   |d1001,&uf('Av40^B#',v1001),
'\par  \li1500 ',&uf('Av40^c.40#',v1001),
'\par \li0-----------------------------------------------------------------------'fi) fi 
'\par  '
'\par  Подпись читателя: _______________________''}'