вот как-то понадобилось организовать цикл в блоке кода.

// выполняется блок кода пока истинно условие
function DoWhile(usl,action)
local ret
do while eval(usl)
   ret:=eval(action)
enddo
return ret