You might consider a different approach to the problem; you could
modify the current font so that \244 actually prints the Euro sign.
Here's a snippet that defines an "AddEuro" procedure that adds the Euro
character to a font dictionary.
Note that you need to provide a name for the new, euro-fied font.
% ============= cut here ==============
/Helvetica findfont 30 scalefont setfont
/AddEuro % /newFName <<fontDict>> => <<fDictWithEuro>>
{
dup length dict copy % /newFName <<newfdict>>
begin
/Encoding Encoding % /newFName /Encoding [Enc]
dup length array copy % /newFName /Encoding [EncCopy]
dup 8#244 /Euro put % /newFName /Encoding [EncCopy]
def % /newFName
currentdict definefont
} bind def
/Helvetica findfont /HelvEuro exch AddEuro
30 scalefont
setfont
72 600 moveto
(It costs \244234.99) show
showpage
% ============= cut here ==============
You could call the AddEuro procedure before each setfont and then just
leave the \244 in place in the strings.
If you want to see how this does what it does, I refer you to the
November and December 2001 issues (#11 & 12) of the Acumen Journal,
which explains it all in detail. The journal is free for the
downloading at
http://www.acumentraining.com/acumenjournal.html.
Hope this helps.
- John
--
========
John Deubert
Acumen Training
PostScript & PDF Engineering Classes & Consulting
www.acumentraining.com
Learn PostScript programming techniques
Read the free Acumen Journal
acumentraining.com/acumenjournal.html