C     Plotting program for general purpose using postscript 
      call init
      call viewport(0.2,0.2,0.8,0.8)
      call xyworld(0.0,0.0,1.0,1.0)
      call linewidth(2.0)
      call line1(0.0, 0.0, 0.1, 0.0)
      call coil(0.1, 0.0, 0.3, 0.0, 0.03, 6, 2.0)
      call line1(0.3, 0.0, 0.4, 0.0)
      call line1(0.4, 0.0, 0.4, 0.3)
      call line1(0.4, 0.3, 0.3, 0.3)
      call resist(0.3, 0.3, 0.1, 0.3, 2.0, 2.0)
      call line1(0.1, 0.3, 0.0, 0.3)
      call line1(0.0, 0.3, 0.0, 0.2)
      call battery(0.0, 0.2, 0.0, 0.1, 0.1, 2.0)
      call line1(0.0, 0.1, 0.0, 0.0)
      call fin
      stop
      end