#DEFINE FILE_ATTRIBUTE_READONLY       1  
#DEFINE FILE_ATTRIBUTE_HIDDEN         2  
#DEFINE FILE_ATTRIBUTE_SYSTEM         4  
#DEFINE FILE_ATTRIBUTE_DIRECTORY     16  
#DEFINE FILE_ATTRIBUTE_ARCHIVE       32  
#DEFINE FILE_ATTRIBUTE_NORMAL       128  
#DEFINE FILE_ATTRIBUTE_TEMPORARY    512  
#DEFINE FILE_ATTRIBUTE_COMPRESSED  2048  
      
DECLARE SHORT SetFileAttributes IN kernel32;
	STRING lpFileName, INTEGER dwFileAttributes

DECLARE INTEGER GetFileAttributes IN kernel32 STRING lpFileName 

LOCAL lpFileName
lpFileName = 'c:\yourfilename.txt'

* read current attributes for this file
dwFileAttributes = GetFileAttributes (lpFileName)

IF dwFileAttributes = -1
* the file does not exist
	RETURN
ENDIF

IF dwFileAttributes > 0
	* read-only attribute to be set
	dwFileAttributes = BitOr(dwFileAttributes, FILE_ATTRIBUTE_READONLY)
		
	* archive attribute to be removed
	IF BitAnd(dwFileAttributes, FILE_ATTRIBUTE_ARCHIVE) = FILE_ATTRIBUTE_ARCHIVE
		dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_ARCHIVE
	ENDIF

	* setting selected attributes
	= SetFileAttributes (lpFileName, dwFileAttributes)
ENDIF