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