set talk off
use six
go top
x = 600000

do while x > 590150
 appen blank
 repl cuenta1 with x
 x = x - 1
enddo