%!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?