source: trunk/third/transcript/lib/banner.sysv @ 9090

%!
% Start of banner.pro -- prolog for printer banner maker
% Copyright (c) 1985,1987 Adobe Systems Incorporated. All Rights Reserved. 
% GOVERNMENT END USERS: See Notice file in TranScript library directory
% -- probably /usr/lib/ps/Notice
% (user)(USER)(host)(seqid)(title)(printer)(date)Banner
% RCSID: $Header: /afs/dev.mit.edu/source/repository/third/transcript/lib/banner.sysv,v 1.1.1.1 1996-10-07 20:25:31 ghudson Exp $
/Banner{
  /date exch def/printer exch def/title exch def/seqid exch def
  /host exch def/User exch def/user exch def
  statusdict/printername known
  {/pn 31 string statusdict/printername get exec def}{/pn(PostScript)def}ifelse
  /l{gsave .5 setgray 12 setlinewidth newpath moveto
     468 0 rlineto stroke grestore}def
  /x{/w w 30 sub def}def/z{72 w moveto show x}def/s{show(       )show}def
  /w 670 def/Helvetica-Bold findfont 14 scalefont setfont
  72 720 l 72 w moveto user s host s User s x title z
  /Helvetica findfont 14 scalefont setfont
  date z 72 w moveto printer s seqid s pn s
  72 540 l
  /Times-Roman findfont 10 scalefont setfont
  72 520 moveto
  (TranScript 4.1 \267 Distributed and supported by Qualix Group \267 Phone:
  415-572-0200 \267 Email: ) show
  /Times-Italic findfont 10 scalefont setfont
  (transcript@qualix.com) show
%%  /Courier findfont 10 scalefont setfont 72 500 moveto/S{show(  )show}def
%%  4{ 
%%    gsave printer S user S host S title S date S grestore
%%    0 -25 rmoveto
%%  }repeat 
  showpage
} def