Текст подпрограммы приведен в примере 7.2. При ее использовании в разделе данных задачи надо зарезервировать один байт, присвоив ему имя DotBuff.