I have seeded the tables to make sure something should occur, but nothing is found.
I must have made a coder's invisible yet obvious error.

USE Results IN 1
USE Phrases IN 2
SELECT Results
FOR Recrd = 1 TO LastEntry
	GOTO Recrd
	RecordText = Results.SiteText
	SELECT Phrases
	ThePhrase = ALLTRIM(UPPER(WordUsed))
	IF ALLTRIM(UPPER(ThePhrase)) $ ALLTRIM(UPPER(RecordText))
		FOR PhraseRecord = 1 TO PhraseEnd
			GOTO PhraseRecord
* AT(cSearchExpression, cExpressionSearched [, nOccurrence])
			PhrasePosition = AT(ThePhrase,RecordText,1)
* SUBSTR(cExpression, nStartPosition [, nCharactersReturned])
			  PhrasePosition = PhrasePosition - 20
			? PhrasePosition  (ALWAYS MINUS 20)   &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
			ThePhrase = SUBSTR(RecordText,PhrasePosition,60)
			? ThePhrase (ALWAYS BLANK - NO RESULT)  &&&&&&&&&&&&&&&&&&&&&&&&&&
		NEXT PhraseRecord
	ENDIF
SELECT Results
NEXT Recrd