1% 2% Encoding vector and redefinition of findfont for the ISO Latin1 standard. 3% The 18 characters missing from ROM based fonts on older printers are noted 4% below. 5% 6 7/ISOLatin1Encoding [ 8 /.notdef 9 /.notdef 10 /.notdef 11 /.notdef 12 /.notdef 13 /.notdef 14 /.notdef 15 /.notdef 16 /.notdef 17 /.notdef 18 /.notdef 19 /.notdef 20 /.notdef 21 /.notdef 22 /.notdef 23 /.notdef 24 /.notdef 25 /.notdef 26 /.notdef 27 /.notdef 28 /.notdef 29 /.notdef 30 /.notdef 31 /.notdef 32 /.notdef 33 /.notdef 34 /.notdef 35 /.notdef 36 /.notdef 37 /.notdef 38 /.notdef 39 /.notdef 40 /space 41 /exclam 42 /quotedbl 43 /numbersign 44 /dollar 45 /percent 46 /ampersand 47 /quoteright 48 /parenleft 49 /parenright 50 /asterisk 51 /plus 52 /comma 53 /minus 54 /period 55 /slash 56 /zero 57 /one 58 /two 59 /three 60 /four 61 /five 62 /six 63 /seven 64 /eight 65 /nine 66 /colon 67 /semicolon 68 /less 69 /equal 70 /greater 71 /question 72 /at 73 /A 74 /B 75 /C 76 /D 77 /E 78 /F 79 /G 80 /H 81 /I 82 /J 83 /K 84 /L 85 /M 86 /N 87 /O 88 /P 89 /Q 90 /R 91 /S 92 /T 93 /U 94 /V 95 /W 96 /X 97 /Y 98 /Z 99 /bracketleft 100 /backslash 101 /bracketright 102 /asciicircum 103 /underscore 104 /quoteleft 105 /a 106 /b 107 /c 108 /d 109 /e 110 /f 111 /g 112 /h 113 /i 114 /j 115 /k 116 /l 117 /m 118 /n 119 /o 120 /p 121 /q 122 /r 123 /s 124 /t 125 /u 126 /v 127 /w 128 /x 129 /y 130 /z 131 /braceleft 132 /bar 133 /braceright 134 /asciitilde 135 /.notdef 136 /.notdef 137 /.notdef 138 /.notdef 139 /.notdef 140 /.notdef 141 /.notdef 142 /.notdef 143 /.notdef 144 /.notdef 145 /.notdef 146 /.notdef 147 /.notdef 148 /.notdef 149 /.notdef 150 /.notdef 151 /.notdef 152 /dotlessi 153 /grave 154 /acute 155 /circumflex 156 /tilde 157 /macron 158 /breve 159 /dotaccent 160 /dieresis 161 /.notdef 162 /ring 163 /cedilla 164 /.notdef 165 /hungarumlaut 166 /ogonek 167 /caron 168 /space 169 /exclamdown 170 /cent 171 /sterling 172 /currency 173 /yen 174 /brokenbar % missing 175 /section 176 /dieresis 177 /copyright 178 /ordfeminine 179 /guillemotleft 180 /logicalnot 181 /hyphen 182 /registered 183 /macron 184 /degree % missing 185 /plusminus % missing 186 /twosuperior % missing 187 /threesuperior % missing 188 /acute 189 /mu % missing 190 /paragraph 191 /periodcentered 192 /cedilla 193 /onesuperior % missing 194 /ordmasculine 195 /guillemotright 196 /onequarter % missing 197 /onehalf % missing 198 /threequarters % missing 199 /questiondown 200 /Agrave 201 /Aacute 202 /Acircumflex 203 /Atilde 204 /Adieresis 205 /Aring 206 /AE 207 /Ccedilla 208 /Egrave 209 /Eacute 210 /Ecircumflex 211 /Edieresis 212 /Igrave 213 /Iacute 214 /Icircumflex 215 /Idieresis 216 /Eth % missing 217 /Ntilde 218 /Ograve 219 /Oacute 220 /Ocircumflex 221 /Otilde 222 /Odieresis 223 /multiply % missing 224 /Oslash 225 /Ugrave 226 /Uacute 227 /Ucircumflex 228 /Udieresis 229 /Yacute % missing 230 /Thorn % missing 231 /germandbls 232 /agrave 233 /aacute 234 /acircumflex 235 /atilde 236 /adieresis 237 /aring 238 /ae 239 /ccedilla 240 /egrave 241 /eacute 242 /ecircumflex 243 /edieresis 244 /igrave 245 /iacute 246 /icircumflex 247 /idieresis 248 /eth % missing 249 /ntilde 250 /ograve 251 /oacute 252 /ocircumflex 253 /otilde 254 /odieresis 255 /divide % missing 256 /oslash 257 /ugrave 258 /uacute 259 /ucircumflex 260 /udieresis 261 /yacute % missing 262 /thorn % missing 263 /ydieresis 264] def 265 266/NewFontDirectory FontDirectory maxlength dict def 267 268% 269% Apparently no guarantee findfont is defined in systemdict so the obvious 270% 271% systemdict /findfont get exec 272% 273% can generate an error. So far the only exception is a VT600 (version 48.0). 274% 275 276userdict /@RealFindfont known not { 277 userdict begin 278 /@RealFindfont systemdict begin /findfont load end def 279 end 280} if 281 282/findfont { 283 dup NewFontDirectory exch known not { 284 dup 285 %dup systemdict /findfont get exec % not always in systemdict 286 dup userdict /@RealFindfont get exec 287 dup /Encoding get StandardEncoding eq { 288 dup length dict begin 289 {1 index /FID ne {def}{pop pop} ifelse} forall 290 /Encoding ISOLatin1Encoding def 291 currentdict 292 end 293 /DummyFontName exch definefont 294 } if 295 NewFontDirectory 3 1 roll put 296 } if 297 NewFontDirectory exch get 298} bind def 299 300