sele 1
use conse
set talk off
x = 1
do while x < 100000
 if x < 10
  y = "00" + str(x,1,0)
 else
  if x > 9 .and. x < 100
   y = "0" + str(x,2,0)
  else
   if x > 99 .and. x < 1000
     y = "0" + str(x,3,0)
   else
    if x > 999 .and. x < 10000
     y = str(x,4,0)
    else
     if x > 9999 .and. x < 100000
       y = str(x,5,0)
     endif
    endif
   endif
  endif
 endif
 appen blank
 repl campo with y
 x = x + 1
enddo