* Utrecht, dinsdag 19 november (11) 1991, <14:07>
* contructing variable with values 1 to %_1
* repeated until _N
* Method: using double loop


capture program drop bv
program def bv
   version 2.1
   if "%_*"=="" {di in bl "After" in ye " BV " in bl "is required: 1. name vector 2. number"
      exit
   }
capture macro drop _j
capture macro drop _i
capture drop %_1

mac def _r = _N/%_2
di _newline(3)
di in bl "Vector" in ye " %_1 " in bl "runs from 1 to %_2, and is created %_r times, in blocks of %_2"

gen %_1 = 1
mac def _i = 1

while %_i <= _N {
	mac def _j = 1
		while %_j <= %_2 {
			quietly replace %_1 = %_j in %_i
			mac def _j = %_j + 1
			mac def _i = %_i + 1
			}
	}

ta %_1
end
di in ye "BV " in bl "loaded"          
exit			
Marc Jacobs, Utrecht, The Netherlands, dinsdag 19 november (11) 1991, <14:13>