home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
email
/
pm301.zip
/
RESOURCE.ZIP
/
PM-CHAR.R
< prev
next >
Wrap
Text File
|
1993-08-27
|
7KB
|
247 lines
##
## Sample character translation resource file for
## Pegasus Mail v3.0, SMTP translation and PostScript.
## Copyright (c) 1993, David Harris, All Rights Reserved.
##
## This file can be used to replace the default SMTP
## translation table used by PMail on outgoing non-MIME
## messages, and to customise the printing of international
## character sets on PostScript printers.
##
## It consists of three text resources: if you alter the
## file, you MUST preserve all three resources, even if
## you only want to make changes to one of them. The
## definitions in this sample file duplicate PMail's
## defaults for these resources so you can safely make
## changes to only one or two.
##
## Resource 0 in the file must be an SMTP translation table:
## it consists of high-bit characters followed immediately
## by the string of characters which PMail should use in
## place of the character in outgoing messages. Spaces
## delimit each entry.
##
## Resource 1 in the file must be the PostScript data for
## a banner on a PS printer.
##
## Resource 2 in the file must be the PostScript header
## PMail should use before printing any job.
##
## Warning!! You should ONLY attempt customisation of the
## PostScript resources if you have a thorough knowledge
## of PostScript.
##
## To use this file, make any necessary changes to it and
## compile it using the command "ResCom PM-CHAR.R". Copy
## the resulting PM-CHAR.RSC file into either your home
## mailbox if you want it to affect only you, or into the
## same directory as PMAIL.EXE if you want it to affect all
## users on the system.
text smtp_table
{
"ÇC üue ée âa äae àa åa çc êe ëe èe ïi îi ìi ÄAE ÅA ",
"ÉE æee ÆAE ôo öoe òo ûu ùu ÿy ÖOE ÜUE ¢c £stlg ¥yen ",
"₧peseta ƒguilder áa íi óo úu ñn ÑN ªa ºo ¿? ⌐+ ¬+ ",
"½.5 ¼.25 ¡! «<< »>> │| ┤| ╡| ╢| ╖+ ╕+ ╣| ║| ╗+ ╝+ ",
"╜+ ╛+ ┐+ └+ ┴- ┬- ├| ─- ┼+ ╞| ╟| ╚+ ╔+ ╩- ╦- ╠| ═- ",
"╬+ ╧- ╨- ╤- ╥- ╙+ ╘+ ╒+ ╓+ ╫+ ╪+ ┘+ ┌+ αa ßss πpi ",
"ΣSigma σRho τTau ΘTheta ΩOmega δdelta φo εEpsilon ",
"≡= ±+/- ≥>= ≤<= ÷/ ∙o ·. √sqrt ⁿ^n ²^2"
};
text ps_banner
{
"%!PS-Adobe-2.0\n",
"%%Creator:Pmail300\n",
"%%EndComments\n",
"save\n",
"newpath\n",
"144 425 moveto\n",
"0 162 rlineto\n",
"340 0 rlineto\n",
"0 -162 rlineto\n",
"closepath\n",
"1 setlinewidth\n",
"stroke\n",
"\n",
"/Helvetica-Bold findfont 24 scalefont setfont\n",
"240 605 moveto\n",
"(Banner Page) show\n",
"/Times-Italic findfont 18 scalefont setfont\n",
"265 630 moveto\n",
"(Mail Printout) show\n",
"180 540 moveto\n",
"(User:) show \n",
"180 504 moveto \n",
"(Date:) show\n",
"180 468 moveto \n",
"(From:) show\n",
"/Times-Roman findfont 18 scalefont setfont\n",
"240 540 moveto\n",
"(~u) show \n",
"240 504 moveto \n",
"(~d) show\n",
"240 468 moveto \n",
"(~f) show\n",
"showpage restore"
}
text ps_header
{
"%!PS-Adobe-2.0\n",
"%%Creator:Pmail300\n",
"%%EndComments\n",
"/reencsmalldict 12 dict def\n",
"/ReEncodeSmall\n",
" { reencsmalldict begin\n",
" /newcodesandnames exch def\n",
" /newfontname exch def\n",
" /basefontname exch def\n",
" /basefontdict basefontname findfont def\n",
" /newfont basefontdict maxlength dict def\n",
" basefontdict\n",
" { exch dup /FID ne\n",
" { dup /Encoding eq\n",
" { exch dup length array copy\n",
" newfont 3 1 roll put }\n",
" { exch newfont 3 1 roll put }\n",
" ifelse\n",
" }\n",
" { pop pop }\n",
" ifelse\n",
" } forall\n",
" newfont /FontName newfontname put\n",
" newcodesandnames aload pop\n",
" newcodesandnames length 2 idiv\n",
" { newfont /Encoding get 3 1 roll put }\n",
" repeat\n",
" newfontname newfont definefont pop\n",
" end\n",
" } def\n",
"\n",
"/pcvec [\n",
" 128 /Ccedilla\n",
" 129 /udieresis\n",
" 130 /eacute\n",
" 131 /acircumflex\n",
" 132 /adieresis\n",
" 133 /agrave\n",
" 134 /aring\n",
" 135 /ccedilla\n",
" 136 /ecircumflex\n",
" 137 /edieresis\n",
" 138 /egrave\n",
" 139 /idieresis\n",
" 140 /icircumflex\n",
" 141 /igrave\n",
" 142 /Adieresis\n",
" 143 /Aring\n",
" 144 /Eacute\n",
" 145 /ae\n",
" 146 /AE\n",
" 147 /ocircumflex\n",
" 148 /odieresis\n",
" 149 /ograve\n",
" 150 /ucircumflex\n",
" 151 /ugrave\n",
" 152 /ydieresis\n",
" 153 /Odieresis\n",
" 154 /Udieresis\n",
" 155 /cent\n",
" 156 /sterling\n",
" 157 /yen\n",
" 159 /florin\n",
" 160 /aacute\n",
" 161 /iacute\n",
" 162 /oacute\n",
" 163 /uacute\n",
" 164 /ntilde\n",
" 165 /Ntilde\n",
" 166 /ordfeminine\n",
" 167 /ordmasculine\n",
" 168 /questiondown\n",
" 173 /exclamdown\n",
" 174 /guillemotleft\n",
" 175 /guillemotright\n",
" 179 /bar\n",
" 180 /plus\n",
" 181 /plus\n",
" 182 /plus\n",
" 183 /plus\n",
" 184 /plus\n",
" 185 /plus\n",
" 186 /bar\n",
" 187 /plus\n",
" 188 /plus\n",
" 189 /plus\n",
" 190 /plus\n",
" 191 /plus\n",
" 192 /plus\n",
" 193 /plus\n",
" 194 /plus\n",
" 195 /plus\n",
" 196 /endash\n",
" 197 /plus\n",
" 198 /plus\n",
" 199 /plus\n",
" 200 /plus\n",
" 201 /plus\n",
" 202 /plus\n",
" 203 /plus\n",
" 204 /plus\n",
" 205 /endash\n",
" 206 /plus\n",
" 207 /plus\n",
" 208 /plus\n",
" 209 /plus\n",
" 210 /plus\n",
" 211 /plus\n",
" 212 /plus\n",
" 213 /plus\n",
" 214 /plus\n",
" 215 /plus\n",
" 216 /plus\n",
" 217 /plus\n",
" 218 /plus\n",
" 225 /germandbls\n",
" 240 /equal\n",
" 248 /ring\n",
" 249 /bullet\n",
" 250 /dotaccent\n",
" ] def\n",
"\n",
"/leftmargin { 40 } bind def\n",
"/bot { 54 } bind def /top { } bind def\n",
"/cw { 40 } bind def\n",
"/xtab\n",
" {currentpoint exch dup cvi\n",
" leftmargin cvi sub cvi\n",
" cw cvi mod sub\n",
" cw add\n",
" exch moveto\n",
" } bind def\n",
"/ptsize { ` } bind def /lead { ` } bind def\n",
"/F { findfont exch scalefont setfont } bind def\n",
"/newline {\n",
" currentpoint exch pop lead sub\n",
" dup bot lt {\n",
" pop showpage restore save\n",
" top\n",
" } if\n",
" leftmargin exch moveto\n",
" } bind def\n",
"%%Endprolog\n",
"%%BeginSetup\n",
"/| /|-PC pcvec\n",
" ReEncodeSmall\n",
"ptsize /|-PC F\n",
"save\n",
"leftmargin top moveto\n",
"%%EndSetup\n"
};