%		This file may be sent to an old LaserWriter (ie, with version 23
%		ROMS) to define a new "a4" operator.  The printer may then be used
%		like a later-version LaserWriter or LaserWriter Plus to print on
%		A4 paper. The operator will remain defined until the printer is 
%		turned off.
%
% 		$Revision:   1.2  $
%	 	$Date:   12 May 1988 15:32:30  $

serverdict begin 0 exitserver
userdict /a4 known not 
	statusdict /product known {statusdict /product get} {()} ifelse
	(LaserWriter) eq and
{
	statusdict begin userdict begin 
	/a4 
	{
		[300 72 div 0  0 -300 72 div  -72 3448]
			292 3365 
			{	0 setblink statusdict /jobstate (printing) put
				margins exch 141 add exch 256 add 8 div round cvi frametoroket
				statusdict /jobstate (busy) put 1 setblink
			} 
			framedevice
		60 45 {dup mul exch dup mul add 1.0 exch sub} setscreen
		{} settransfer
		initgraphics 
		erasepage
	} bind def 
	end end
} if
