Specifications

SR400 with the GPIB Interface
58
Statcheck(status);
strcpy(temp, " "); /* clear result string */
receive(&status, &length, temp); /* get answer */
Statcheck(status);
strcpy(result, temp); /* move answer into global result string */
}
/* ****************************************************** */
Statcheck(status) /* check GPIB status */
int status;
{
if (status)
{
printf("GPIB error: status = %d",status);
exit();
}
}