116 PRODIGIT
ibwrt( load,"NAME?",5);
/* Get the 3350F load specification */
strset(rdbuf,'\0');
/* Clear rdbuf string buffer */
strset(spec,'\0');
/* Clear spec string buffer */
ibrd(load,spec,20);
if (spec[3] == '9')
printf("\n 3350F specification error !");
/* Set the channel 1, preset off, current sink 1.0 amps and load on commands to the load. */
ibwrt( load,"chan 1;pres off;curr:low 0.0;curr:high 1.0;load on ",43);
ibwrt( load,"meas:curr ?",10);
/* Get the load actially sink current from the load */
ibrd( load,rdbuf,20);
/* go to local. */
ibloc(load);
}
