0
ADD
910^H
F
if &uf('+1R766')='' then  &uf('+1W766#900051171') fi,(if p(v910) then if a(v910^h)then &uf('+1W766#',f(val(&uf('+1R766'))+1,0,0)),&uf('+1R766') fi,fi#),
XXXXXXXXXXXXXXXXXXX
REP
910^H
F
(if p(v910) then if v910^h.1='9' then v910^h*1 else v910^H fi,fi#),
XXXXXXXXXXXXXXXXXXX
REP
910^H
F
(if p(v910) then |21000|v910^H  fi/)
XXXXXXXXXXXXXXXXXXX