/state save def
/S { show } bind def
/M { moveto } bind def
/L { rlineto currentpoint stroke moveto } bind def
currentscreen		% freq angle proc
3 -1 roll		% angle proc freq
2 mul			% angle proc 2*freq
3 1 roll		% 2*freq angle proc
setscreen

389.6 738 M
/fontAB /AvantGarde-Book findfont 14.0 scalefont def
/fAB { fontAB setfont } bind def
 fAB (Frederick) S
455.8 738 M (W.) S
477.6 738 M (Butzen) S
298.5 724 M
/fontAL /AvantGarde-Book findfont 12.0 scalefont def
/fAL { fontAL setfont } bind def
 fAL (Writer\320Editor\320Programmer\320Designer) S
364.4 710 M (4320) S
394.7 710 M (N.) S
410.7 710 M (Claremont) S
476.5 710 M (Avenue) S
418.7 696 M (Chicago,) S
476.9 696 M (IL) S
489 696 M (60618) S
439.6 682 M (\(312\)) S
471.9 682 M (463-2938) S
373 668 M (fred) S
400.2 668 M (@) S
414.4 668 M (lepanto.mwc.com) S
90 654 M
432 0 L

state restore
