.PS
cct_init

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

dot;ground
{line left_ dim; dot;source(up_ 2*dim,V); llabel(,V_\mathrm{in},)}
{diode(up_,Z)}
line right_ dim
resistor(up_); rlabel(,\mathrm{Load},)
dot; right_; " $V_\mathrm{out}$" ljust_
line left_ dim; dot 
resistor(up_); rlabel(,R,)
line left_ dim; dot

"\tiny ZenerSupply" at (dim,-0.2*dim)
.PE