//test
//test
PROC Main()
INTEGER I = 0,r,c
IF ( NOT ( IsBlockInCurrFile() ) ) Warn( "Please mark first 2 line in this file" ) RETURN() ENDIF
GotoBlockBegin()
BegLine()
if LFind("//test", "l")
r=CurrLine()
c=CurrCol()
I = I + 1
Warn( I, " ", GetFoundText() ,"at ",r," ",c)
WHILE LRepeatFind()
r=CurrLine()
c=CurrCol()
I = I + 1
Warn( I, " ", GetFoundText() ,"at ",r," ",c)
ENDWHILE
endif
END
//Repeats the previous lFind() or lReplace() command, whichever was executed
//last.
//
//Syntax: INTEGER lRepeatFind([INTEGER direction])
//
// direction is an optional integer that forces the repeated find
// or replace to proceed in the indicated direction. Supported
// values for direction are:
//
// _BACKWARD_ forces the search to proceed backward, towards
// the beginning of the file.
//
// _FORWARD_ forces the search to proceed forward, towards the
// end of the file.
//
// _REVERSE_ forces the search to proceed in the opposite
// direction than the last find or replace.
//
// _SEARCH_INCLUSIVE_ forces the search to proceed starting
// from the current position, rather than one character beyond
// the current cursor position, for a forward search (as is
// normally done).
//
// Returns: Non-zero if the find string was found; otherwise, zero (FALSE).
//
// Notes: For a forward search, the search starts one character beyond the
// current cursor position. For a backward search, the search
// starts one character before the current cursor position.
//
// lRepeatFind() is intended for use in macros. It does not affect
// the histories and options of the high-level Find(), Replace(), and
// RepeatFind().
//
// Unlike RepeatFind(), lRepeatFind() does not issue any messages and
// does not highlight the found string.
//
// See Also: lFind(), lReplace()