KEPCO BIT 232F - Manual (Page 64)

E-4
BIT 232 022800
c = getch();
if (c == 0)
/* exit on Alt-Q */
if (getch() == 16)
exit(0);
}
strcpy(wstr,string);
/* set voltage to full scale, current 0.5A */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++)
for (k = 0; k < 100; k++);
strcpy(wstr,msvolt);
/* read voltage and current */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++);
strcpy(wstr,stringm);
/* set voltage to minus full scale, current 0.5A */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++)
for (k = 0; k < 100; k++);
strcpy(wstr,msvolt);
/* read voltage and current */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++);
strcpy(wstr,reset);
/* send reset command - *rst */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++)
for (k = 0; k < 100; k++);
strcpy(wstr,msvolt);
/* read voltage and current */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++);
strcpy(wstr,test);
/* send test command - *tst? */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++)
for (k = 0; k < 100; k++);
strcpy(wstr,msvolt);
/* read voltage and current */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++);
strcpy(wstr,sterror);
/* read error output queue */
SendCmmdWready(wstr);
for (j = 0; j < 10000; j++);
}
}