program circle
      if(pgopen('/xwin')<=0)stop
      call pgenv(-5.0,5.0,-5.0,5.0,1,1)
      call pgcirc(0.0,1.0,2.5)
      call pgclos
      end