.PS
cct_init
log_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

line right_ hlf;dot
{line up_ hlf;switch(right_);line down_ hlf;dot;}
{line down_ hlf;switch(right_);line up_ hlf; line right_ hlf}

move right_ 3*dim
G1:OR_gate with .center at Here
line from G1.In1 left_ 2*L_unit
"A " ljust_
line left_ 2*L_unit from G1.In2
"B " ljust_
line from G1.Out right_ 2*L_unit
" Q" ljust_

"\tiny ORGate" at (4*dim, -hlf) ljust_ 
.PE