Keithley 2002

Calibration Programs
B-9
fprintf(ieeeout,"output 4;%s\n",msg[i]);
fprintf(ieeeout,"output 4;oper\n");
break;
case 2: fprintf (ieeeout,"output 4;%s\n",msg[i]);
break;
case 3:
case 4:
case 5:
case 6:
case 7:
case 8: fprintf(ieeeout,"output 4;%s\n",msg[i]);
fprintf(ieeeout,"output 4;extsense on\n");
fprintf(ieeeout,"output 4;oper\n");
fprintf(ieeeout,"output 4;out?\n");
fprintf(ieeeout,"enter 4\n");
fgets(buf,100,ieeein);
j=0;
while (buf[j++] !=’,’);
buf[--j]=’\0’;
break;
case 9: fprintf(ieeeout,"output 4;stby\n");
printf("Connect calibrator to AMPS and "
"INPUT LO jacks.\n");
keypress();
fprintf(ieeeout,"output 4;%s\n",msg[i]);
fprintf(ieeeout,"output 4;oper\n");
break;
case 10:
case 11:
case 12:
case 13:fprintf(ieeeout,"output 4;%s\n",msg[i]);
break;
case 14:fprintf(ieeeout,"output 4;stby\n");
printf("%s\n",msg[i]);
keypress();
break;
case 15:printf("%s\n",msg[i]);
break;
}
if (i!=0 && i!=14 && 1!=15) settle();
if (i>2 && i<9)
fprintf(ieeeout,"output 16;%s%s;*opc\n",cmd[i],buf);
else fprintf(ieeeout,"output 16;%s;*opc\n",cmd[i]);
calend(i);
errcheck();
}
printf("Enter calibration date (yyyy,mm,dd): ");
gets(date);
fprintf(ieeeout,"output 16;:cal:prot:date %s\n",date);
errcheck();
printf("Enter calibration due date (yyyy,mm,dd): ");
gets(date);
fprintf(ieeeout,"output 16;:cal:prot:ndue %s\n",date);
errcheck();
fprintf(ieeeout,"output 16;:cal:prot:save\n");
errcheck();
fprintf(ieeeout,"output 16;:cal:prot:lock\n");
printf("Calibration completed.\n");
fprintf(ieeeout,"output 16;:syst:pres\n");
fprintf(ieeeout,"local 4 16\n");
fclose(ieeein);
fclose(ieeeout);
}
void keypress() /* Wait for keypress. */
{
printf("\nPress any key to continue (ESC to abort).\n");
while(kbhit()==0);
if (getch()==27) endpgm();