%         Ce fichier peut ˆtre envoy‚ … une ancienne version 
          de LaserWriter (version 23 ROMS, par exemple) pour 
          d‚finir un nouvel op‚rateur "a4".  Cela permet 
%         d'‚muler une version plus r‚cente de LaserWriter 
%         ou de LaserWriter Plus imprimant sur papier A4. 
%         L'op‚rateur doit ˆtre d‚fini … chaque fois que 
%         l'imprimante est allum‚e.
%
%         $Revision: 1.2$
%         $Date: 12 Mai 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
