* 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 bvs
program def bvs
   version 2.1
   if "%_*"=="" {di in bl "After" in ye " BVS " in bl "is required: 1. name vector 2. number"
      exit
   }
capture macro drop _j
capture macro drop _k
capture macro drop _i
capture macro drop _r
capture drop %_1

mac def _r = _N/%_2
di _newline(3)
di in bl "Vector" in ye " %_1 " in bl "is created %_r times in blocks of length %_2"

gen %_1 = 1
mac def _i = 1
mac def _k = %_2
mac def _j = 1

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

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