COMMENT *************************************************************
COMMENT COMMAND NAME READFILE.XEQ.SYS
COMMENT DESCRIPTION This file is used with another XEQ called:
COMMENT             SCANFILE.XEQ.SYS  see SCANFILE for doc.
COMMENT**************************************************************
SETVAR FSIZE FINFO("!FNAME",19)
SETVAR FOUND FALSE
SETVAR I 1
WHILE I <= FSIZE AND I > 0
  INPUT REC
  IF POS("!SEARCH_STRING","!REC") > 0 THEN
     COMMENT SET I TO NEGATIVE TO QUIT LOOP
     SETVAR I -99
     SETVAR FOUND TRUE
  ENDIF
  SETVAR I !I + 1
ENDWHILE
ECHO !REC
COMMENT IF NO MATCH IS FOUND, SET REC TO BLANKS
IF NOT FOUND
  SETVAR REC
ENDIF