21-Oct-86 22:04:41-CDT,3646;000000000001
Return-Path: <INFO-POSTSCRIPT-REQUEST@Sushi.Stanford.EDU>
Received: from Sushi.Stanford.EDU by A20.CC.UTEXAS.EDU with TCP; Tue 21 Oct 86 22:04:11-CDT
Return-Path: <MAGUIRE@CS.COLUMBIA.EDU>
Received: from CS.COLUMBIA.EDU by Sushi.Stanford.EDU with TCP; Mon 20 Oct 86 18:12:40-PDT
Date: Mon 20 Oct 86 20:47:28-EDT
From: Chip Maguire <Maguire@CS.COLUMBIA.EDU>
Subject: Envelop and mailing labels
To: info-postscript@SUSHI.STANFORD.EDU
Message-ID: <12248424898.46.MAGUIRE@CS.COLUMBIA.EDU>
ReSent-Date: Tue 21 Oct 86 19:22:23-PDT
ReSent-From: Info-PostScript-Request <Info-PostScript-REQUEST@Sushi.Stanford.EDU>
ReSent-To: INFO-POSTSCRIPT: ;
ReSent-Message-ID: <12248704320.22.INFO-POSTSCRIPT-REQUEST@Sushi.Stanford.EDU>

Well all you wouldbe letter writers out there - there is now no excuse for
not getting those letters written (such as: ``Well I printed your letter on
the laser printer but could not find a typewriter to address the envelope.'').

Finally the Postscript you have been waiting for: E.PS and L.PS

E.PS is a sample bit of Postscript which you can modify to print the sender
and the address onto standard business envelopes.

L.PS is a sample bit of Postscript which you can modify to print on the
blue (glue on) mailing labels - the only thing you have to write is the
class of postage you wish to use. [For a small price to the truely lazy - a
version which puts an "X" into the various boxes can be made available.]

These two programs are without a doubt less than optimal, however, they
seem to do a need dirty job - which somebody has to do. Comments,
improvements, much better versions solicited.

Both of the above files are provided below:

%!
%
% Simple Postrcript program to address business envelopes
% written 86.10.20 by G.Q. Maguire Jr.
%
% Insert the envelope right side up, left hand end first into the laserwriter
%
/inch {72 mul} def
/Times-Roman findfont 14 scalefont setfont
statusdict /manualfeed true put
% Put the corner at the lower lefthand corner of the envelope
4.5 inch 11 inch translate
-90 rotate
%
0.5 inch 2.75 inch moveto
%
% the name of the person sending this letter
%
(G. Q. Maguire Jr.) show
%
% position to the top lefthand corner of the address
% which is 2 inches up from the bottom of the envelope
/lineskip -15 def
/showline
	{ gsave show grestore
	  0 lineskip rmoveto } def
3.5 inch 2 inch  translate
0 0 moveto
%
% Here is where you fill in the address
%
(G. Q. Maguire Jr.) showline
(Department of Computer Science) showline
(450 Computer Science Building)  showline
(Columbia University) showline
(New York, NY 10027) showline
showpage

%!
%
% Simple Postrcript program to address mailing labels
% written 86.10.20 by G.Q. Maguire Jr.
%
% Insert the label right side up, left hand end first into the laserwriter
%
/inch {72 mul} def
/Times-Roman findfont 12 scalefont setfont
statusdict /manualfeed true put
% Put the corner at the lower lefthand corner of the envelope
5 inch 11 inch translate
-90 rotate
%
2 inch 1.875 inch moveto
%
% the name of the person sending this letter
%
(G. Q. Maguire Jr.) show
%
% position to the top lefthand corner of the address
% which is 1.5 inches up from the bottom of the envelope
/lineskip -13 def
/showline
	{ gsave show grestore
	  0 lineskip rmoveto } def
1.75 inch 1.5 inch  translate
0 0 moveto
%
% Here is where you fill in the address
%
(G. Q. Maguire Jr.) showline
(Department of Computer Science) showline
(450 Computer Science Building)  showline
(Columbia University) showline
(New York, NY 10027) showline
showpage
-------
