.PS
.ps 20
## figure 13
boxwid = 5 * boxwid
boxht  = 2 * boxht
##
B1:     box "APPLICATION"
B2:     box shaded with .n at (B1.s.x, B1.s.y-lineht) "\normalsize TRANSPORT"
        line from B1.s to B2.n "\ circuits" ljust
##
boxwid = boxwid / 5
boxht =  boxht / 2
##
.PE