0
// счетчик в G1
ADD
60
XXXXXXXXXXXXXXXXXXX
&uf('+7W1#365')
XXXXXXXXXXXXXXXXXXX
// начальная дата в G2
ADD
60
XXXXXXXXXXXXXXXXXXX
&uf('+7W2#',&uf('30'),'0101')
XXXXXXXXXXXXXXXXXXX
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
NEWMFN
'*'
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
// в первую запись добавили первую дату ГГГГ0101 из G2
ADD
60
XXXXXXXXXXXXXXXXXXX
G2
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
// уменьшение счетчика
ADD
111
XXXXXXXXXXXXXXXXXXX
&uf('+7W1#',,f(val(G1)-1,0,0))
XXXXXXXXXXXXXXXXXXX
// надо увеличить дату в G2
ADD
111
XXXXXXXXXXXXXXXXXXX
&uf('+7W2#',,f(val(G2)+1,0,0))
XXXXXXXXXXXXXXXXXXX
UNTIL
if val(G1)>1 then '1' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX