program arrow
      real x(13),y(13)

      idummy=pgopen('/xwin')
      call pgenv(-10.0,10.0,-10.0,10.0,1,0)


      x(1)=2
      y(1)=0
      x(2)=1
      y(2)=1
      x(3)=1
      y(3)=0
      x(4)=-1
      y(4)=0
      x(5)=-1.5
      y(5)=1
      x(6)=-2
      y(6)=1
      x(7)=-1.5
      y(7)=0
      x(8)=-2
      y(8)=-1
      x(9)=-1.5
      y(9)=-1
      x(10)=-1
      y(10)=0
      x(11)=1
      y(11)=0
      x(12)=1
      y(12)=-1
      x(13)=2
      y(13)=0

      call pgline(13,x,y)

      call pgclos
      end