Не знаю, как правильно, но работает.

myke 07.06.2002 20:26

@counterf[name][$cnt;$got] счетчик на файл (MK)
$cnt[]
^file:lock[$root/data/temp/cnt.lock]{
$got[^table::load[$root/data/temp/${name}.cnt]]
$cnt[$got.number]
$cnt[^cnt.int(0)]
$cnt[^eval($cnt+1)]
$got[^table::create{number
$cnt
}
]
^got.save[$root/data/temp/${name}.cnt]
}

@counterff[name][$cnt;$got] показ счетчика из файла (MK)
$cnt[]
^file:lock[$root/data/temp/cnt.lock]{
$got[^table::load[$root/data/temp/${name}.cnt]]
$cnt[$got.number]$cnt}