.PS
#cct_init
log_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;
mm=1/25.4;
pi=atan2(0,-1);

Bus: Here
  line right_ dim
  move down_ qrt
  right_; "8-bit Data Bus " rjust_
  move down_ qrt 
  line left_ dim
  move to Bus then up hlf then right_ dim
Mem1: Here
  linethick_(2)
  # Note the corner fill in for non-then'd lines....
  line down_ 2*dim then right_ hlf then up_ 2*dim \
    then left_ hlf; corner(,at Here)
  linethick_    
  move right_ hlf then down_ hlf
  line right_ dim
  move left_ dim then down hlf
  line right_ dim
  move up_ dim
Mem2: Here
  linethick_(2)
  line down_ 2*dim then right_ hlf then up_ 2*dim \
    then left_ hlf; corner(,at Here)
  linethick_  
  move right_ hlf then down_ hlf
  line right_ dim
  move left_ dim then down hlf
  line right_ dim
  move up_ dim

move to Bus
move down_ 7/8*dim
move down_ qrt
Add: Here
  right_; "$A_0$ " rjust_; line right_ dim; move right_ hlf
    line right_ dim; move right_ hlf; line right_ dim
  move to Add then down_ qrt 
  right_; "$A_1$ " rjust_; line right_ dim; move right_ hlf
    line right_ dim; move right_ hlf; line right_ dim
  move to (Add,Here) then down_ qrt
  right_; "$A_2$ " rjust_; line right_ 5/4*dim
En1: dot
  line up_ dim/8
  "En" ljust_
  move to En1
  line right_ hlf
N1:NOT_gate
  move to N1.Out 
# Get rid of horrible corner:
#  line right_ hlf
#  line up_ dim/8
  line right_ hlf then up_ dim/8
  "En" ljust_

"\tiny Decoder" at (3.5*dim, -2*dim) ljust_ 
.PE