home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OpenStep 4.2
/
Openstep-4.2-Intel-User.iso
/
usr
/
lib
/
transcript
/
banner.pro
< prev
next >
Wrap
Text File
|
1997-03-29
|
1KB
|
24 lines
%!
% 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
% 4.2bsd banner page prolog (uses lpd/"of" short banner string)
% host:user Job: file Date: Day Mth dd hh:mm:ss yyyy
% RCSID: $Header: /disks/hobo/vp6/snichols/rel3.0/transcript/lib/RCS/banner.bsd,v 3.0 1991/06/17 17:08:31 snichols Exp $
/Banner{14 dict begin dup statusdict exch /jobname exch put
save /sv exch def /jobstr exch def /PN exch def
jobstr(Job: )search not{0()}if /hu exch def pop
/s1 exch def s1(Date: )search
{/jb exch def pop/da exch def}{/jb exch def/da()def}ifelse
statusdict /printername known
{/pn 31 string statusdict/printername get exec def}{/pn(PostScript)def}ifelse
/w 670 def/y{72 w moveto show}def/z{y/w w 30 sub def}def
/l{gsave .5 setgray 12 setlinewidth newpath moveto
468 0 rlineto stroke grestore}def
72 720 l /Helvetica-Bold findfont 14 scalefont setfont
hu z jb z/Helvetica findfont 14 scalefont setfont da z PN y( / )show pn show
72 540 l /Courier findfont 10 scalefont setfont 72 500 moveto
4{gsave PN show( )show jobstr show grestore 0 -25 rmoveto}repeat
showpage sv end restore}def