sRights is string
sARight is string
// Retrieves the read/add rights granted to the user named Moore 
// on the MyFile.fic file found in MyDatabase
sRights = HInfoFileRights("CNT", "Smith" , ...
	hRightsRead + hRightsInsert, "MyDatabase", "MyFile.fic")
sARight = ExtractString(sRights, firstRank, TAB)
WHILE sARight <> EOT
	SWITCH sARight
      		CASE hAllowed
      		...
      		CASE hForbidden
      		...
      		CASE hInherit
      		... 
    	END
   	sARight = ExtractString(sRights, nextRank, TAB)
END 

// Get the read and add rights for the user named Smith
// on the MyFile.fic file found in MyDatabase
sRights = HInfoFileRights("CNT", "Smith", ...
	    hRightsRead + hRightsInsert, "MyDatabase", "MyFile.fic", True)
sARight = ExtractString(sRights, firstRank, TAB)
WHILE sARight <> EOT
	SWITCH sARight
		CASE hAllowed
      		...
      		CASE hForbidden
      		... 
    	END
	sARight = ExtractString(sRights, nextRank, TAB)
END

// Copy the rights from one user to another
sRights1 is string
sRights1 = HInfoFileRights("CNT", "Smith" , ...
	hRightsRead + hRightsInsert, "MyDatabase", "MyFile.fic")
HModifyFileRights("CNT", "Doe", hRightsRead+hRightsInsert, ...
	sRights1, "MyDatabase", "MyFile.FIC")