Dim sensedata(16) As Integer
Dim highblock As Long
Dim blocksize As Long
Dim count As Integer
Dim ha As Integer
Dim target As Integer
Dim lun As Integer
Dim retval As Integer
Dim i As Integer
Dim results As String
Dim loopy As Long
Dim NL As String


NL = Chr(10)

ha = 6
target = 9
lun = 0

startblock = 0
count = 1

MsgBox "starting 500 reads"
For loopy = 0 To 500
	retval = SCSIDiskRead(ha,target,lun,count,loopy,512,0)
If retval <> 0 Then
	results =  "Disk Read failed - Status = " & retval
	retval = SCSIViewSense(sensedata)
	results = results & NL & "Sense Key = " & Format(Hex(sensedata(2)), "@@") 
	results = results & NL & "Sense Code = " & Format(Hex(sensedata(12)),"@@") 
	results = results & NL & "ASQ = " & Format(Hex(sensedata(13)),"@@")
	MsgBox results
	Stop
End If
Next
MsgBox "read test finished"