Маленькая прога для обработки тарификации

Прога для преобразования формата 800-го файла в другой формат,
который у нас используется для тарификации абонентов Кванта.
Сделайте папку, положите туда 800.s12 и эту прогу. Запустите
прогу без параметров. Создастся новый файл в новом формате 800.kvn.
Файл 800.s12 должен быть со снятым флажком "только чтение".
То есть доступен для записи. Записи никакой в него не будет,
но надо немножко исходник подправить, а лень-матушка берет свое.
Написана на TASM.