!  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 line(0.0, 0.0, 0.1, 0.0, 0.0, 2.0, 1)
      call coil(0.1, 0.0, 0.3, 0.0, 0.03, 6, 2.0)
      call line(0.3, 0.0, 0.4, 0.0, 0.0, 2.0, 1)
      call line(0.4, 0.0, 0.4, 0.3, 0.0, 2.0, 1)
      call line(0.4, 0.3, 0.3, 0.3, 0.0, 2.0, 1)
      call resist(0.3, 0.3, 0.1, 0.3, 2.0, 2.0)
      call line(0.1, 0.3, 0.0, 0.3, 0.0, 2.0, 1)
      call line(0.0, 0.3, 0.0, 0.2, 0.0, 2.0, 1)
      call battery(0.0, 0.2, 0.0, 0.1, 0.1, 2.0)
      call line(0.0, 0.1, 0.0, 0.0, 0.0, 2.0, 1)
   call fin
  stop
  end