‘ Now check if any thing has gone wrong.
If (Val(ESB) And CMD_ERR_bit) Then
4882SendReceive = Com mand_Er ror
ElseIf (Val(ESB) And EXEC_ERR_bit) Then
4882SendReceive= Ex e cu tion_Er ror
ElseIf (Val(ESB) And DE VICE_ERR_bit) Then
4882SendReceive = De vice_de pend ent_Er ror
End If
End Func tion
ML2400A OM 6-135
GPIB OPERATION PROGRAMMING EXAMPLES