.PS
cct_init
dwn = 0.8

up_
{[NJFET: j_fet(up_ dimen_,,,)
   "{\sl S}" at NJFET.S below ; "{\sl G}sp_" at NJFET.G rjust
   "{\sl D}" at NJFET.D above]
"{\tt j\_fet(up\_ dimen\_)}" at last [].s+(0,-0.2) below}

{move down_ dwn; up_
[PJFET: j_fet(,,P,)
   "{\sl S}" at PJFET.S below ; "{\sl G}sp_" at PJFET.G rjust
   "{\sl D}" at PJFET.D above]
"{\tt j\_fet(,,P,)}" at last [].s+(0,-0.2) below}

move right_ 1; up_
{[NEFET: e_fet(,,,)
   "{\sl S}" at NEFET.S below ; "{\sl G}sp_" at NEFET.G rjust
   "{\sl D}" at NEFET.D above]
"{\tt e\_fet}" at last [].s+(0,-0.2) below}

{move down_ dwn; up_
[PEFET: e_fet(,,P,)
   "{\sl S}" at PEFET.S below ; "{\sl G}sp_" at PEFET.G rjust
   "{\sl D}" at PEFET.D above]
"{\tt e\_fet(,,P,)}" at last [].s+(0,-0.2) below}

move right_ 1; up_
{[NDFET: d_fet(,,,)
   "{\sl S}" at NDFET.S below ; "{\sl G}sp_" at NDFET.G rjust
   "{\sl D}" at NDFET.D above]
"{\tt d\_fet}" at last [].s+(0,-0.2) below}

{move down_ dwn; up_
[PDFET: d_fet(,,P,)
   "{\sl S}" at PDFET.S below ; "{\sl G}sp_" at PDFET.G rjust
   "{\sl D}" at PDFET.D above]
"{\tt d\_fet(,,P,)}" at last [].s+(0,-0.2) below}


.PE