flamer@argent.UUCP (Jim Trethewey @mithril) (04/17/87)
37a38,41 > * M001 02-Apr-1987 flamer Fixed ztob() where a checksum that > * comes out a multiple of 10 works. > * Fixed digit correction blunder > * in btoz(). 144c148 < checksum = (10 - checksum % 10); --- > checksum = (10 - checksum % 10) % 10; /* M001 */ 168a173 > int error_digit; /* M001 */ 171a177 > error_digit = 0; /* M001 */ 224,225c230,231 < if (!checksum_flag || verbose_flag) < { --- > if ((error_digit != digit_length) || verbose_flag) > { /* M001 */ 278a285 > error_digit = digits_seen + 1; /* M001 */ 281c288 < parity, ch_p, digits_seen + 1); --- > parity, ch_p, error_digit); /* M001 */