I=1
SCAN FOR !DELETED()
REPL NRNOD WITH I
I=I+1
ENDSCAN