%!PS-Adobe-2.0 %%Title: Blue Book Program 18, on page 211 %%Creator: Adobe Systems Incorporated %%CreationDate: Fri Dec 29 13:07:12 PST 1989 %%EndComments /reencsmalldict 12 dict def /ReEncodeSmall { reencsmalldict begin /newcodesandnames exch def /newfontname exch def /basefontname exch def /basefontdict basefontname findfont def /newfont basefontdict maxlength dict def basefontdict { exch dup /FID ne { dup /Encoding eq { exch dup length array copy newfont 3 1 roll put } { exch newfont 3 1 roll put } ifelse } { pop pop } ifelse } forall newfont /FontName newfontname put newcodesandnames aload pop newcodesandnames length 2 idiv { newfont /Encoding get 3 1 roll put } repeat newfontname newfont definefont pop end } def /scandvec [ 8#300 /Oacute 8#311 /Adieresis 8#321 /oacute 8#322 /Ograve 8#323 /Scaron 8#324 /ograve 8#325 /scaron 8#330 /Edieresis 8#331 /adieresis 8#332 /edieresis 8#333 /Odieresis 8#334 /odieresis 8#340 /Aacute 8#342 /Aring 8#344 /Zcaron 8#347 /Eacute 8#360 /aacute 8#362 /aring 8#364 /zcaron 8#367 /eacute ] def /ss { 72 yline moveto show /yline yline 36 sub def } def /Times-Roman /Times-Roman-Scand scandvec ReEncodeSmall /Times-Roman-Scand findfont 16 scalefont setfont /yline 500 def (Boktryckarkonsten \331r k\331llan till praktiskt\ taget all m\331nsklig odling.) ss (Den f\334rutan hade de oerh\334rda framstegen\ inom vetenskap) ss (och teknik inte varit m\334jliga.) ss (\261VALTER FALK) ss /Times-Italic findfont 14 scalefont setfont /yline 500 18 sub def (Printing is the source of practically all human\ evolution.) ss (Without it the tremendous progress in the\ fields of science and) ss (technology would not have been possible.) ss showpage % But what does it do?