.PS
boxwid = 1.5
boxht = .3
ellipseht = .3
ellipsewid = 1.25
dy = -0.1
dx = 4
fillval = .07

AS400_before: box "AlphaServer 400"
Directory_before: ellipse "directory" with .n at last box.s

DEC3000400a_before: box "DEC 3000/400" with .n at last ellipse.s +(0,dy)
Netview_before: ellipse "netview" with .n at last box.s

DEC3000400b_before: box "DEC 3000/400" with .n at last ellipse.s +(0,dy)
Listserv_before: ellipse "listserv" with .n at last box.s

DEC3000600a_before: box "DEC 3000/600" with .n at last ellipse.s +(0,dy)
Pobox_before: ellipse "pobox" with .n at last box.s

DEC3000600b_before: box "DEC 3000/600" with .n at last ellipse.s +(0,dy)
Porpoise_before: ellipse "porpoise" with .n at last box.s

DS500025a: box fill "DECstation 5000/25" with .n at last ellipse.s +(0,dy)
Smtprelay_before: ellipse "smtp-relay" with .n at last box.s

DS500025c: box fill "DECstation 5000/25" with .n at last ellipse.s +(0,dy)
Devel: ellipse "devel" with .n at last box.s

DS5000200a: box fill "DECstation 5000/200" with .n at last ellipse.s +(0,dy)
Staff_before: ellipse "staff" with .n at last box.s

AS2100_before: box "AlphaServer 2100" with .n at last ellipse.s +(0,dy)
Netnews_before: ellipse "netnews" with .n at last box.s

DEC3000300a_before: box "DEC 3000/300X" with .n at last ellipse.s +(0,dy)
Aeschylus_before: ellipse "aeschylus" with .n at last box.s

DEC3000300b_before: box "DEC 3000/300X" with .n at last ellipse.s +(0,dy)
Mephisto_before: ellipse "mephisto" with .n at last box.s

DS500025d: box fill "DECstation 5000/25" with .n at last ellipse.s +(0,dy)
Carter_before: ellipse "carter" with .n at last box.s

Aspen_before: box "Aspen" with .n at last ellipse.s +(0,dy)
Morpheus_before: ellipse "morpheus" with .n at last box.s

DS500025b: box fill "DECstation 5000/25" with .n at last ellipse.s +(0,dy)
Geordi: ellipse "geordi" with .n at last box.s


fillval = .03

AS400_after: box "AlphaServer 400" at AS400_before +(dx,0)
Netview_after: ellipse "netview" with .n at last box.s

DEC3000400a_after: box "DEC 3000/400" with .n at last ellipse.s +(0,dy)
Database: ellipse "database" "R&D" with .n at last box.s

DEC3000400b_after: box "DEC 3000/400" with .n at last ellipse.s +(0,dy)
#at DS500025c +(dx,0)
Staff_after: ellipse "staff" with .n at last box.s

DEC3000600a_after: box "DEC 3000/600" with .n at last ellipse.s +(0,dy)
Supernisc1_after: ellipse "supernisc1" with .n at last box.s

DEC3000600b_after: box "DEC 3000/600" with .n at last ellipse.s +(0,dy)
Supernisc2_after: ellipse "supernisc2" with .n at last box.s

New_AS4000: box fill "New AlphaServer" "4000 or 4100" with .n at last ellipse.s +(0,dy)
Netnews_after: ellipse "netnews" with .n at last box.s

New_stationa: box fill "New workstation" with .n at last ellipse.s +(0,dy)
Aeschylus_after: ellipse "aeschylus" with .n at last box.s

New_stationb: box fill "New workstation" with .n at last ellipse.s +(0,dy)
Mephisto_after: ellipse "mephisto" with .n at last box.s

AS2100_after: box "AlphaServer 2100" with .n at last ellipse.s +(0,dy)
Pobox_after: ellipse "pobox" with .n at last box.s

DEC3000300a_after: box "DEC 3000/300X" with .n at last ellipse.s +(0,dy)
Systems_after: ellipse "systems group" with .n at last box.s

DEC3000300b_after: box "DEC 3000/300X" with .n at last ellipse.s +(0,dy)
Carter_after: ellipse "carter" with .n at last box.s

Aspen_after: box "Aspen" with .n at last ellipse.s +(0,dy-boxht-ellipseht)
Belanna: ellipse "belanna" with .n at last box.s

arrow from AS400_before.e to AS400_after.w
arrow from DEC3000400a_before.e to DEC3000400a_after.w
arrow from DEC3000400b_before.e to DEC3000400b_after.w
arrow from DEC3000600a_before.e to DEC3000600a_after.w
arrow from DEC3000600b_before.e to DEC3000600b_after.w
arrow from DEC3000300a_before.e to DEC3000300a_after.w
arrow from DEC3000300b_before.e to DEC3000300b_after.w
arrow from AS2100_before.e to AS2100_after.w
arrow from Aspen_before.e to Aspen_after.w

arrow dashed from Directory_before.e to Supernisc1_after.w
arrow dashed from Listserv_before.e to Supernisc1_after.w
arrow dashed from Smtprelay_before.e to Supernisc1_after.w
arrow dashed from Directory_before.e to Supernisc2_after.w
arrow dashed from Listserv_before.e to Supernisc2_after.w
arrow dashed from Smtprelay_before.e to Supernisc2_after.w
arrow dashed from Netview_before.e to Netview_after.w
arrow dashed from Pobox_before.e to Pobox_after.w
arrow dashed from Aeschylus_before.e to Aeschylus_after.w
arrow dashed from Mephisto_before.e to Mephisto_after.w
arrow dashed from Geordi.e to Belanna.w
arrow dashed from Netnews_before.e to Netnews_after.w
arrow dashed from Devel.e to Staff_after.w
arrow dashed from Staff_before.e to Staff_after.w
arrow dashed from Carter_before.e to Carter_after.w
.PE