I screwed up in my previous posting. Not only did the posting have an
abnormally high number of typos, the PostScript code for the "Dick Watts"
HP3000 poster that I enclosed at the end of the posting was not color, as I
said it was, but rather only black & white.
 
In order to maintain complete compatability with older, Level 1 PostScript
printers, QueryCalc issues only B&W Level 1 code if you say that your printer
is not capable of color printing. When I printed the previous code out to the
flat file, I had carelessly chosen one of those printers (a standard HP
LaserJet) as the reference printer type.
 
Let me sincerely apologize for the waste of bandwidth, but I've enclosed a
properly colorized version of the code below for those that want to try
printing out the poster to one of their printer/plotters.
 
Wirt Atmar
 
================================
 
%^PS-Adobe-3.1
%%Creator: AICS Research, Inc.
%%DocumentFonts: Helvetica
%%BoundingBox: 0 0 612 792
%%Pages: (atend)
%%EndComments
/vmstate save def
/$aics 210 dict def
$aics begin
/cellwidth 72 def
/rightshow {dup stringwidth pop cellwidth exch sub 0 rmoveto show} def
/rjshow {dup stringwidth pop neg 0 rmoveto show} def
/centershow {dup stringwidth pop cellwidth exch sub 2 div 0 rmoveto show} def
/Courier-Bold findfont 9 scalefont setfont 0 setgray
/Times-Roman findfont 11 scalefont setfont 0 setgray
save
.91 .91 scale
gsave
newpath 25.7802 842.44 moveto 25.7802 30.0395 lineto
649.54 30.0395 lineto 649.54 842.44 lineto closepath
clip newpath
gsave
newpath 25.7802 842.44 moveto 25.7802 30.0395 lineto
649.54 30.0395 lineto 649.54 842.44 lineto closepath
0 .17 .33 0 setcmykcolor fill grestore
grestore initclip
gsave
newpath 199.78 822.04 moveto 199.78 234.04 lineto
630.82 234.04 lineto 630.82 822.04 lineto closepath
clip newpath
gsave
newpath 199.78 822.04 moveto 199.78 234.04 lineto
630.82 234.04 lineto 630.82 822.04 lineto closepath
0 0 0 1 setcmykcolor fill grestore
grestore initclip
gsave
newpath 185.38 234.04 moveto 185.38 48.6396 lineto
630.82 48.6396 lineto 630.82 234.04 lineto closepath
clip newpath
gsave
newpath 185.38 234.04 moveto 185.38 48.6396 lineto
630.82 48.6396 lineto 630.82 234.04 lineto closepath
0 0 0 1 setcmykcolor fill grestore
grestore initclip
gsave
newpath 181.78 830.44 moveto 181.78 114.04 lineto
625.78 114.04 lineto 625.78 830.44 lineto closepath
clip newpath
[] 0 setdash 1 setlinewidth
gsave 181.78 830.44 translate
/cyn 0 def
/mag 1 def
/yel 1 def
/blk .08 def
/dc 1.39587E-3 def
/dm 0 def
/dy -6.97934E-5 def
/dk -1.11669E-4 def
1 1 716.4 {pop cyn dc add /cyn
exch def yel dy add /yel exch def
mag dm add /mag exch def blk dk add
/blk exch def cyn mag yel blk
setcmykcolor newpath 0 0 moveto
444. 0 rlineto stroke 0 -1 translate}
for
grestore
/dcolor {.5 1 .98 .42 setcmykcolor} def
/lcolor {.3 .6 .59 .02 setcmykcolor} def
/dx 30 def /dy -35 def
/box {newpath xpos ypos 5 add moveto 0 25 rlineto 27 0 rlineto
lcolor stroke xpos ypos moveto 5 0 rmoveto 0 25 rlineto 17 0 rlineto
dcolor stroke
xpos 8 add ypos moveto 0 22 rlineto 11 0 rlineto lcolor stroke
xpos 8 add ypos moveto 27 0 rlineto dcolor stroke
xpos 13 add ypos 5 add moveto 17 0 rlineto lcolor stroke xpos 13
add ypos 5 add moveto 0 12 rlineto 6 0 rlineto 0 5 rlineto dcolor
stroke
xpos 16 add ypos 8 add moveto 0 5 rlineto 6 0 rlineto 0 12 rlineto
lcolor stroke xpos 16 add ypos 8 add moveto 11 0 rlineto 0 22 rlineto
dcolor stroke} def
gsave 181.78 830.44 translate
/xdis 444. def
/ydis -746.4 def
10 dy ydis {/ypos exch def gsave
-10 dx xdis {/xpos exch def box} for
grestore} for
grestore
grestore initclip
newpath 181.78 830.44 moveto 181.78 114.04 lineto
625.78 114.04 lineto 625.78 830.44 lineto closepath
[] 0 setdash
.3 setlinewidth
0 0 0 1 setcmykcolor stroke
gsave
newpath 181.78 186.04 moveto 181.78 114.04 lineto
625.78 114.04 lineto 625.78 186.04 lineto closepath
clip newpath
[] 0 setdash 1 setlinewidth
gsave 181.78 186.04 translate
/cyn 0 def
/mag 1 def
/yel 1 def
/blk .58 def
/dc 0 def
/dm -1.38889E-2 def
/dy -1.38889E-2 def
/dk 5.83333E-3 def
1 1 72. {pop cyn dc add /cyn
exch def yel dy add /yel exch def
mag dm add /mag exch def blk dk add
/blk exch def cyn mag yel blk
setcmykcolor newpath 0 0 moveto
444. 0 rlineto stroke 0 -1 translate}
for
grestore
grestore initclip
newpath 181.78 186.04 moveto 181.78 114.04 lineto
625.78 114.04 lineto 625.78 186.04 lineto closepath
[] 0 setdash
.3 setlinewidth
0 0 0 1 setcmykcolor stroke
newpath 181.78 146.44 moveto 514.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 199.78 114.04 moveto 514.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 181.78 133.24 moveto 514.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 181.78 186.04 moveto 625.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 181.78 174.04 moveto 625.78 174.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 181.78 170.44 moveto 514.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 514.78 186.04 moveto 625.78 172.24 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 181.78 162.04 moveto 625.78 162.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 181.78 158.44 moveto 514.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 514.78 186.04 moveto 625.78 158.44 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 181.78 138.04 moveto 625.78 138.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 514.78 186.04 moveto 514.78 114.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 436.78 114.04 moveto 514.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 358.78 114.04 moveto 514.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 280.78 114.04 moveto 514.78 186.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 514.78 186.04 moveto 589.78 114.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
newpath 514.78 186.04 moveto 625.78 132.04 lineto
[] 0 setdash
.5 setlinewidth
0 .5 1 0 setcmykcolor stroke
gsave
newpath 181.78 114.04 moveto 181.78 54.0395 lineto
625.78 54.0395 lineto 625.78 114.04 lineto closepath
clip newpath
gsave
newpath 181.78 114.04 moveto 181.78 54.0395 lineto
625.78 54.0395 lineto 625.78 114.04 lineto closepath
0 .04 .33 0 setcmykcolor fill grestore
grestore initclip
newpath 181.78 114.04 moveto 181.78 54.0395 lineto
625.78 54.0395 lineto 625.78 114.04 lineto closepath
[] 0 setdash
.3 setlinewidth
0 0 0 1 setcmykcolor stroke
save
560.98 104.44 translate
.13 .13 scale
/dcolor {1 0 0 .25 setcmykcolor} def
/lcolor {0 0 0 .02 setcmykcolor} def
/tcolor {0 0 0 1 setcmykcolor} def
/l {lineto} def /m {moveto} def /c {curveto} def
/n {newpath} def
/logo {0 -324 translate 4 4 scale 0 setlinejoin 0.4 setlinewidth
n 0 0 m 0 81 l 53 81 l 53 0 l closepath gsave lcolor fill
grestore dcolor stroke 1 setlinejoin .8 setlinewidth
5 21 m 5 76 l 48 76 l 48 21 l closepath dcolor fill
20 27 m 28 27 37 34 37 35 c 33 70 l 26 70 20 69 20 68 c
18 60 l 20.5 59.5 l 18 48.5 l 20 48 l 18.2 40 l 18.2 39.7 18.7 39.5
19 39.4 c 21 39.5 l closepath lcolor stroke
20.5 59.5 m 26 58.5 l 26 58 25 57.5 23.5 57.5 c 22 57.5 21 58 21 59 c
closepath lcolor gsave fill grestore stroke
20 48 m 23.3 47.3 l 19.5 46 l closepath lcolor gsave fill
grestore stroke
21 39.5 m 29 41 l 29 40 22 35 21 35 c closepath
gsave fill grestore stroke
/AvantGarde-Book findfont 17 scalefont setfont dcolor
7 4 m (AICS) show} def
gsave logo grestore
restore
newpath 181.78 830.44 moveto 181.78 54.0395 lineto
625.78 54.0395 lineto 625.78 830.44 lineto closepath
[] 0 setdash
1 setlinewidth
0 0 0 1 setcmykcolor stroke
newpath 181.78 830.44 moveto 181.78 54.0395 lineto
625.78 54.0395 lineto 625.78 830.44 lineto closepath
[] 0 setdash
1 setlinewidth
0 0 0 1 setcmykcolor stroke
/Palatino-Italic findfont 10 scalefont setfont 1 .5 0 .42 setcmykcolor
37.7802 818.44 moveto
/cellwidth 126 def
(The HP3000 has) rightshow
37.7802 806.44 moveto
(consistently proven) rightshow
37.7802 794.44 moveto
(itself to be among the) rightshow
37.7802 782.44 moveto
(most highly regarded,) rightshow
37.7802 770.44 moveto
(general purpose commercial) rightshow
37.7802 758.44 moveto
(database engines in the) rightshow
37.7802 746.44 moveto
(history of computing.) rightshow
37.7802 566.44 moveto
(More organizations) rightshow
37.7802 554.44 moveto
(use the HP3000, with) rightshow
37.7802 542.44 moveto
(greater assurance of) rightshow
37.7802 530.44 moveto
(system availability) rightshow
37.7802 518.44 moveto
(and minimum staffing) rightshow
37.7802 506.44 moveto
(requirements, and with) rightshow
37.7802 494.44 moveto
(greater success, than) rightshow
37.7802 482.44 moveto
(any other mid-range) rightshow
37.7802 470.44 moveto
(platform on Earth.) rightshow
37.7802 446.44 moveto
(System reliability) rightshow
37.7802 434.44 moveto
(and ease-of-use) rightshow
37.7802 422.44 moveto
(are only two of) rightshow
37.7802 410.44 moveto
(the attributes of the) rightshow
37.7802 398.44 moveto
(HP3000 that have) rightshow
37.7802 386.44 moveto
(generated an almost) rightshow
37.7802 374.44 moveto
(zealous loyalty among) rightshow
37.7802 362.44 moveto
(its users.) rightshow
37.7802 158.44 moveto
(Of the HP3000's 400,000) rightshow
37.7802 146.44 moveto
(IMAGE/SQL databases) rightshow
37.7802 134.44 moveto
(that are in production) rightshow
37.7802 122.44 moveto
(at this moment, after) rightshow
37.7802 110.44 moveto
(tens of millions of) rightshow
37.7802 98.4396 moveto
(transactions, not one) rightshow
37.7802 86.4396 moveto
(of these databases will) rightshow
37.7802 74.4396 moveto
(lose or corrupt any of) rightshow
37.7802 62.4396 moveto
(that data today.) rightshow
/Palatino-Italic findfont 70 scalefont setfont 0 .5 1 .08 setcmykcolor
217.78 686.44 moveto
/cellwidth 24 def
(&) show
/Palatino-Roman findfont 45 scalefont setfont 0 0 1 0 setcmykcolor
241.78 722.44 moveto
/cellwidth 78 def
(Dick Watts) show
241.78 674.44 moveto
(the HP3000) show
/Helvetica-Bold findfont 8 scalefont setfont 0 0 1 0 setcmykcolor
241.78 650.44 moveto
(FOR BUSINESS-CRITICAL DATA PROCESSING AND) show
241.78 638.44 moveto
(ANALYSIS, ONLY THE BEST CONSISTENTLY) show
241.78 626.44 moveto
(PRODUCE EXTRAORDINARY PRODUCTIVITIES) show
241.78 614.44 moveto
(AND PROFITABILITY) show
/AvantGarde-Demi findfont 10 scalefont setfont 0 0 1 0 setcmykcolor
475.78 218.44 moveto
(THE) centershow
475.78 206.44 moveto
(FUTURE WILL) centershow
475.78 194.44 moveto
(BE EASY) centershow
/Palatino-Italic findfont 32 scalefont setfont .25 1 0 .08 setcmykcolor
475.78 74.4396 moveto
(Realize The Dream!) rightshow
/Helvetica findfont 5 scalefont setfont 0 setgray
553.78 38.4396 moveto
/cellwidth 72 def
showpage
restore
end
vmstate restore
%%Trailer
%%Pages: 1
 
================================