Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!lavaca.uh.edu!jetson.uh.edu!phys59
From: phys59@jetson.uh.edu
Newsgroups: comp.lang.postscript
Subject: <None>
Message-ID: <8914.27ee9bd8@jetson.uh.edu>
Date: 26 Mar 91 00:54:47 CST
References: <00945F52.7DECB940@b56vxg> <8911.27ee6eb3@jetson.uh.edu>
Organization: University of Houston
Lines: 26

In article <8911.27ee6eb3@jetson.uh.edu>, phys59@jetson.uh.edu writes:
> [...lots of PostScript code]
> /CheckSum 0 def
> 0 1 9 {dup BarString exch 1 getinterval cvi exch 2 mod 2 mul 1 add mul
>        CheckSum add /CheckSum exch def} for
> CheckSum 10 mod 10 exch sub /CheckSum exch def
> NewString 13 CheckSum cvi 1 string cvs putinterval
> [a pinch more PostScript code...]

One of those lines (you figure out which one!) should read:
CheckSum 10 mod 10 exch sub 10 mod /CheckSum exch def
                            ^^^^^^
Otherwise the program will fail with a cvs rangecheck error 10% of the time.
So sorry for any inconvenience this may have caused.

Ronald Parker, phys59@jetson.uh.edu
Route 2 CR475E
Hamilton, IN  46742

If you plan to profit off the above code, please contact me first.

Ron Parker
phys59@jetson.uh.edu
sig held up pending FCC type acceptance.
Disclaimer: As far as the university knows, I'm just another 9-digit number.