.PS
cct_init

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

"+5V " rjust_; dot; resistor; llabel(,10k\Omega) 
Comm:dot
line up_ hlf; right_
Q1:bi_tr(up_,)
line from Comm down_ hlf; right_
Q2:bi_tr(down,R,P)
move to Q2.E; dot;line right_ hlf
resistor(down_); llabel(,1k\Omega,); ground
right_; "$-$5V" at Q2.C below_
"+5V" at Q1.C above_
" Q1" at Q1 ljust_
" Q2" at Q2 ljust_

"\tiny Comp" at (0,-dim)
.PE