(chart)
((helvetica.sd).opendsd
.pushdc
6.5 inch 3.8545 inch 2. .div .translate 90 .rotate
replace .paint
black
(%of 1981 Information Processing Market) 514 2. .div -1.3 cm 10 centertext
backbox
.pushdc
(xsum)0 .def
.pushdc
-1 cm 0 .translate
arrow
vscale
herald
.popdc
1.2 cm 1.2 cm grn 0 .6 cm (Mainframes)shapedbox
1 cm    2.4 cm blu 0 1.8 cm (Mimi/Small Business Computers) shapedbox
.3 cm   4.6 cm ylw 0 .2 cm (Personal Computers) shapedbox
.3 cm   1.4 cm orn 0 1.7 cm (PBX) shapedbox
.7 cm   -1.2 cm red 0 2.8 cm (Copiers) shapedbox
.3 cm   2.9 cm grn 0 .2 cm (Word Processors) shapedbox
.75 cm   1.4 cm  ylw -.2 cm .8 cm (Terminals) shapedbox
.7 cm   2.2 cm  blu 0 1.6 cm (Printers) shapedbox
.2 cm   1.5 cm ylw 0 2.1 cm (Data Communications Equipment) shapedbox
.2 cm   3.2 cm orn 0 .2 cm (Microcomputers) shapedbox
.2 cm   2 cm red 0 cm 1.2 cm (Disk/Tape) shapedbox
.2 cm   2.4 cm grn 0 .2 cm (Key Systems/Facsimile) shapedbox
.2 cm   .4 cm ylw .3 cm 2.3 cm (Leasing/Used Computers) shapedbox
1.2 cm 1.9 cm blu 0.7 cm (Computer Services) shapedbox
.5 cm   3.3 ylw 0 .2 cm (Packaged Software) shapedbox
.3 cm   2.4 cm orn 0 .2 cm (DP/WP Forms & Media) shapedbox
.6 cm   1.1 cm red 0 .6 cm (Copier Supplies) shapedbox
5.1 cm   1.8 cm grn 0 .2 cm (Business Phone Service & Videoconferencing) shapedbox
4.2 cm   2.1 cm ylw 0 .2 cm (Staff Expenditures) shapedbox
.popdc
frontbox
hscale
black
(The $130 Billion US Information Processing Market) 514 2. .div 309 14 centertext
((Source: International Data Corporation)) 514 2. .div 309 14 .sub 9 centertext
.popdc
.closesd
).cvx .def

(cm) (72 2.54 .div .mul) .cvx .def
(inch) (72. .mu.) .cvx .def

(grn) 125 .def
(blu) 100 .def
(ylw) 196 .def
(orn) 175 .def
(red) 156 .def
(lght) 228 .def

(hscale)
((dbx) boxw 10 .div .def
black
(0) 0 drawvtic
(10) dbx drawvtic
(20) dbx 2 .mul drawvtic
(30) dbx 3 .mul drawvtic
(40) dbx 4 .mul drawvtic
(50) dbx 5 .mul drawvtic
(60) dbx 6 .mul drawvtic
(70) dbx 7 .mul drawvtic
(80) dbx 8 .mul drawvtic
(90) dbx 9 .mul drawvtic
(100) dbx 10 .mul drawvtic
).cvx .def

(vscale)
(black
(0) 0 drawtic
(10) 1.1 cm drawtic
(20) 2.2 cm drawtic
(30) 3.3 cm drawtic
(40) 4.4 cm drawtic
).cvx .def

(drawvtic)
((!dfx) .exch .def
!dfx -.4 cm 10 centertext !dfx -.15 cm !dfx lineweight .add 0 .drawboxarea).cvx .def

(drawtic)
((!dfy) .exch .def
-.5 cm !dfy 10 drawtext 0 !dfy .15 cm !dfy lineweight .add .drawboxarea).cvx .def

(herald)
((%) 1 cm 5.5 cm 8 .sub 8 drawtext
(Average) 1 cm 5.5 cm 16 .sub 8 drawtext
(Compound) 1 cm 5.5 cm 24 .sub 8 drawtext
(Growth) 1 cm 5.5 cm 32 .sub 8 drawtext
(Rate:) 1 cm 5.5 cm 40 .sub 8 drawtext
(1981-1986) 1 cm 5.5 cm 48 .sub 8 drawtext).cvx .def

(arrow)
((aly) -1.2 cm .def
(auy) 5.3 cm .def
(adx) .3 cm .def
(aadx) .2 cm .def
(aady) .6 cm .def
lineweight 2 .mul .linewidth
0 0 .moveto
adx 0 .drawto
0 aly .moveto
0 auy .drawto
aadx .neg auy .drawto
adx 2. .div auy aady .add .drawto
aadx adx .add auy .drawto
adx auy .drawto
adx aly .drawto
0 aly .drawto
ylw .texture 0 0 ylw .color
.startpath
0 aly .enterpoint
0 auy .enterpoint
aadx .neg auy .enterpoint
adx 2. .div auy aady .add .enterpoint
aadx adx .add auy .enterpoint
adx auy .enterpoint adx aly .enterpoint
.drawarea
black
.startpath
adx 2. .div delx .add auy aady .add dely .add .enterpoint
aadx adx .add delx .add auy dely .add .enterpoint
aadx adx .add auy .enterpoint
adx 2. .div lineweight .sub auy aady .add .enterpoint
.drawarea
.startpath
adx delx .add auy dely .add .enterpoint
adx delx .add 0 dely .add .enterpoint
adx 0 .enterpoint
adx auy .enterpoint
adx aadx .add auy .enterpoint
adx 2. .div lineweight .sub auy aady .add .enterpoint
.drawarea
.startpath
adx 0 .enterpoint
adx delx .add 0 .enterpoint
adx delx .add aly dely .add .enterpoint
adx aly .enterpoint
.drawarea
).cvx .def

(shapedbox)
((!str) .exch .def
(!sty) .exch .def
(!stx) .exch .def
(!t) .exch .def
(!h) .exch .def
(!w) .exch .def
0 0 !h min !w !h abs !t !stx !sty !str shapebox
0 !h .gt
(!t .texture 0 0 !t .color
.startpath
0 0 .enterpoint delx dely .enterpoint
delx !w .add dely .enterpoint
delx !w .add 0 .enterpoint .drawarea
black 0 0 !w lineweight .drawboxarea
delx dely delx !w .add dely lineweight .add .drawboxarea
).cvx .if
!w 0 .translate).cvx .def

(min)(2 .copy .lt(.pop)(.exch .pop)/ifelse).cvx .def
(abs)(.dup 0 .lt(.neg).cvx .if).cvx .def

(delx)18 .def
(dely) 32 .def
(del)delx delx .mul dely dely .mul .add .5 .exp .def
(lineweight) 1 .def
(boxw)514.48 .def

(backbox)
(.pushdc
0 1 0 0 1 0
delx del .div dely del .div
0 0 
1 0 .sixpoint
lght .texture 0 0 lght .color
-1.8 cm 0 550 dely 1.5 .mul .drawboxarea
black
-1.8 cm 0 550 dely 1.5 .mul lineweight nlinebox
.popdc
).cvx .def

(frontbox)
(.pushdc
0 1 0 0 1 0
delx del .div dely del .div
0 0 
1 0 .sixpoint
lght .texture 0 0 lght .color
-1.8 cm -.7 cm 550 .2 .drawboxarea
black
01.8 cm -.7 cm 550 .2 lineweight flinebox
.popdc
).cvx .def

(shapebox)
(takes: posx, posy, width, height, texture, strinposx, stringposy, string)
((str) .exch .def
(sty) .exch .def
(stx) .exch .def
(tex) .exch .def
(hght) .exch .def
(wdth) .exch .def
(posy) .exch .def
(posx) .exch .def
(xsum) xsum wdth .add .def
tex .texture 0 0 tex .color
posx posy posx wdth .add posy hght .add .drawboxarea
black
posx posy posx wdth .add posy hght .add lineweight linebox
.startpath
posx posy hght .add .enterpoint
posx delx .add posy hght .add dely .add .enterpoint
posx wdth .add delx .add posy hght .add dely .add .enterpoint
posx wdth .add delx .add posy dely .add .enterpoint
posx wdth .add posy .enterpoint
posx wdth .add posy hght .add .enterpoint
.drawarea
str posx wdth 2. .div .add delx .add 4 .add stx .add posy hght .add dely .add sty .add 8 dely delx .atan
drawrtext)/xdef

(flinebox)
((!lw).exch .def
(!ury).exch .def
(!urx).exch .def
(!lly).exch .def
(!llx).exch .def
!llx !lly !llx !lw .add !ury .drawboxarea
!llx !lly !urx !lly .add .drawboxarea
!urx !lw .sub !lly !urx !ury .drawboxarea).cvx .def

(nlinebox)
((!lw).exch .def
(!ury)exch. def
(!urx).exch .def
(!lly).exch .def
(!llx).exch .def
!llx !lly !llx !lw .add !ury .drawboxarea
!llx !ury !lw .sub !urx !ury .drawboxarea
!urx !lw .sub !lly !urx !ury .drawboxarea).cvx .def

(linebox)
((!lw).exch .def
(!ury).exch .def
(!urx).exch .def
(!lly).exch .def
(!llx).exch .def
!llx !lly !llx !lw .add !ury .drawboxarea
!llx !lly !urx !lw .add .drawboxarea
!llx !ury !lw .sub !urx !ury .drawboxarea
!urx !lw .sub !lly !ury .drawboxarea).cvx .def

(black)
(-1 .texture 0 0 0 .color).cvx .def