COMPILE ROUTINE Test_File_IO()
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Send_Dyn, Send_Info


TestRec = STR('The quick brown fox jumped over the lazy dogs back 1234567890 times.':@FM,40)

a = LEN(TestRec)

DEBUG

StartTime = Time()
RecCnt	= 1		;*********


OPEN 'FILE_IO_TEST' TO TestFile THEN
	CLEARFILE TestFile THEN
		/*
		FOR I = 100 TO 10000
			WRITE TestRec ON TestFile,I THEN
				RecCnt += 1
				Send_Dyn(I)
				Send_Info(I)
			END

		NEXT I
		*/
		StopTime = Time()
	
	END	ELSE
		DEBUG
		StopTime = Time()
		RecCnt = 1
	END
;* End of file open

Elapsed = StopTime - StartTime

Avg = Elapsed / RecCnt

DEBUG

END	;* End of program
