🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: net.sources.bugs
Article #995

patch to ZIP Code Bar Code

#995
From: Jim Trethewey
Date: Fri, 17 Apr 1987 20:22
25 lines
1567 bytes
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 */
Technical Details
Message-ID: <24@argent.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!decvax!decwrl!pyramid!oliveb!intelca!mipos3!omepd!omssw1!argent!flamer

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!decvax!decwrl!pyramid!oliveb!intelca!mipos3!omepd!omssw1!argent!flamer
From: flamer@argent.UUCP (Jim Trethewey @mithril)
Newsgroups: net.sources.bugs
Subject: patch to ZIP Code Bar Code
Message-ID: <24@argent.UUCP>
Date: Fri, 17-Apr-87 15:22:32 EST
Article-I.D.: argent.24
Posted: Fri Apr 17 15:22:32 1987
Date-Received: Tue, 21-Apr-87 03:12:16 EST
Reply-To: flamer@argent.UUCP (Jim Trethewey @mithril)
Organization: Intel Corp. (BITBUS), Hillsboro, OR
Lines: 25