.PS
cct_init

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

Op1:opamp
line from Op1.In1 left_ qrt; Top:dot
line left_ hlf; capacitor(down_); rlabel(,C,); ground;
line from Top up_ hlf; dot
{I: line invis to (Op1.Out,Here)
  move to I.center then left_ hlf
  R: resistor(right_); llabel(,100k,)
  line from I.start to R.start; line from R.end to I.end
}
line up_ hlf
move to (I.center,Here) then left_ 0.75*dim
resistor(right_); llabel(,10k,); diode(right_ hlf)
switch(down_ hlf); dot; line to Op1.Out
line from Op1.In2 left_ qrt then down_ hlf; dot
{resistor(down_); llabel(,10k,); ground}
I1:line invis right_ to (Op1.Out,Here); move to I1.center then left_ hlf
R:resistor(right_); rlabel(,10k,)
line from I1.start to R.start
line from R.end to I1.end
line to Op1.Out; dot
{arrow right_ hlf; move right_ qrt 
  {line dotted right_ dim}; move right_ qrt then down_ qrt
  line up_ hlf then right_ qrt then down_ hlf
  line right_ qrt then up_ hlf then right_ qrt
}  

"\tiny SnglOpOscillator" at (3*dim, -1.25*dim) rjust_ 
.PE