CompuServe Messages

% PPage Users, % See if you can get this EPS file to load into PPage 2.1. %!PS-Adobe-2.0-EPSF-1.2 %%Creator:Allory Deiss %%Title:ZIP %%CreationDate:6/20/91 9:39 AM %%DocumentFonts:Courier %%BoundingBox:0 -45 324 0 %%EndComments gsave zipDict 20 dict def zipDict begin ZIP (10009) def %enter either 5 or 9 digit zip code as text string bdef {bind def} bind def _R {.25 sub round .25 add} bdef _r {transform _R exch _R exch itransform} bdef l {_r lineto} bdef m {_r moveto} bdef w {0 _r pop setlinewidth} bdef tall {0 0 m 0 9 l 3.45 0 _r translate} bdef short {0 0 m 0 3.6 l 3.45 0 _r translate} bdef 39 -27 translate .75 w 1 {short short short tall tall} bdef 2 {short short tall short tall} bdef 3 {short short tall tall short} bdef 4 {short tall short short tall} bdef 5 {short tall short tall short} bdef 6 {short tall tall short short} bdef 7 {tall short short short tall} bdef 8 {tall short short tall short} bdef 9 {tall short tall short short} bdef 0 {tall tall short short short} bdef ZIP length 5 eq ZIP length 9 eq or {tall 0 1 ZIP length 1 sub {ZIP exch 1 getinterval cvn cvx exec} for 0 0 1 ZIP length 1 sub {ZIP exch 1 getinterval cvi add} for 10 mod dup 0 ne {10 exch sub} if 1 string cvs cvn cvx exec tall stroke} {/Courier findfont 9 scalefont setfont 0 0 m (Zip Code must be either 5 or 9 d igits) show} ifelse end grestore % It loads fine into Pagestream, but not into PPage. It generates the % postal barcodes you see on envelopes. % Chris