Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

%!
% Flag page routine
%	Inputs:	User_Name - the user name of the owner
%		File_Name - Filename being printed
%		Date_Time - Date and Time when job started or Finished
%		Queue_Name - Queue Name being printed on
%		Error_Msg - Error Message (optional)
%		Note_Msg  - User Note (optional)
/PF
{pop pop pop pop} def
/inch {72 mul} def
/Error_Msg where not
{/Error_Msg () def} {pop} ifelse		%Make sure entity exists
/Note_Msg where not
{/Note_Msg () def} {pop} ifelse			%Make sure entity exists
/curvedbox
{/r exch def
/y exch def
/x exch def
currentpoint
/cy exch def
/cx exch def
newpath
cx x 2 div add cy moveto
cx x add cy cx x add cy y add r arcto PF
cx x add cy y add cx cy y add r arcto PF
cx cy y add cx cy r arcto PF
cx cy cx x 2 div add cy r arcto PF
closepath
stroke
} def
/S {stroke} def
/M {moveto} def
/L {lineto} def
/F {fill} def
/SF {scalefont} def
/determine_size {
	gsave
	2 copy stringwidth pop
	sub
	0 le
	{currentfont [.95 0 0 .95 0 0] makefont setfont determine_size}
	{exch pop show} ifelse
	grestore
	} def
1 inch 6 inch M 6.5 inch 4 inch 25 curvedbox
.5 setgray
newpath
.5 inch 1 inch M
.5 inch 10 inch lineto
.75 inch 10 inch lineto
.75 inch 1 inch lineto
closepath
F
newpath
7.75 inch 1 inch M
7.75 inch 10 inch lineto
8 inch 10 inch lineto
8 inch 1 inch lineto
closepath
F
0 setgray
/sribullet
 {
/ellipsedict 8 dict def
ellipsedict /mtrx matrix put
/ellipse
 {ellipsedict begin
	/endangle exch def
	/startangle exch def
	/yrad exch def
	/xrad exch def
	/y exch def
	/x exch def
	/savematrix mtrx currentmatrix def
	x y translate
	xrad yrad scale
	0 0 1 startangle endangle arc
	savematrix setmatrix
	end
 }def
newpath
.5 .5 scale
.8 1 scale
 2 setlinewidth
% Make inner ellipses
 0 0 55 50 0 360 ellipse
S
 0 0 30 50 0 360 ellipse
S
% Make center vertical line
 0 50 M
 0 -100 rlineto
S	
% Make white space box in center
 -69 25 M
 -69 -25 lineto
 69 -25 lineto
 69 25 lineto
 closepath
1 setgray
F
%Make horizontal lines
2 setlinewidth
0 setgray
 -69 25 M
 138 0 rlineto
S
 -69 -25 M
 138 0 rlineto
S
 -53 38 M
 106 0 rlineto
S
 -53 -38 M
 106 0 rlineto
S
% Make outer ellipse (done after box so it doesnt get written on by box)
 3.5 setlinewidth
 0 0 80 50 0 360 ellipse
S
/Helvetica-Bold findfont
32 SF
setfont
-75 -5 M		
2.8 1 scale
(SRI)show
.357 1 scale	%set scale back to normal
/Helvetica-Bold findfont
18 SF
setfont
-70 -20 M		
1.30 1 scale
(International)show
.769 1 scale}def
/Helvetica findfont 40 SF setfont
108 648 moveto User_Name 330 User_Name determine_size
/Helvetica findfont 15 SF setfont
108 612 moveto (Date:  ) show Date_Time 370 Date_Time determine_size
108 576 moveto (File:  ) show File_Name 370 File_Name  determine_size
108 540 moveto (Queue:  ) show Queue_Name 350 Queue_Name determine_size
Error_Msg length 0 gt
{108 504 moveto (Error:  ) show  Error_Msg 350 Error_Msg  determine_size} if
Note_Msg length 0 gt
{108 468 moveto (Note:   ) show  Note_Msg 350 Note_Msg  determine_size} if
6.7 inch 9.4 inch translate
sribullet
showpage