%!PS-Adobe-2.0
%%Title: Blue Book Program 21, on page 223
%%Creator: Adobe Systems Incorporated 
%%CreationDate: Fri Dec 29 14:05:03 PST 1989
%%EndComments

9 dict dup begin
  /FontType 3 def
  /FontMatrix [1 0 0 1 0 0] def
  /FontBBox [1.28 1.2 -0.16 -0.24] def
  /Encoding 256 array def
  0 1 255 {Encoding exch /.notdef put} for
  Encoding
    dup 97 /a put
    dup 98 /b put
    dup 99 /c put
    dup 100 /d put
    dup 101 /e put
    dup 102 /f put
    dup 103 /g put
    dup 104 /h put
    dup 105 /i put
    dup 108 /l put
    dup 109 /m put
    dup 110 /n put
    dup 111 /o put
    dup 112 /p put
    dup 114 /r put
    dup 115 /s put
    dup 116 /t put
    dup 117 /u put
    dup 118 /v put
    dup 119 /w put
    dup 121 /y put
    dup 32 /space put
    dup 46 /period put
    44 /comma put
    
  /BuildChar
    { 0 begin
        /char exch def
        /fontdict exch def
        /charname fontdict /Encoding get char get def
        
        /charinfo fontdict /CharData get charname
          get def
        /wx charinfo 0 get def
        /charbbox charinfo 1 4 getinterval def
        wx 0 charbbox aload pop setcachedevice
        charinfo 5 get charinfo 6 get true
        
        fontdict /imagemaskmatrix get
          dup 4 charinfo 7 get put
          dup 5 charinfo 8 get put
        charinfo 9 1 getinterval cvx
        imagemask
      end
    } def
    
  /BuildChar load 0 6 dict put
  
  /imagemaskmatrix [25 0 0 -25 0 0] def
  
  /CharData 25 dict def
  CharData begin
    /a [ .64 .04 0 .56 .56 13 14 -1.5 13.5
       <0F983FD870786038C018C018C018C01
       8C018C018603870783FD80F98> ] def
    /b [ .64 .04 0 .56 .76 13 19 -1.5 18.5
       <C000C000C000C000C000CF80DFE0F
       070E030C018C018C018C018C018C018
       E030F070DFE0CF80> ] def
    /c [ .6 .04 0 .52 .56 12 14 -1.5 13.5%%
       <0F803FE070706030C000C000C000C00
       0C000C000603070703FE00F80> ] def%~Description ~of ~Data:
    /d [.64 .04 0 .56 .76 13 19 -1.5 18.5<001800180
      018001800180F983FD870786038C018C018
      C018C018C018C018603870783FD80F98>]def
    /e [ .64 .04 0 .56 .56 13 14 -1.5 13.5
       <0F803FE070706030C018C018FFF8FFF
       8C000C000603070703FE00F80> ] def
    /f [ .32 0 0 .28 .76 7 19 -0.5 18.5 <0E1E3830
       30FEFE303030303030303030303030> ] def
    /g [.64 .04 -0.16 .56 .56 13 18 -1.5 13.5<0F983F
       D870786038C018C018C018C018C018C018
       603870783FD80F98601870303FF00FC0>]def
    /h [ .6 .04 0 .52 .76 12 19 -1.5 18.5
       <C000C000C000C000C000CF80DFE0F070
       E030C030C030C030C030C030C030C030C
       030C030C030> ] def
    /i [ .2 .04 0 .12 .76 2 19 -1.5 18.5 <C0C0C00000
       C0C0C0C0C0C0C0C0C0C0C0C0C0C0> ] def
    /l [.2 .04 0 .12 .76 2 19 -1.5 18.5<C0C0C0C0C0
       C0C0C0C0C0C0C0C0C0C0C0C0C0C0> ] def
    /m [ .92 .04 0 .84 .56 20 14 -1.5 13.5
       <CF0780DFCFE0F0F870E07030C06030
       C06030C06030C06030C06030C06030
       C06030C06030C06030C06030> ] def
    /n [ .6 .04 0 .52 .56 12 14 -1.5 13.5%%
       <CF80DFE0F070E030C030C030C030C0
       30C030C030C030C030C030C030> ] def
    /o [ .64 .04 0 .56 .56 13 14 -1.5 13.5
       <0F803FE070706030C018C018C018C0
       18C018C018603070703FE00F80> ] def
    /p [.64 .04 -.16 .56 .56 13 18 -1.5 13.5<CF80DF
      E0F070E030C018C018C018C018C018C018E
      030F070DFE0CF80C000C000C000C000>]def
    /r [ .32 .04 0 .28 .56 6 14 -1.5 13.5 <DCFCE0
       C0C0C0C0C0C0C0C0C0C0C0> ] def
    /s [ .36 0 0 .32 .56 8 14 -0.5 13.5
       <3C7EC3C3C0E0781E0703C3C37E3C> ] def
    /t [ .36 0 0 .32 .76 8 19 -0.5 18.5 <1818181818
       FFFF181818181818181818181818> ] def
    /u [ .6 .04 0 .52 .56 12 14 -1.5 13.5
       <C030C030C030C030C030C030C030C0
       30C030C030C070E0F07FB01F30> ] def
    /v [ .48 0 0 .44 .56 11 14 -0.5 13.5
       <C060C060C06060C060C060C0318031
       8031801B001B001B000E000E00> ] def
    /w [ .88 0 0 .84 .56 21 14 -0.5 13.5
       <C07018C07018C0701860D83060D830
       60D830318C60318C60318C601B06C0
       1B06C01B06C00E03800E0380> ] def
    /y [.48 0 -.16 .44 .56 11 18 -.5 13.5<C060C060
       C06060C060C060C03180318031801B001B
       001F000600060006000C000C000C00>]def
    /period [.28 .08 0 .16 .12 2 3 -2.5 2.5
       <C0C0C0>] def
    /comma [.32 0 -0.8 .2 .08 5 4 -0.5 1.5
       <183060C0>] def
    /space [.24 0 0 0 0 1 1 0 0 <>] def
    /.notdef [.24 0 0 0 0 1 0 0 <>] def
  end 
  /UniqueID 2 def
end
/Bitfont exch definefont pop

/Bitfont findfont 12 scalefont setfont
72 500 moveto (the tendency of the best) show
72 488 moveto (typography has been and) show
72 476 moveto (still should be in the path of) show
72 464 moveto (simplicity, legibility, and) show
72 452 moveto (orderly arrangement.) show
/Bitfont findfont 8 scalefont setfont
72 436 moveto (theodore low de vinne) show

showpage
      
    
   
% But what does it do?