// Declare the variables
FileNameAndPath is string
FileID is int
LineRead is string

// Select the file name and path
FileNameAndPath ="C:\MyDirectories\File.txt"
// Open file
FileID = fOpen(FileNameAndPath)
// Display an error message if no file was opened
IF FileID = -1 THEN
	Error(ErrorInfo(errMessage))
ELSE
	LOOP
		// Read the first line of the file
		LineRead = fReadLine(FileID)
		IF ErrorOccurred THEN
			Error(ErrorInfo())
			BREAK
		END
		// End of file?
		IF LineRead = EOT THEN BREAK
		// Process the line currently read
		// Here, add an edit control at the end
		EDT_FileContent += [CR] + LineRead
	END
	// Close the file
	fClose(FileID)
	ToastDisplay("File reading completed")
END