% quick.m4
.PS                            # Pic input begins with .PS
cct_init                       # Set defaults

elen = 0.75                    # Variables are allowed
Origin: Here                   # Position names are capitalized
   source(up_ elen); llabel(-,v_s,+)
   resistor(right_ elen);  rlabel(,R,)

Node1: dot                     # Object names are capitalized
Node2: Node1+(elen*2/3,0)      # Named position relative to Node1

   {                           # Save current position and direction
      capacitor(down_ to (Here,Origin))     #(Here,Origin) = (Here.x,Origin.y)
      rlabel(+,v,-); llabel(,C,)
      dot
      }                        # Restore position and direction

   line to Node2
   inductor(down_ Here.y-Origin.y); rlabel(,L,); b_current(i)
   line to Origin

# Omit these if the labels are not wanted:
   "$(0,0)$" at Origin below
   "\sl Node 1" at Node1 above
   "\sl Node 2" at Node2 above ljust
.PE                            # Pic input ends