SUBROUTINE ASREAD2(NSEG,IPF,ITYP)
      INCLUDE 'Parametres.f'
C 
      NSEG = 0
      if (ipostscript.eq.1) then
        if (ityp.eq.0) then
 9999     continue
          call getxycx11(iev,ixposcurs,iyposcurs
     &                  ,ixposcurs_root,iyposcurs_root)
C          print*,'asread2',iev
          if (iev.eq.-1) then
            if (icurseur_courant.le.2.or.icurseur_courant.eq.9) then
              if (ixposcurs.ge.ix0_zone_click.and.
     &            ixposcurs.le.ix1_zone_click.and.
     &            iyposcurs.ge.iy0_zone_click.and.
     &            iyposcurs.le.iy1_zone_click) then
                if (icurseur_courant.ne.2) call change_curs(2)
              elseif(ixposcurs.ge.ix0_zone_click2.and.
     &               ixposcurs.le.ix1_zone_click2.and.
     &               iyposcurs.ge.iy0_zone_click2.and.
     &               iyposcurs.le.iy1_zone_click2) then
                if (icurseur_courant.ne.1) call change_curs(1)
              else
                if (icurseur_courant.ne.9) call change_curs(9)
              endif
            endif
            ipf = -9999
            return
          elseif(iev.eq.-2) then
            ipf = -8888
            nseg = -1
            return
          elseif(iev.lt.0) then
            ipf = -9999
            return
          endif
C
 8888     if (iev.ge.33.and.iev.le.57) then
            IPF = iev-48
          elseif(iev.ge.65.and.iev.le.90) then
            IPF = iev-55
          elseif(iev.ge.91.and.iev.le.96) then
            IPF = iev-112
          elseif(iev.ge.97.and.iev.le.126) then
            IPF = iev-87
c
c click
c
          elseif(iev.ge.251.and.iev.le.255) then
            iev = ichar(mouse(iev-250)(1:1))
            goto 8888
c
c doubleclick
c
          elseif(iev.ge.261.and.iev.le.265) then
            nseg = 1
            iev = ichar(mouse(iev-260)(1:1))
            goto 8888
c fleches
          elseif(iev.ge.1098.and.iev.le.1104.and.mod(iev,2).eq.0) then
            ipf = iev/2
          else
cc            print*,'asread2',iev
            GOTO 9999
          endif
        else
          call getxycx11b(iev,ixposcurs,iyposcurs
     &         ,ixposcurs_root,iyposcurs_root)
          if (iev.eq.0) then
            ipf = -9999
          else
            ipf = ichar(mouse(iev-250)(1:1))
          endif
        endif
      else
        call findups(ipf)
      endif
      end