Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site uw-beaver
Path: utzoo!watmath!clyde!burl!ulysses!cbosgd!ucbvax!decvax!tektronix!uw-beaver!laser-lovers
From: laser-lovers@uw-beaver
Newsgroups: fa.laser-lovers
Subject: file to set margins on your LaserWriter
Message-ID: <1296@uw-beaver>
Date: Sat, 8-Jun-85 02:46:39 EDT
Article-I.D.: uw-beave.1296
Posted: Sat Jun  8 02:46:39 1985
Date-Received: Mon, 10-Jun-85 22:09:37 EDT
Sender: daemon@uw-beaver
Organization: U of Washington Computer Science
Lines: 27

From: Brian Reid <reid@Cascade>

People have asked about margins on PostScript printers.
Here is a file to set (permanently, in EEROM) the margins on 
an Apple LaserWriter. [I have also posted this to Unix net.sources]

%!
% This file will set the X and Y margins on an Apple LaserWriter.
% 	Brian Reid, Stanford
%
0000000		% edit this line to equal your server exit password
/Courier findfont 10 scalefont setfont
100 720 moveto
serverdict begin
statusdict begin
dup checkpassword
{  
   (Setting new margins. Old margins were: ) show margins exch 
   10 string cvs show ( ) show 
   10 string cvs show ( ) show 
   showpage exitserver
} {(Sorry, wrong password!) show} ifelse
statusdict begin
1 32 setmargins	  % *** Edit this line. First number is top margin,
	   	  % *** second number is left margin. Both are in pixels.
		  % *** left margin must be a multiple of 16.
end