Annexe 2 : les procédures de recherche

RECHERCHE 1

140   M=0
145   IF M=LM1 GOTO 147
      M=M+1
      H=RG1(M)
      SEARCH=1,H:Y1
      IF Y1C<X1C GOTO 145
      IF Y1C>X1C GOTO 148
      MEN=0
      RETURN
147   M=M+1
148   MEN=1
      RETURN

RECHERCHE 2

140   M=0
145   IF M=LM2 GOTO 147
      M=M+1
      Y2=TX2(M)
      IF Y2C<X2C GOTO 145
      IF Y2C>X2C GOTO 148
      MEN=0
      RETURN
147   M=M+1
148   MEN=1
      RETURN

RECHERCHE 3

140   M=LM3(X3NB-64)
145   IF M=LM3(X3NB-63) GOTO 147
      M=M+1
      H=RG3(M)
      SEARCH=3,H:Y1
      IF Y3C<X3C GOTO 145
      IF Y3C>X3C GOTO 148
      MEN=0
      RETURN
147   M=M+1
148   MEN=1
      RETURN

RECHERCHE 4

140   M=0
145   IF M=LM4 GOTO 147
      M=M+1
      H=RG4(M)
      SEARCH=4,H:Y4
      IF Y4C1<X4C1 GOTO 145
      IF Y4C1>X4C1 GOTO 148
      IF Y4C2<X4C2 GOTO 145
      IF Y4C2>X4C2 GOTO 148
      IF Y4C3<X4C3 GOTO 145
      IF Y4C3>X4C3 GOTO 148
      MEN=0
      RETURN
147   M=M+1
148   MEN=1
      RETURN