Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!snorkelwacker!husc6!cmcl2!uupsi!pbs!bhall From: bhall@pbs.org (Dark Star) Newsgroups: comp.fonts Subject: Re: Needed: IBM extended character set font for Mac Message-ID: <10080.26ebd928@pbs.org> Date: 10 Sep 90 22:19:20 GMT References: <1990Sep9.195641.25462@portia.Stanford.EDU> Organization: PBS:Public Broadcasting Service, Alexandria, VA Lines: 838 In article <1990Sep9.195641.25462@portia.Stanford.EDU>, mouser@portia.Stanford.EDU (Michael Wang) writes: > Does anybody know where I could FTP a PostScript font of the IBM (MS-DOS) > extended character set for the Macintosh? Here is a PostScript font that I got off the net a while back. There is no screen version so it could be a little tricky to use it directly in a Mac word processor. I remember seeing a commercial product a while back but don't remember any details. -- Bruce Hall Domain: bhall@pbs.org Public Broadcasting Service UUCP:...{uupsi,vrdxhq,csed-1,ida.org}!pbs!bhall Phone: 703/739-5048 "Experience is the name everyone gives to their mistakes" - Oscar Wilde ------------------------------Cut Here--------------------------------------- %Subject: IBM PC Extended Font Definition (long) %Message-ID: <1352@ernest.ti.com> %From: alan@ernest.ti.com (Alan Edmonds) % %The following PS file will allow you to print the IBM PC extended (screen) %ASCII characters. You still have to convert the ASCII to postscript %before printing. Thanks to Tim Clark for the basic IBM PC extended %character set definition and Tony Field for his ASCII->PS filter; psf. % %Have fun! % %!PS-Adobe- % % IBMextended font definition % Defines the characters in the IBM-PC extended character set, not % found elsewhere in Adobe fonts % Produced by Tim Clark, Computing Services, University of Warwick UK % (T.Clark@warwick.ac.uk) % No restrictions are placed on the use of this information % % Modifications by Alan Edmonds (alan@ernest.ti.com) on 10 Feb 90. % % I moved the character positions into the "right" positions. % I added the definition of Courier font characters for the "standard" % ASCII characters. % To use this, send the following to the printer: % % /IBMextended findfont 10 scalefont setfont % % Note: with psf you have to edit the output and change the font select from % Courier to IBMextended. /newfont 60 dict def newfont begin /FontType 3 def /FontMatrix [.001 0 0 .001 0 0] def /FontBBox [0 -200 600 800] def /Encoding 256 array def 0 1 255 {Encoding exch /.notdef put} for Encoding 1 /wsmiley put Encoding 2 /bsmiley put Encoding 8 /whitedot put Encoding 9 /circle put Encoding 10 /whitecircle put Encoding 11 /mars put Encoding 12 /venus put Encoding 13 /quaver put Encoding 14 /doublequaver put Encoding 16 /rarrowhead put Encoding 17 /larrowhead put Encoding 18 /updowna put Encoding 19 /exclamdbl put Encoding 22 /bar put Encoding 23 /updownua put Encoding 28 /lblcorn put Encoding 30 /uarrowhead put Encoding 31 /darrowhead put Encoding 158 /Psubt put Encoding 169 /ltlcorn put Encoding 170 /ltrcorn put Encoding 171 /half put Encoding 172 /quarter put Encoding 176 /xhatch1 put Encoding 177 /xhatch2 put Encoding 178 /xhatch3 put Encoding 179 /vers put Encoding 180 /rtss put Encoding 181 /rtds put Encoding 182 /rtsd put Encoding 183 /trsd put Encoding 184 /trds put Encoding 185 /rtdd put Encoding 186 /verd put Encoding 187 /trdd put Encoding 188 /brdd put Encoding 189 /brsd put Encoding 190 /brds put Encoding 191 /trss put Encoding 192 /blss put Encoding 193 /btss put Encoding 194 /ttss put Encoding 195 /ltss put Encoding 196 /hors put Encoding 197 /crss put Encoding 198 /ltds put Encoding 199 /ltsd put Encoding 200 /bldd put Encoding 201 /tldd put Encoding 202 /btdd put Encoding 203 /ttdd put Encoding 204 /ltdd put Encoding 205 /hord put Encoding 206 /crdd put Encoding 207 /btds put Encoding 208 /btsd put Encoding 209 /ttds put Encoding 210 /ttsd put Encoding 211 /blsd put Encoding 212 /blds put Encoding 213 /tlds put Encoding 214 /tlsd put Encoding 215 /crsd put Encoding 216 /crds put Encoding 217 /brss put Encoding 218 /tlss put Encoding 219 /block put Encoding 220 /blockb put Encoding 221 /blockl put Encoding 222 /blockr put Encoding 223 /blockt put Encoding 253 /sup2 put Encoding 254 /squaredot put % % Courier Font % Encoding 33 /exclamation put Encoding 34 /doublequote put Encoding 35 /poundsign put Encoding 36 /dollarsign put Encoding 37 /percent put Encoding 38 /ampersand put Encoding 39 /quote put Encoding 40 /leftparen put Encoding 41 /rightparen put Encoding 42 /asterix put Encoding 43 /plussign put Encoding 44 /comma put Encoding 45 /minussign put Encoding 46 /period put Encoding 47 /slashchar put Encoding 48 /0 put Encoding 49 /1 put Encoding 50 /2 put Encoding 51 /3 put Encoding 52 /4 put Encoding 53 /5 put Encoding 54 /6 put Encoding 55 /7 put Encoding 56 /8 put Encoding 57 /9 put Encoding 58 /colon put Encoding 59 /semicolon put Encoding 60 /lessthan put Encoding 61 /equals put Encoding 62 /greaterthan put Encoding 63 /questionmark put Encoding 64 /atsign put Encoding 65 /A put Encoding 66 /B put Encoding 67 /C put Encoding 68 /D put Encoding 69 /E put Encoding 70 /F put Encoding 71 /G put Encoding 72 /H put Encoding 73 /I put Encoding 74 /J put Encoding 75 /K put Encoding 76 /L put Encoding 77 /M put Encoding 78 /N put Encoding 79 /O put Encoding 80 /P put Encoding 81 /Q put Encoding 82 /R put Encoding 83 /S put Encoding 84 /T put Encoding 85 /U put Encoding 86 /V put Encoding 87 /W put Encoding 88 /X put Encoding 89 /Y put Encoding 90 /Z put Encoding 91 /leftbracket put Encoding 92 /backslash put Encoding 93 /rightbracket put Encoding 94 /caret put Encoding 95 /underline put Encoding 96 /backquote put Encoding 97 /a put Encoding 98 /b put Encoding 99 /c put Encoding 100 /d put Encoding 101 /e put Encoding 102 /f put Encoding 103 /g put Encoding 104 /h put Encoding 105 /i put Encoding 106 /j put Encoding 107 /k put Encoding 108 /l put Encoding 109 /m put Encoding 110 /n put Encoding 111 /o put Encoding 112 /p put Encoding 113 /q put Encoding 114 /r put Encoding 115 /s put Encoding 116 /t put Encoding 117 /u put Encoding 118 /v put Encoding 119 /w put Encoding 120 /x put Encoding 121 /y put Encoding 122 /z put Encoding 123 /leftcurly put Encoding 124 /verticalsign put Encoding 125 /rightcurly put Encoding 126 /tildesign put /CharProcs 300 dict def CharProcs begin /.notdef {} def /wsmiley { % position 33, PC char 1, white smiley face newpath 300 300 280 0 360 arc closepath 40 setlinewidth stroke 300 300 150 210 330 arc 1 setlinecap stroke 200 400 40 0 360 arc closepath fill 400 400 40 0 360 arc closepath fill } def /bsmiley { % position 34, PC char 2, black smiley face newpath 300 300 300 0 360 arc closepath fill 300 300 150 210 330 arc 1 setgray 1 setlinecap 100 setlinewidth stroke 200 400 70 0 360 arc closepath fill 400 400 70 0 360 arc closepath fill } def /rarrowhead { % position 35, PC char 16, right pointing arrow-head newpath 600 300 moveto 0 600 lineto 0 0 lineto 600 300 lineto closepath fill } def /larrowhead { % position 36, PC char 17, left pointing arrow-head newpath 0 300 moveto 600 600 lineto 600 0 lineto 0 300 lineto closepath fill } def /exclamdbl { % position 37, PC char 19, double exclamation mark /Times-Roman findfont 1000 scalefont setfont 0 0 moveto -100 0 (!!) ashow } def /bar { % position 38, PC char 22, short fat bar newpath 50 200 moveto 50 400 lineto 550 400 lineto 550 200 lineto 50 200 lineto closepath fill } def /updownua { % position 39, PC char 23, underscored up and down pointing arrow /Symbol findfont 1000 scalefont setfont 50 50 moveto (\137) show 0 -150 moveto (\255) show 0 -150 moveto (\257) show } def /lblcorn { % position 40, PC char 28, little bottom left corner newpath 30 300 moveto 30 30 lineto 600 30 lineto stroke } def /Psubt { % position 41, PC char 158, P subscript t /Times-Roman findfont dup 1000 scalefont setfont 0 0 moveto (P) show 667 scalefont setfont 250 -80 moveto (t) show } def /ltlcorn { % position 42, PC char 169, little top left corner newpath 30 0 moveto 30 300 lineto 600 300 lineto stroke } def /half { % position 43, PC char 171, half /Times-Roman findfont 600 scalefont setfont 0 300 moveto (1) show 240 -100 moveto (2) show newpath 70 150 moveto 530 460 lineto 36 setlinewidth stroke } def /quarter { % position 44, PC char 172, quarter /Times-Roman findfont 600 scalefont setfont 0 300 moveto (1) show 240 -100 moveto (4) show newpath 70 150 moveto 530 460 lineto 36 setlinewidth stroke } def /xhatch1 { % position 45, PC char 176, light cross hatching 0 200 400 { -200 200 600 { exch dup 3 -1 roll newpath moveto 40 40 rmoveto 0 20 rlineto 20 0 rlineto 0 -20 rlineto -20 0 rlineto closepath fill } for pop } for 100 200 500 { -100 200 700 { exch dup 3 -1 roll newpath moveto 40 40 rmoveto 0 20 rlineto 20 0 rlineto 0 -20 rlineto -20 0 rlineto closepath fill } for pop } for } def /xhatch2 { % position 46, PC char 177, medium cross hatching 0 200 400 { -200 200 600 { exch dup 3 -1 roll newpath moveto 20 20 rmoveto 0 60 rlineto 60 0 rlineto 0 -60 rlineto -60 0 rlineto closepath fill } for pop } for 100 200 500 { -100 200 700 { exch dup 3 -1 roll newpath moveto 20 20 rmoveto 0 60 rlineto 60 0 rlineto 0 -60 rlineto -60 0 rlineto closepath fill } for pop } for } def /xhatch3 { % position 47, PC char 178, heavy cross hatching 0 200 400 { -200 200 600 { exch dup 3 -1 roll newpath moveto 0 100 rlineto 100 0 rlineto 0 -100 rlineto -100 0 rlineto closepath fill } for pop } for 100 200 500 { -100 200 700 { exch dup 3 -1 roll newpath moveto 0 100 rlineto 100 0 rlineto 0 -100 rlineto -100 0 rlineto closepath fill } for pop } for } def /vers { % position 48, PC char 179, vertical single newpath 300 -200 moveto 300 800 lineto stroke } def /rtss { % position 49, PC char 180, right tee single single newpath 300 -200 moveto 300 800 lineto 0 300 moveto 300 300 lineto stroke } def /rtds { % position 50, PC char 181, right tee double single newpath 300 -200 moveto 300 800 lineto 0 200 moveto 300 200 lineto 0 400 moveto 300 400 lineto stroke } def /rtsd { % position 51, PC char 182, right tee single double newpath 200 -200 moveto 200 800 lineto 400 -200 moveto 400 800 lineto 0 300 moveto 200 300 lineto stroke } def /trsd { % position 52, PC char 183, top right single double newpath 0 300 moveto 400 300 lineto 400 -200 lineto 200 300 moveto 200 -200 lineto stroke } def /trds { % position 53, PC char 184, top right double single newpath 0 400 moveto 300 400 lineto 300 -200 lineto 0 200 moveto 300 200 lineto stroke } def /rtdd { % position 54, PC char 185, top right double double newpath 400 -200 moveto 400 800 lineto 0 200 moveto 200 200 lineto 200 -200 lineto 0 400 moveto 200 400 lineto 200 800 lineto stroke } def /verd { % position 55, PC char 186, vertical double newpath 200 -200 moveto 200 800 lineto 400 -200 moveto 400 800 lineto stroke } def /trdd { % position 56, PC char 187, top right double double newpath 0 400 moveto 400 400 lineto 400 -200 lineto 0 200 moveto 200 200 lineto 200 -200 lineto stroke } def /brdd { % position 57, PC char 188, bottom right double double newpath 0 200 moveto 400 200 lineto 400 800 lineto 0 400 moveto 200 400 lineto 200 800 lineto stroke } def /brsd { % position 58, PC char 189, bottom right single double newpath 0 300 moveto 400 300 lineto 400 800 lineto 200 300 moveto 200 800 lineto stroke } def /brds { % position 59, PC char 190, bottom right double single newpath 0 200 moveto 300 200 lineto 300 800 lineto 0 400 moveto 300 400 lineto stroke } def /trss { % position 60, PC char 191, top right single single newpath 0 300 moveto 300 300 lineto 300 -200 lineto stroke } def /blss { % position 61, PC char 192, bottom left single single newpath 300 800 moveto 300 300 lineto 600 300 lineto stroke } def /btss { % position 62, PC char 193, bottom tee single single newpath 0 300 moveto 600 300 lineto 300 300 moveto 300 800 lineto stroke } def /ttss { % position 63, PC char 194, top tee single single newpath 0 300 moveto 600 300 lineto 300 300 moveto 300 -200 lineto stroke } def /ltss { % position 64, PC char 195, left tee single single newpath 300 -200 moveto 300 800 lineto 300 300 moveto 600 300 lineto stroke } def /hors { % position 65, PC char 196, horizontal sngle newpath 0 300 moveto 600 300 lineto stroke } def /crss { % position 66, PC char 197, cross single single newpath 0 300 moveto 600 300 lineto 300 -200 moveto 300 800 lineto stroke } def /ltds { % position 67, PC char 198, left tee double single newpath 300 -200 moveto 300 800 lineto 300 200 moveto 600 200 lineto 300 400 moveto 600 400 lineto stroke } def /ltsd { % position 68, PC char 199, left tee single double newpath 200 -200 moveto 200 800 lineto 400 -200 moveto 400 800 lineto 400 300 moveto 600 300 lineto stroke } def /bldd { % position 69, PC char 200, bottom left double double newpath 200 800 moveto 200 200 lineto 600 200 lineto 400 800 moveto 400 400 lineto 600 400 lineto stroke } def /tldd { % position 70, PC char 201, top left double double newpath 200 -200 moveto 200 400 lineto 600 400 lineto 400 -200 moveto 400 200 lineto 600 200 lineto stroke } def /btdd { % position 71, PC char 202, bottom tee double double newpath 0 200 moveto 600 200 lineto 0 400 moveto 200 400 lineto 200 800 lineto 400 800 moveto 400 400 lineto 600 400 lineto stroke } def /ttdd { % position 72, PC char 203, top tee double double newpath 0 400 moveto 600 400 lineto 0 200 moveto 200 200 lineto 200 -200 lineto 400 -200 moveto 400 200 lineto 600 200 lineto stroke } def /ltdd { % position 73, PC char 204, left tee double double newpath 200 -200 moveto 200 800 lineto 400 -200 moveto 400 200 lineto 600 200 lineto 400 800 moveto 400 400 lineto 600 400 lineto stroke } def /hord { % position 74, PC char 205, horizontal double newpath 0 200 moveto 600 200 lineto 0 400 moveto 600 400 lineto stroke } def /crdd { % position 75, PC char 206, cross double double newpath 0 400 moveto 200 400 lineto 200 800 lineto 400 800 moveto 400 400 lineto 600 400 lineto 400 -200 moveto 400 200 lineto 600 200 lineto 0 200 moveto 200 200 lineto 200 -200 lineto stroke } def /btds { % position 76, PC char 207, bottom tee double single newpath 0 200 moveto 600 200 lineto 0 400 moveto 600 400 lineto 300 400 moveto 300 800 lineto stroke } def /btsd { % position 77, PC char 208, bottom tee single double newpath 0 300 moveto 600 300 lineto 200 300 moveto 200 800 lineto 400 300 moveto 400 800 lineto stroke } def /ttds { % position 78, PC char 209, top tee double single newpath 0 400 moveto 600 400 lineto 0 200 moveto 600 200 lineto 300 200 moveto 300 -200 lineto stroke } def /ttsd { % position 79, PC char 210, top tee single double newpath 0 300 moveto 600 300 lineto 200 300 moveto 200 -200 lineto 400 300 moveto 400 -200 lineto stroke } def /blsd { % position 80, PC char 211, bottom left single double newpath 200 800 moveto 200 300 lineto 600 300 lineto 400 800 moveto 400 300 lineto stroke } def /blds { % position 81, PC char 212, bottom left double single newpath 300 800 moveto 300 200 lineto 600 200 lineto 300 400 moveto 600 400 lineto stroke } def /tlds { % position 82, PC char 213, top left double single newpath 300 -200 moveto 300 400 lineto 600 400 lineto 300 200 moveto 600 200 lineto stroke } def /tlsd { % position 83, PC char 214, top left single double newpath 200 -200 moveto 200 300 lineto 600 300 lineto 400 -200 moveto 400 300 lineto stroke } def /crsd { % position 84, PC char 215, cross single double newpath 0 300 moveto 600 300 lineto 200 -200 moveto 200 800 lineto 400 -200 moveto 400 800 lineto stroke } def /crds { % position 85, PC char 216, cross double single newpath 0 200 moveto 600 200 lineto 0 400 moveto 600 400 lineto 300 -200 moveto 300 800 lineto stroke } def /brss { % position 86, PC char 217, bottom right single single newpath 0 300 moveto 300 300 lineto 300 800 lineto stroke } def /tlss { % position 87, PC char 218, top left single single newpath 300 -200 moveto 300 300 lineto 600 300 lineto stroke } def /block { % position 88, PC char 219, solid full size block newpath 0 -200 moveto 0 800 lineto 600 800 lineto 600 -200 lineto 0 -200 lineto closepath fill } def /blockb { % position 89, PC char 220, solid bottom half block newpath 0 -200 moveto 0 300 lineto 600 300 lineto 600 -200 lineto 0 -200 lineto closepath fill } def /blockl { % position 90, PC char 221, solid left half block newpath 0 -200 moveto 0 800 lineto 300 800 lineto 300 -200 lineto 0 -200 lineto closepath fill } def /blockr { % position 91, PC char 222, solid right half block newpath 300 -200 moveto 300 800 lineto 600 800 lineto 600 -200 lineto 300 -200 lineto closepath fill } def /blockt { % position 92, PC char 223, solid top half block newpath 0 300 moveto 0 800 lineto 600 800 lineto 600 300 lineto 0 300 lineto closepath fill } def /updowna { % position 93, PC char 18, up and down pointing arrow /Symbol findfont 1000 scalefont setfont 0 -150 moveto (\255) show 0 -150 moveto (\257) show } def /uarrowhead { % position 94, PC char 30, upwards arrow head newpath 0 0 moveto 600 0 lineto 300 700 lineto 0 0 lineto closepath fill } def /darrowhead { % position 95, PC char 31, downwards arrow head newpath 0 700 moveto 600 700 lineto 300 0 lineto 0 700 lineto closepath fill } def /ltrcorn { % position 96, PC char 170, little top right corner newpath 0 300 moveto 570 300 lineto 570 0 lineto stroke } def /sup2 { % position 97, PC char 253, superscript 2 /Times-Roman findfont 600 scalefont setfont 120 380 moveto (2) show } def /squaredot { % position 98, PC char 254, centered square dot newpath 200 200 moveto 200 400 lineto 400 400 lineto 400 200 lineto 200 200 lineto closepath fill } def /whitedot { % position 99, PC char 8, black square with white dot newpath 0 0 moveto 0 600 lineto 600 600 lineto 600 0 lineto 0 0 lineto closepath fill 300 300 150 0 360 arc closepath 1 setgray fill } def /circle { % position 100, PC char 9, large circle newpath 300 300 270 0 360 arc closepath stroke } def /whitecircle { % position 101, PC char 10, black square with white circle newpath 0 0 moveto 0 600 lineto 600 600 lineto 600 0 lineto 0 0 lineto closepath fill 300 300 225 0 360 arc closepath 100 setlinewidth 1 setgray stroke } def /mars { % position 102, PC char 11, mars masculine newpath 200 200 170 0 360 arc closepath stroke 341 341 moveto 470 470 lineto stroke 550 550 moveto 550 390 lineto 390 550 lineto 550 550 lineto closepath fill } def /venus { % position 103, PC char 12, venus feminine newpath 300 500 170 0 360 arc closepath stroke 300 0 moveto 300 300 lineto 150 150 moveto 450 150 lineto stroke } def /quaver { % position 104, PC char 13, quaver 300 150 translate gsave 30 rotate 1.5 1 scale newpath -100 0 100 0 360 arc closepath fill grestore newpath 0 0 moveto 0 550 lineto stroke 0 550 moveto 0 0 200 550 200 120 curveto 200 550 0 550 0 500 curveto closepath fill } def /doublequaver { % position 105, PC char 14, two joined quavers newpath 250 300 moveto 250 700 lineto 550 550 lineto 550 150 lineto stroke gsave 250 300 translate 30 rotate 1.5 1 scale newpath -100 0 100 0 360 arc closepath fill grestore gsave 550 150 translate 30 rotate 1.5 1 scale newpath -100 0 100 0 360 arc closepath fill grestore } def % Courier Font characters /exclamation { /Courier findfont 1000 scalefont setfont 0 0 moveto (\041) show } def /doublequote { /Courier findfont 1000 scalefont setfont 0 0 moveto (\042) show } def /poundsign { /Courier findfont 1000 scalefont setfont 0 0 moveto (\043) show } def /dollarsign { /Courier findfont 1000 scalefont setfont 0 0 moveto (\044) show } def /percent { /Courier findfont 1000 scalefont setfont 0 0 moveto (\045) show } def /ampersand { /Courier findfont 1000 scalefont setfont 0 0 moveto (\046) show } def /quote { /Courier findfont 1000 scalefont setfont 0 0 moveto (\047) show } def /leftparen { /Courier findfont 1000 scalefont setfont 0 0 moveto (\050) show } def /rightparen { /Courier findfont 1000 scalefont setfont 0 0 moveto (\051) show } def /asterix { /Courier findfont 1000 scalefont setfont 0 0 moveto (\052) show } def /plussign { /Courier findfont 1000 scalefont setfont 0 0 moveto (\053) show } def /comma { /Courier findfont 1000 scalefont setfont 0 0 moveto (\054) show } def /minussign { /Courier findfont 1000 scalefont setfont 0 0 moveto (\055) show } def /period { /Courier findfont 1000 scalefont setfont 0 0 moveto (\056) show } def /slashchar { /Courier findfont 1000 scalefont setfont 0 0 moveto (\057) show } def /0 { /Courier findfont 1000 scalefont setfont 0 0 moveto (0) show } def /1 { /Courier findfont 1000 scalefont setfont 0 0 moveto (1) show } def /2 { /Courier findfont 1000 scalefont setfont 0 0 moveto (2) show } def /3 { /Courier findfont 1000 scalefont setfont 0 0 moveto (3) show } def /4 { /Courier findfont 1000 scalefont setfont 0 0 moveto (4) show } def /5 { /Courier findfont 1000 scalefont setfont 0 0 moveto (5) show } def /6 { /Courier findfont 1000 scalefont setfont 0 0 moveto (6) show } def /7 { /Courier findfont 1000 scalefont setfont 0 0 moveto (7) show } def /8 { /Courier findfont 1000 scalefont setfont 0 0 moveto (8) show } def /9 { /Courier findfont 1000 scalefont setfont 0 0 moveto (9) show } def /colon { /Courier findfont 1000 scalefont setfont 0 0 moveto (\072) show } def /semicolon { /Courier findfont 1000 scalefont setfont 0 0 moveto (\073) show } def /lessthan { /Courier findfont 1000 scalefont setfont 0 0 moveto (\074) show } def /equals { /Courier findfont 1000 scalefont setfont 0 0 moveto (\075) show } def /greaterthan { /Courier findfont 1000 scalefont setfont 0 0 moveto (\076) show } def /questionmark { /Courier findfont 1000 scalefont setfont 0 0 moveto (\077) show } def /atsign { /Courier findfont 1000 scalefont setfont 0 0 moveto (\100) show } def /A { /Courier findfont 1000 scalefont setfont 0 0 moveto (A) show } def /B { /Courier findfont 1000 scalefont setfont 0 0 moveto (B) show } def /C { /Courier findfont 1000 scalefont setfont 0 0 moveto (C) show } def /D { /Courier findfont 1000 scalefont setfont 0 0 moveto (D) show } def /E { /Courier findfont 1000 scalefont setfont 0 0 moveto (E) show } def /F { /Courier findfont 1000 scalefont setfont 0 0 moveto (F) show } def /G { /Courier findfont 1000 scalefont setfont 0 0 moveto (G) show } def /H { /Courier findfont 1000 scalefont setfont 0 0 moveto (H) show } def /I { /Courier findfont 1000 scalefont setfont 0 0 moveto (I) show } def /J { /Courier findfont 1000 scalefont setfont 0 0 moveto (J) show } def /K { /Courier findfont 1000 scalefont setfont 0 0 moveto (K) show } def /L { /Courier findfont 1000 scalefont setfont 0 0 moveto (L) show } def /M { /Courier findfont 1000 scalefont setfont 0 0 moveto (M) show } def /N { /Courier findfont 1000 scalefont setfont 0 0 moveto (N) show } def /O { /Courier findfont 1000 scalefont setfont 0 0 moveto (O) show } def /P { /Courier findfont 1000 scalefont setfont 0 0 moveto (P) show } def /Q { /Courier findfont 1000 scalefont setfont 0 0 moveto (Q) show } def /R { /Courier findfont 1000 scalefont setfont 0 0 moveto (R) show } def /S { /Courier findfont 1000 scalefont setfont 0 0 moveto (S) show } def /T { /Courier findfont 1000 scalefont setfont 0 0 moveto (T) show } def /U { /Courier findfont 1000 scalefont setfont 0 0 moveto (U) show } def /V { /Courier findfont 1000 scalefont setfont 0 0 moveto (V) show } def /W { /Courier findfont 1000 scalefont setfont 0 0 moveto (W) show } def /X { /Courier findfont 1000 scalefont setfont 0 0 moveto (X) show } def /Y { /Courier findfont 1000 scalefont setfont 0 0 moveto (Y) show } def /Z { /Courier findfont 1000 scalefont setfont 0 0 moveto (Z) show } def /leftbracket { /Courier findfont 1000 scalefont setfont 0 0 moveto (\133) show } def /backslash { /Courier findfont 1000 scalefont setfont 0 0 moveto (\134) show } def /rightbracket { /Courier findfont 1000 scalefont setfont 0 0 moveto (\135) show } def /caret { /Courier findfont 1000 scalefont setfont 0 0 moveto (\136) show } def /underline { /Courier findfont 1000 scalefont setfont 0 0 moveto (\137) show } def /backquote { /Courier findfont 1000 scalefont setfont 0 0 moveto (\140) show } def /a { /Courier findfont 1000 scalefont setfont 0 0 moveto (a) show } def /b { /Courier findfont 1000 scalefont setfont 0 0 moveto (b) show } def /c { /Courier findfont 1000 scalefont setfont 0 0 moveto (c) show } def /d { /Courier findfont 1000 scalefont setfont 0 0 moveto (d) show } def /e { /Courier findfont 1000 scalefont setfont 0 0 moveto (e) show } def /f { /Courier findfont 1000 scalefont setfont 0 0 moveto (f) show } def /g { /Courier findfont 1000 scalefont setfont 0 0 moveto (g) show } def /h { /Courier findfont 1000 scalefont setfont 0 0 moveto (h) show } def /i { /Courier findfont 1000 scalefont setfont 0 0 moveto (i) show } def /j { /Courier findfont 1000 scalefont setfont 0 0 moveto (j) show } def /k { /Courier findfont 1000 scalefont setfont 0 0 moveto (k) show } def /l { /Courier findfont 1000 scalefont setfont 0 0 moveto (l) show } def /m { /Courier findfont 1000 scalefont setfont 0 0 moveto (m) show } def /n { /Courier findfont 1000 scalefont setfont 0 0 moveto (n) show } def /o { /Courier findfont 1000 scalefont setfont 0 0 moveto (o) show } def /p { /Courier findfont 1000 scalefont setfont 0 0 moveto (p) show } def /q { /Courier findfont 1000 scalefont setfont 0 0 moveto (q) show } def /r { /Courier findfont 1000 scalefont setfont 0 0 moveto (r) show } def /s { /Courier findfont 1000 scalefont setfont 0 0 moveto (s) show } def /t { /Courier findfont 1000 scalefont setfont 0 0 moveto (t) show } def /u { /Courier findfont 1000 scalefont setfont 0 0 moveto (u) show } def /v { /Courier findfont 1000 scalefont setfont 0 0 moveto (v) show } def /w { /Courier findfont 1000 scalefont setfont 0 0 moveto (w) show } def /x { /Courier findfont 1000 scalefont setfont 0 0 moveto (x) show } def /y { /Courier findfont 1000 scalefont setfont 0 0 moveto (y) show } def /z { /Courier findfont 1000 scalefont setfont 0 0 moveto (z) show } def /leftcurly { /Courier findfont 1000 scalefont setfont 0 0 moveto (\173) show } def /verticalsign { /Courier findfont 1000 scalefont setfont 0 0 moveto (\174) show } def /rightcurly { /Courier findfont 1000 scalefont setfont 0 0 moveto (\175) show } def /tildesign { /Courier findfont 1000 scalefont setfont 0 0 moveto (\176) show } def end /BuildChar { 600 0 setcharwidth 0 setgray 60 setlinewidth 0 setlinecap exch begin Encoding exch get CharProcs exch get end exec } def end /IBMextended newfont definefont pop %End of definition of IBMextended font