program plot1
      integer pgopen

      if(pgopen('/xwin')<=0)stop

      call pgenv(0.0,2.0,0.0,2.0,1,0)
      call pgcirc(1.0,1.0,0.5)

      call pgclos

      end