c     test program for PGCURS

      character ch*1

      call PGBEG(0,'/xwindow',1,1)
      call PGENV(0.0,100.0,0.0,100.0,-2,-2)
      call PGBOX('BCNST',0.0,-1,'BCNSTV',0.0,-1)

    1 call PGCURS(x, y, ch)
      write(*,'(''input character = '',a1,''('',i3,'')'',$)') 
     +      ch, ichar(ch)
      write(*,*) '  x, y =',x,y
      if ( ichar(ch).ne.113 ) go to 1
      call PGEND
      
      stop
      end