LOCAL lcFile, loFile, loNew, lсZnach
STORE  0  TO lnEnd, lnByte
lcFile=GETFILE()
loFile=FOPEN(lcFile)
? LEFT(lcFile,RAT('.',lcFile))+'002'
IF loFile> 0 
	loNew=FCREATE(LEFT(lcFile,RAT('.',lcFile))+'002')
	IF loNew> 0 
	loZnach = FGETS(loFile)
	FPUTS(loNew, lсZnach)
		DO WHILE !FEOF(loFile) 
			lсZnach = FGETS(loFile)
			IF LIKE('*302328?0?0002700000*', lсZnach)
				FPUTS(loNew, lсZnach)	
			ENDIF 
		ENDDO 
	ELSE 
		MESSAGEBOX('Невозможно создать файл')	
	ENDIF 	
ELSE 
	MESSAGEBOX('Невозможно открыть файл')
ENDIF 
FCLOSE(loFile)
FCLOSE(loNew)

FGETS(loFile,  275 )