%!PS-Adobe-2.0 %%Title: Blue Book Program 8, on page 161 %%Creator: Adobe Systems Incorporated %%CreationDate: Thu Dec 28 13:30:57 PST 1989 %%EndComments /fractiondict 5 dict def /fractionshow { fractiondict begin /denominator exch def /numerator exch def /regularfont currentfont def /fractionfont currentfont [.65 0 0 .6 0 0] makefont def gsave newpath 0 0 moveto (1) true charpath flattenpath pathbbox /height exch def pop pop pop grestore 0 .4 height mul rmoveto fractionfont setfont numerator show 0 .4 height mul neg rmoveto regularfont setfont (\244) show fractionfont setfont denominator show regularfont setfont end } def /Times-Roman findfont 300 scalefont setfont 100 72 moveto (7) (8) fractionshow /Times-Roman findfont 18 scalefont setfont 72 550 moveto (Slowly stir in 5) show (1) (2) fractionshow ( lbs. of chocolate and then blend on high.) show /Times-Roman findfont 40 scalefont setfont 420 650 moveto (13) (22) fractionshow 100 450 moveto (3) (4) fractionshow showpage