INTEGER FUNCTION FINDLN(LIN,APAT,A1,Z1)
      IMPLICIT INTEGER (A-Z)
      INTEGER LIN(132)
      INTEGER APAT(128)
      STATUS=-2
      T1=A1
23000 IF(.NOT.(STATUS.EQ.-2))GOTO 23001
23002 IF(.NOT.((LIN(T1).NE.APAT(1).AND.(LIN(T1)).NE.10002)))GOTO 23003
      T1=T1+1
      GOTO 23002
23003 CONTINUE
      IF(.NOT.(LIN(T1).EQ.10002))GOTO 23004
      STATUS=0
      GOTO 23005
23004 CONTINUE
      A1=T1
      T2=1
      T3=T1
      FLAG=0
23006 IF(.NOT.((FLAG.EQ.0).AND.(APAT(T2).NE.10002)))GOTO 23007
      IF(.NOT.(APAT(T2).EQ.LIN(T1)))GOTO 23008
      T1=T1+1
      T2=T2+1
      GOTO 23009
23008 CONTINUE
      FLAG=1
23009 CONTINUE
      GOTO 23006
23007 CONTINUE
      IF(.NOT.(APAT(T2).EQ.10002))GOTO 23010
      Z1=T1-1
      STATUS=1
      GOTO 23011
23010 CONTINUE
      T1=T3+1
23011 CONTINUE
23005 CONTINUE
      GOTO 23000
23001 CONTINUE
      FINDLN=STATUS
      RETURN
      END