'Reading paragraph of text from text file with Haptek engine.
If InStr(UserSentence, " READFILE ") > 0 Then
	readFile = trim(Replace(UserSentence, " READFILE ", " "))
	readFile = WorkingDir & "read\" & readFile & ".txt"
	freeFileNum = FreeFile
	Open readFile For Input As freeFileNum
	Line Input #freeFileNum, readAbout
	If Trim(readAbout) <> "" Then
		HalCommands = "<HAPTEXT>" & "\q2 [s0= [" & readAbout & "]]" & "</HAPTEXT>"
	End If
	Close freeFileNum
End If