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.
|
Rev | Line | |
---|
[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: |
---|
| 29 | 415-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.