procedure example(int, elm)::templates.Procedures;
doCode procedure %example [
   nGet($int) to int;
   nGet($elm) to elm;
   for[i, i<int, i++]
      [
      values.valueAt[byte(elm/int) to currentValue];
      currentValue.sType=convertToBolean[currentValue.got.type[$STRING$];];
      ]
]
endCode procedure %example;

??['Enter needed value'],%example[answer];