PS:page082

TinyPS Editor

/inch { 72 mul } def
/advanceline { /nextline nextline linespace sub def } def
/advancepara { /nextline nextline paraspace sub def } def

/centertext { dup stringwidth pop 2 div 
rightmargin leftmargin sub 2 div
exch sub
leftmargin add 
nextline moveto 
show } def

/bodytext { secondcolumn nextline moveto show } def

/rightjustifytext { dup stringwidth pop 
rightcolumn exch sub
nextline moveto
show } def

/topstart 9.5 inch def
/bodystart 8.5 inch def
/linespace 14 def
/paraspace 28 def
/leftmargin .5 inch def
/rightmargin 8 inch def
/rightcolumn 2.5 inch def
/secondcolumn 3 inch def

/Times-Bold findfont 14 scalefont setfont

/nextline topstart def
(ACME WIDGETS INCORPORATED) centertext
/nextline nextline 20 sub def
(Fiscal Year 1986) centertext

/Times-Roman findfont 12 scalefont setfont

/nextline bodystart def
(Acme Widgets war founded in 1952 by Dippy and Daffy Acme) bodytext advanceline
(to produce hight technnology widgets for the booming areospace) bodytext advanceline
(industry. Acme was quickly recognized as being the best) bodytext advanceline
(technology and mandufactoring methods has kept Acme Widgets) bodytext advanceline
(in the forefront of this industry.) bodytext advancepara

/saveparaone nextline def

(Acme Widgets sells 72% of all widgets produced in the) bodytext advanceline
(United States and it has 39% of the growing international) bodytext advanceline
(market.) bodytext advancepara

/saveparatwo nextline def

(Headquarters: Burbank, California) bodytext advanceline
(Domestic sales offices in Seattle, WA: Dallas, TX,) bodytext advanceline
(and Washington, D.C.) bodytext advancepara

/saveparathree nextline def

($223 million in gross sales for fiscal 1985:) bodytext advanceline
($248 million in gross sales projected for fiscal 1986.) bodytext advanceline
(and Washington, D.C.) bodytext advancepara

/Times-Bold findfont 12 scalefont setfont

/nextline bodystart def
(History:) rightjustifytext

/nextline saveparaone def
(Market position:) rightjustifytext

/nextline saveparatwo def
(Offices:) rightjustifytext

/nextline saveparathree def
(Financial position:) rightjustifytext

showpage

Exercices