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

Revision 9090, 1.4 KB checked in by ghudson, 28 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r9089, which included commits to RCS files with non-trunk default branches.
RevLine 
[9089]1%!
2% Start of banner.pro -- prolog for printer banner maker
3% Copyright (c) 1985,1987 Adobe Systems Incorporated. All Rights Reserved.
4% GOVERNMENT END USERS: See Notice file in TranScript library directory
5% -- probably /usr/lib/ps/Notice
6% 4.2bsd banner page prolog (uses lpd/"of" short banner string)
7% host:user  Job: file  Date: Day Mth dd hh:mm:ss yyyy
8% RCSID: $Header: /afs/dev.mit.edu/source/repository/third/transcript/lib/banner.bsd,v 1.1.1.1 1996-10-07 20:25:31 ghudson Exp $
9/Banner{
10 14 dict begin dup statusdict exch /jobname exch put
11 save /sv exch def /jobstr exch def /PN exch def
12 jobstr(Job: )search not{0()}if /hu exch def pop
13 /s1 exch def s1(Date: )search
14   {/jb exch def pop/da exch def}{/jb exch def/da()def}ifelse
15 statusdict /printername known
16 {/pn 31 string statusdict/printername get exec def}{/pn(PostScript)def}ifelse
17 /w 670 def/y{72 w moveto show}def/z{y/w w 30 sub def}def
18 /l{
19  gsave .5 setgray 12 setlinewidth newpath moveto
20  470 0 rlineto stroke grestore
21 } def
22 72 720 l
23 /Helvetica-Bold findfont 14 scalefont setfont hu z jb z
24 /Helvetica findfont 14 scalefont setfont da z PN y( / )show pn show
25 72 540 l
26 /Times-Roman findfont 10 scalefont setfont
27 72 520 moveto
28 (TranScript 4.1 \267 Distributed and supported by Qualix Group \267 Phone:
29415-572-0200 \267 Email: ) show
30 /Times-Italic findfont 10 scalefont setfont
31 (transcript@qualix.com) show
32 showpage sv end restore
33} def
Note: See TracBrowser for help on using the repository browser.