0
|
1 .PS
|
|
2 B1: box "user"
|
|
3 B2: box "UA" with .n at (B1.s.x, B1.s.y-(lineht/2))
|
|
4 B3: box "MTA" with .n at (B2.s.x, B2.s.y-(lineht*4))
|
|
5 B4: box "PhoneNet" with .n at (B3.s.x, B3.s.y-lineht)
|
|
6 B5: box "{\it modem}" with .n at (B4.s.x, B4.s.y-lineht)
|
|
7 B6: box "{\it modem}" with .w at (B5.e.x+(linewid*2), B5.e.y)
|
|
8 B7: box "PhoneNet" with .s at (B6.n.x, B4.s.y)
|
|
9 B8: box "MTA" with .s at (B7.n.x, B3.s.y)
|
|
10 B9: box "MZnet" with .s at (B8.ne.x+(linewid/2), B8.n.y+lineht)
|
|
11 B10: box "PhoneNet" with .n at (B9.se.x+(linewid/2), B7.n.y)
|
|
12 B11: box "{\it modem}" with .s at (B10.s.x, B6.s.y)
|
|
13 B12: box "{\it modem}" with .w at (B11.e.x+(linewid*2), B11.e.y)
|
|
14 B13: box "PhoneNet" with .s at (B12.s.x, B10.s.y)
|
|
15 B14: box "MZnet" with .s at (B13.n.x, B9.s.y)
|
|
16 B15: box "UA" with .s at (B14.n.x, B2.s.y)
|
|
17 B16: box "user" with .s at (B15.n.x, B1.s.y)
|
|
18 line from B1.s to B2.n
|
|
19 line from B2.s to B3.n
|
|
20 line from B3.s to B4.n
|
|
21 line from B4.s to B5.n
|
|
22 line from B5.e to B6.w
|
|
23 line from B6.n to B7.s
|
|
24 line from B7.n to B8.s
|
|
25 line from B8.n to (B9.s.x-(boxwid/4), B9.s.y)
|
|
26 line from (B9.s.x+(boxwid/4), B9.s.y) to B10.n
|
|
27 line from B10.s to B11.n
|
|
28 line from B11.e to B12.w
|
|
29 line from B12.n to B13.s
|
|
30 line from B13.n to B14.s
|
|
31 line from B14.n to B15.s
|
|
32 line from B15.n to B16.s
|
|
33 line dashed from (B9.s.x, B9.s.y-(lineht/2)) to (B9.s.x, B6.s.y)
|
|
34 line dotted from (B2.sw.x+(linewid/8), B9.e.y) to (B2.se.x-(linewid/8), B9.e.y)
|
|
35 line dotted from B9.e to B14.w
|
|
36 move to (B1.n.x, B1.n.y+lineht); "{\tt Any Host}"
|
|
37 move to (B16.n.x, B1.n.y+lineht); "{\tt PC}"
|
|
38 move to (B9.n.x, B1.n.y+lineht); "{\tt MZnet Host}"
|
|
39 move to (B9.e.x+linewid, B9.e.y+(lineht/4)); "{\it split slot}"
|
|
40 move to (B2.s.x+(linewid/2), B9.e.y+(lineht/4)); "{\it slot}"
|
|
41 .PE
|