home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Estate Planning Advisor
/
Estate_Planning_Advisor_Research_Institute_of_America_June_1996.iso
/
setup.ps
< prev
next >
Wrap
Text File
|
1994-01-11
|
10KB
|
531 lines
%!PS-Adobe-2.1
%%Title: PostScript Setup File for SLATE
%%Creator: Symmetry Group
%%CreationDate: 06 Feb 1991
%%For: SLATE Support of PostScript Printers 2.2.11
%%Copyright: 1994 The Symmetry Group, Inc all rights reserved
%%EndComments
save /$WD 150 dict def $WD begin
/$V 1 def
/$H 1 def
/$L 792 def
/$W 612 def
/$TMP 40 string def
/$TMP1 40 string def
errordict /handleerror
{
/Courier-Bold findfont 9 scalefont setfont
initgraphics
20 144 moveto
(*** SLATE PostScript Error ***) show
20 135 moveto
( Setup Vers: 2.2.11) show
20 126 moveto
( Error Type: ) show $error /errorname get 20 string cvs show
20 117 moveto
(Error Command: ) show $error /command get 20 string cvs show
20 108 moveto
( Stack: ) show
$error /ostack get dup length 20 string cvs show
{currentpoint exch pop 9 sub 80 exch moveto 20 string cvs show}
forall
copypage
} put
/STAT {/STX {PSTAT} def } bind def
/STX {} bind def
/PSTAT {save
/Courier-Bold findfont 9 $H div scalefont setfont
288 $H div dup 90 $V div moveto
( Product: ) show /product where
{pop product}
{(Unknown )}
ifelse show
( Version:) show version show
dup 81 $V div moveto
( PS Level: ) show /languagelevel where
{pop languagelevel}
{1}
ifelse 20 string cvs show
( Setup File: 2.2.11) show
dup 72 $V div moveto
( VM Status: Max:) show vmstatus 20 string cvs show
( Used:) show 20 string cvs show
( Level:) show 20 string cvs show
dup 63 $V div moveto
(Oper Stack Count: ) show count 20 string cvs show
dup 54 $V div moveto
(Dictionary Count: ) show countdictstack 20 string cvs show
dup 45 $V div moveto
(Exec Stack Count: ) show countexecstack 20 string cvs show
pop restore} bind def
/statusdict where
{pop statusdict /waittimeout known
{statusdict /waittimeout 0 put}
if}
if
/statusdict where
{pop statusdict begin /setjobtimeout where
{pop 0 setjobtimeout}
if end}
if
/statusdict where
{pop statusdict /manualfeedtimeout known
{statusdict /manualfeedtimeout 0 put}
if}
if
/$I2 [
39/quotesingle
94/circumflex
96/grave
126/tilde
128/Ccedilla
129/udieresis
130/eacute
131/acircumflex
132/adieresis
133/agrave
134/aring
135/ccedilla
136/ecircumflex
137/edieresis
138/egrave
139/idieresis
140/icircumflex
141/igrave
142/Adieresis
143/Aring
144/Eacute
145/ae
146/AE
147/ocircumflex
148/odieresis
149/ograve
150/ucircumflex
151/ugrave
152/ydieresis
153/Odieresis
154/Udieresis
155/cent
156/sterling
157/yen
158/Pts
159/florin
160/aacute
161/iacute
162/oacute
163/uacute
164/ntilde
165/Ntilde
166/ordfeminine
167/ordmasculine
168/questiondown
170/logicalnot
171/onehalf
172/onequarter
173/exclamdown
174/guillemotleft
175/guillemotright
225/germandbls
226/Gamma
227/pi
228/Sigma
229/sigma
230/mu
231/tau
232/Phi
233/Theta
234/Omega
235/delta
236/infinity
237/phi
238/epsilon
239/intersection
240/equivalence
241/plusminus
242/greaterequal
243/lessequal
246/divide
247/approxequal
248/degree
249/productdot
250/periodcentered
251/radical
252/nsuperior
253/twosuperior
254/filledbox
] def
/$R8 [
127/square
161/Agrave
162/Acircumflex
163/Egrave
164/Ecircumflex
165/Edieresis
166/Icircumflex
167/Idieresis
168/acute
169/grave
170/circumflex
171/dieresis
172/tilde
173/Ugrave
174/Ucircumflex
175/sterling
176/overscore
177/Yacute
178/yacute
179/degree
180/Ccedilla
181/ccedilla
182/Ntilde
183/ntilde
184/exclamdown
185/questiondown
186/currency
187/sterling
188/yen
189/section
190/florin
191/cent
192/acircumflex
193/ecircumflex
194/ocircumflex
195/ucircumflex
196/aacute
197/eacute
198/oacute
199/uacute
200/agrave
201/egrave
202/ograve
203/ugrave
204/adieresis
205/edieresis
206/odieresis
207/udieresis
208/Aring
209/icircumflex
210/Oslash
211/AE
212/aring
213/iacute
214/oslash
215/ae
216/Adieresis
217/igrave
218/Odieresis
219/Udieresis
220/Eacute
221/idieresis
222/germandbls
223/Ocircumflex
224/Aacute
225/Atilde
226/atilde
227/Eth
228/eth
229/Iacute
230/Igrave
231/Oacute
232/Ograve
233/Otilde
234/otilde
235/Scaron
236/scaron
237/Uacute
238/Ydieresis
239/ydieresis
240/Thorn
241/thorn
242/periodcentered
243/mu
244/paragraph
245/threequarters
246/minus
247/onequarter
248/onehalf
249/ordfeminine
250/ordmasculine
251/guillemotleft
252/stop
253/guillemotright
254/plusminus
] def
/$WN [
39/quotesingle
96/grave
124/bar
145/quoteleft
146/quoteright
147/quotedblleft
148/quotedblright
149/bullet
150/endash
151/emdash
160/space
164/currency
166/brokenbar
167/section
168/dieresis
169/copyright
170/ordfeminine
171/guillemotleft
172/logicalnot
173/hyphen
174/registered
175/macron
176/degree
177/plusminus
178/twosuperior
179/threesuperior
180/acute
181/mu
182/paragraph
183/periodcentered
184/cedilla
185/onesuperior
186/ordmasculine
187/guillemotright
188/onequarter
189/onehalf
190/threequarters
191/questiondown
192/Agrave
193/Aacute
194/Acircumflex
195/Atilde
196/Adieresis
197/Aring
198/AE
199/Ccedilla
200/Egrave
201/Eacute
202/Ecircumflex
203/Edieresis
204/Igrave
205/Iacute
206/Icircumflex
207/Idieresis
208/Eth
209/Ntilde
210/Ograve
211/Oacute
212/Ocircumflex
213/Otilde
214/Odieresis
215/multiply
216/Oslash
217/Ugrave
218/Uacute
219/Ucircumflex
220/Udieresis
221/Yacute
222/Thorn
223/germandbls
224/agrave
225/aacute
226/acircumflex
227/atilde
228/adieresis
229/aring
230/ae
231/ccedilla
232/egrave
233/eacute
234/ecircumflex
235/edieresis
236/igrave
237/iacute
238/icircumflex
239/idieresis
240/eth
241/ntilde
242/ograve
243/oacute
244/ocircumflex
245/otilde
246/odieresis
247/divide
248/oslash
249/ugrave
250/uacute
251/ucircumflex
252/udieresis
253/yacute
254/thorn
255/ydieresis
] def
/S {72 exch div /$V exch store
72 exch div /$H exch store
/$L $L $V div store /$W $W $H div store
$H $V scale save () D
} bind def
/LS {72 exch div /$V exch store
72 exch div /$H exch store
/$L $W /$W $L $V div store $H div store
$H $V scale
90 rotate
/H {exch P currentpoint exch pop moveto} bind def
/V {exch P 0 exch sub currentpoint pop exch moveto} bind def
/X {exch P /statusdict where
{pop statusdict begin 1 eq
{setduplexmode true settumble} stopped {pop} if
end}
{pop}
ifelse} bind def
save () D} bind def
/C {P restore
/#copies 1 store
/statusdict where
{pop statusdict begin
/manualfeed where
{/manualfeed false put} if
0 {setpapertray} stopped {pop} if
false {setduplexmode} stopped {pop} if
false {settumble} stopped {pop} if
end} if
end restore} bind def
/W {exch P
currentpoint 4 -1 roll restore moveto
/$W exch store
save} bind def
/L {exch P
currentpoint 4 -1 roll restore moveto
/$L exch store
save} bind def
/H {exch P currentpoint exch pop moveto} bind def
/V {exch P $L exch sub currentpoint pop exch moveto} bind def
/R {P currentpoint exch pop 0 exch moveto} bind def
/N {P STX showpage restore save 0 0 moveto} bind def
/T {3 -1 roll P
STX showpage
3 -1 roll restore
/statusdict where
{pop statusdict begin
dup -1 eq
{pop}
{1 eq /manualfeed exch store}
ifelse
dup -1 eq
{pop}
{currentpoint matrix currentmatrix 4 -1 roll
{setpapertray} stopped {pop} if
setmatrix moveto}
ifelse
end}
{pop pop}
ifelse
save 0 0 moveto } bind def
/Y {3 -1 roll P
currentpoint 5 -1 roll restore moveto
/statusdict where
{pop statusdict begin
dup -1 eq
{pop}
{1 eq /manualfeed exch store}
ifelse
dup -1 eq
{pop}
{currentpoint matrix currentmatrix 4 -1 roll
{setpapertray} stopped {pop} if
setmatrix moveto}
ifelse
end}
{pop pop}
ifelse
save} bind def
/X {exch P
currentpoint 4 -1 roll restore moveto
/statusdict where
{pop statusdict begin
1 eq {setduplexmode} stopped {pop} if end}
{pop}
ifelse
save} bind def
/O {exch P
currentpoint 4 -1 roll restore moveto
/#copies exch store
save} bind def
/P {{pop pop currentpoint exch round exch moveto} exch kshow
currentpoint exch round exch moveto} bind def
/B {4 -1 roll P gsave
100 exch sub 100 div setgray
currentpoint newpath moveto
dup 0 rlineto
exch neg 0 exch rlineto
neg 0 rlineto
closepath fill grestore} bind def
/G {exch P
currentpoint 4 -1 roll restore moveto
100 exch sub 100 div setgray
save} bind def
/CO {5 -1 roll P
currentpoint 7 -1 roll restore moveto
{setcmykcolor} stopped {pop pop pop pop} if
save} bind def
/IS {3 -1 roll P
dup currentpoint 2 copy 5 -1 roll sub moveto gsave translate
dup scale 8 mul} bind def
/CS {3 -1 roll P
dup currentpoint 2 copy 5 -1 roll sub moveto gsave translate
dup scale 2 mul} bind def
/IS2 {4 -1 roll P
dup currentpoint 2 copy 5 -1 roll sub moveto gsave translate
scale 8 mul} bind def
/IE {1 1 matrix 4 -1 roll image grestore} bind def
/CE {1 1 matrix 4 -1 roll false 4 colorimage grestore} bind def
/F {3 -1 roll P
$TMP cvs
currentpoint 5 -1 roll restore moveto
findfont exch $H div scalefont
setfont
save
} bind def
/FV {dup maxlength dict /$N exch def
{exch dup /FID ne
{dup /Encoding eq
{exch dup length array copy $N 3 1 roll put}
{exch $N 3 1 roll put}
ifelse}
{pop pop}
ifelse}
forall
dup $N /FontName 3 -1 roll put exch aload length 2 idiv
{$N /Encoding get 3 1 roll put}
repeat
$N definefont} bind def
/FI {4 -1 roll P
$TMP cvs exch $TMP1 cvs exch
currentpoint 6 -1 roll restore moveto
dup FontDirectory exch known
{findfont exch pop}
{exch findfont $I2 3 1 roll FV}
ifelse
exch $H div scalefont setfont
save} bind def
/F8 {4 -1 roll P
$TMP cvs exch $TMP1 cvs exch
currentpoint 6 -1 roll restore moveto
dup FontDirectory exch known
{findfont exch pop}
{exch findfont $R8 3 1 roll FV}
ifelse
exch $H div scalefont setfont
save} bind def
/FW {4 -1 roll P
$TMP cvs exch $TMP1 cvs exch
currentpoint 6 -1 roll restore moveto
dup FontDirectory exch known
{findfont exch pop}
{exch findfont $WN 3 1 roll FV}
ifelse
exch $H div scalefont setfont
save} bind def
/D {P
currentpoint 3 -1 roll restore moveto
/Courier findfont 12 $H div scalefont setfont
save} bind def
0 0 moveto
/Courier findfont 12 $H div scalefont setfont
%%EndProlog