0
ADD
1111
XXXXXXXXXXXXXXXXXXX
'1'
XXXXXXXXXXXXXXXXXXX
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
2222
XXXXXXXXXXXXXXXXXXX
&uf('AV30#'v1111)
XXXXXXXXXXXXXXXXXXX
ADD
24
XXXXXXXXXXXXXXXXXXX
 if val(&uf('+95'v2222))<24 then if v24:v2222 then  else &unifor('IMAIN,BIBSIGLA,'),'+',v2222 fi else  fi 
XXXXXXXXXXXXXXXXXXX
DEL
2222
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
REP
1111
1
&unifor('+X=#'v1111) 
XXXXXXXXXXXXXXXXXXX
UNTIL
if val(v1111)<=rsum((if p(v30) then '1;' else '0;' fi)) then '1' else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1111
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX