1      SUBROUTINE ASREAD2(NSEG,IPF,ITYP)
2      INCLUDE 'Parametres.f'
3C
4      NSEG = 0
5      if (ipostscript.eq.1) then
6        if (ityp.eq.0) then
7 9999     continue
8          call getxycx11(iev,ixposcurs,iyposcurs
9     &                  ,ixposcurs_root,iyposcurs_root)
10C          print*,'asread2',iev
11          if (iev.eq.-1) then
12            if (icurseur_courant.le.2.or.icurseur_courant.eq.9) then
13              if (ixposcurs.ge.ix0_zone_click.and.
14     &            ixposcurs.le.ix1_zone_click.and.
15     &            iyposcurs.ge.iy0_zone_click.and.
16     &            iyposcurs.le.iy1_zone_click) then
17                if (icurseur_courant.ne.2) call change_curs(2)
18              elseif(ixposcurs.ge.ix0_zone_click2.and.
19     &               ixposcurs.le.ix1_zone_click2.and.
20     &               iyposcurs.ge.iy0_zone_click2.and.
21     &               iyposcurs.le.iy1_zone_click2) then
22                if (icurseur_courant.ne.1) call change_curs(1)
23              else
24                if (icurseur_courant.ne.9) call change_curs(9)
25              endif
26            endif
27            ipf = -9999
28            return
29          elseif(iev.eq.-2) then
30            ipf = -8888
31            nseg = -1
32            return
33          elseif(iev.lt.0) then
34            ipf = -9999
35            return
36          endif
37C
38 8888     if (iev.ge.33.and.iev.le.57) then
39            IPF = iev-48
40          elseif(iev.ge.65.and.iev.le.90) then
41            IPF = iev-55
42          elseif(iev.ge.91.and.iev.le.96) then
43            IPF = iev-112
44          elseif(iev.ge.97.and.iev.le.126) then
45            IPF = iev-87
46c
47c click
48c
49          elseif(iev.ge.251.and.iev.le.255) then
50            iev = ichar(mouse(iev-250)(1:1))
51            goto 8888
52c
53c doubleclick
54c
55          elseif(iev.ge.261.and.iev.le.265) then
56            nseg = 1
57            iev = ichar(mouse(iev-260)(1:1))
58            goto 8888
59c fleches
60          elseif(iev.ge.1098.and.iev.le.1104.and.mod(iev,2).eq.0) then
61            ipf = iev/2
62          else
63cc            print*,'asread2',iev
64            GOTO 9999
65          endif
66        else
67          call getxycx11b(iev,ixposcurs,iyposcurs
68     &         ,ixposcurs_root,iyposcurs_root)
69          if (iev.eq.0) then
70            ipf = -9999
71          else
72            ipf = ichar(mouse(iev-250)(1:1))
73          endif
74        endif
75      else
76        call findups(ipf)
77      endif
78      end
79