home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
sprint
/
drawln01.zip
/
FONTS.PS
< prev
next >
Wrap
Text File
|
1993-03-12
|
27KB
|
812 lines
%!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:
% <this file>
% /IBMextended findfont 10 scalefont setfont
% <ASCII to postscript output, I use "psf" from Tony Field (tony@ajfcal)>
% 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