' *** INARRAY.LST *** 2nd GFA-Manual, page 11-22 > PROCEDURE inarray(search$,s.col,s.line,VAR array$(),f.col,f.line) ' ' *** Search array$() for the search-string search$ ' *** Start search at line s.line& (≥0) and colomn s.col& (≥1) ' *** The first element of array$() is line 0 ' *** The position of search$ is returned in f.col& and f.line& (0=not found) ' *** This Procedure is similar to INSTR for strings ' LOCAL last last=PRED(DIM?(array$())) f.col=INSTR(array$(s.line),search$,s.col) ! in first line? IF f.col=0 FOR f.line=SUCC(s.line) TO last f.col=INSTR(array$(f.line),search$) EXIT IF f.col NEXT f.line IF f.line>last CLR f.line ENDIF ELSE f.line=s.line ENDIF RETURN ' ********* '