На вход процедуры расчета подается поток. Допустим, 2048 байтов. Если в результате получается ноль - норма, иначе - нет. Изначально последнее слово = 0, посему результат, скорее всего, будет отличным от нуля. Берем этот результат и записываем вместо исходного нуля. Если теперь пропустить тот же поток через процедуру, то на ее выходе выйдет ноль ...