!name genInit
variable center subcyclecount / 2
variable count subcyclecount - 1
proc subThis
message $1
while subCycleNumber != $1
wait subcycles 1
next
substitute
wait subcycles 1
substitute
endproc
while count >= 0
call subThis count/2 - count%2*(-1*center)
wait cycle
set count count -1
next