home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / SCHINKEL.ZIP / ASCANNIL.PRG next >
Encoding:
Text File  |  1990-05-17  |  370 b   |  17 lines
  1. // ASCANNIL.PRG - Beta Bug Fix Replacement for: AScan(aArray,NIL)
  2. // SWITCHES: /n /m /w
  3.  
  4. FUNC AScanNil(aToSeek)
  5. LOCAL nEle:= 0, nALen:= Len(aToSeek), nNilAt:= 0
  6.    IF (nALen>0)
  7.       FOR nEle:= 1 TO nALen
  8.          IF (aToSeek[nEle]==NIL)
  9.             nNilAt:= nEle
  10.             EXIT
  11.          ENDIF
  12.       NEXT
  13.    ENDIF
  14. RETURN(nNilAt)
  15.  
  16. // EOF: ASCANNIL.PRG
  17.