Graphics 640, 480, 16, 2
AppTitle "Hard Drive Speed Tester"
SetBuffer FrontBuffer()

Text 1, 1, "File size to be written in megabytes: "
Locate 1, 14: Size$ = Input$(">")
Text 1, 28, "Drive letter to write to: "
Locate 1, 42: Drive$ = Input$(">")

Iter = ((Int(Size$) * 1024) / 4) * 1024 ; Number of integers to write
File = WriteFile(Drive$ + ":\dump.Bin")
Time# = MilliSecs()
For i = 1 To Iter
	WriteInt(File, Rand(1, 2147483647))
Next
CloseFile File
Text 1, 56, "Total time: " + Str((MilliSecs() - Time) / 1000) + " secs"
FlushKeys()
WaitKey()