Процедура измерения инта есть в Adventurere 12. Раздел "Обмен опытом".
http://trd.speccy.cz/press/adventur/ADVENT12.ZIP

---------- Post added at 23:33 ---------- Previous post was at 23:33 ----------

И здесь ещё одна:
http://zxdn.narod.ru/coding/bc06tclc.txt