45 lines
677 B
Plaintext
45 lines
677 B
Plaintext
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
|