A-2 PRODIGIT
ibwrt( load,"NAME?",5);
/* Get the 3310 series module 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 3302C series 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;cc:low 0.0;cc:high 1.0;load on ",47);
ibwrt( load,"meas:curr?",10);
/* Get the load actially sink current from the load */
ibrd( load,rdbuf,20);
/* go to local. */
ibloc(load);
}
