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