Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site Cascade.ARPA
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!think!harvard!talcott!panda!genrad!decvax!decwrl!Glacier!Cascade!reid
From: reid@Cascade.ARPA
Newsgroups: net.sources
Subject: set page margins on Apple LaserWriter
Message-ID: <2204@Cascade.ARPA>
Date: Fri, 7-Jun-85 15:28:06 EDT
Article-I.D.: Cascade.2204
Posted: Fri Jun  7 15:28:06 1985
Date-Received: Sun, 9-Jun-85 02:08:26 EDT
Distribution: net
Organization: Stanford University Computer Systems Laboratory
Lines: 21

%!
% 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