if it can help then use it
[/`...................................................
`...................................................
`.......................Modify By XMEN..............
`...................................................
`...................................................
dim found$(1000)
Filename$ = "c:\filename.txt"
Input "Search For Word: ", Word$
Open To Read 1, Filename$
Wrd = Len(Word$)
Set Cursor 0,45
Found = 0
a$=" "
temp1$=""
Repeat
Read String 1, Search$
for a=1 to 256
if mid$(Search$,a)=" " then a$=""
if mid$(Search$,a)" "
Temp1$ =""+mid$(Search$,a)
a$=a$+temp1$
Temp2$ =a$
if len(a$)=len(Word$) then a$=""
endif
If Upper$(Temp2$) = Upper$(Word$) or lower$(Temp2$) = lower$(Word$)
Found = Found + 1
found$(found)=Search$
Text 0, 30, "Search Found: " + Str$( Found )
found$(line)=Search$
line=line+1
a$=""
exit
EndIf
next a
a$=""
a=0
Until File End(1)=1
Close File 1
cls
number=0
repeat
print "........Search For Word...... : "+" "+Word$
print
ink rgb(255,255,255),1
Print "Number of Word found : "+str$(found)
print
Print "Sentence: "+str$(number+1)+": of "+str$(found)
print
ink rgb(255,0,0),1
print found$(number)
ink rgb(255,255,255),1
print "Press Any Key"
suspend for key
cls
number=number+1
until number=line
cls
print "No more word found"
end
]