clear
lcline=""
lccode="REM Test.txt"+CHR(13)
lccode=lccode+"COPY %1 <<IMPORTPATH>> <<IMPORTFILE>>"
BG_ACCUWIN="C:\FOXPRO\TMP\"
m.handle=FCREATE("test.txt")
FOR i = 1 TO LEN(lccode)
	IF ASC(SUBSTR(lccode,i,1))=13 .OR. ASC(SUBSTR(lccode,i,1))=13
		lcline=lcline+CHR(13)+CHR(10)
		? lcline
	ELSE
		lcline=lcline+SUBSTR(lccode,i,1)
		IF "<<IMPORTPATH>>" $ lcline
			?"Original lines: "+lcline
			STRTRAN(lcline,"<<IMPORTPATH>>",BG_ACCUWIN)
			?"New Lines: "+lcline
			?"******************************"
			WAIT WINDOW "Found <<IMPORTPATH>>"
		ENDIF
		IF "<<IMPORTFILE>>" $ lcline
			?"Original line: "+lcline
			STRTRAN(lcline,"<<IMPORTFILE>>","ACCUWIN.TXT")
			?"New Line: "+lcline
			?"******************************"
			WAIT WINDOW "Found <<IMPORTFILE>>"
		ENDIF
	ENDIF
ENDFOR
=FPUTS(m.handle,lcline)
=FCLOSE(m.handle)
MODIFY COMMAND test.txt