
Figure B-2.  BASIC Calibration Program (continued)
480 Current_cal: ! Imon DAC and Current DAC calibration
490 Err_found=0
500PRINT TABXY(5,10),"CONNECT INSTRUMENTS AS SHOWN IN FIG. A 
510PAUSE
520CLEAR SCREEN
540Password is optional - only required if set to 
550Default password is 
560!
570! LINE 590 PASSWORD MUST BE EDITED FOR MODEL OTHER THAN E4356A
580!
590OUTPUT @Ps;"CAL:STATE ON, 4356"
600OUTPUT @Ps;"VOLT:LEV 2"
610! Refer to Table 
620!
630INPUT "ENTER VALUE 0F CURRENT SHUNT BEING USED",Shunt_val
680OUTPUT @Ps;"CAL:CURRENT:LEVEL MIN"
690INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
700Current=Volt_read/Shunt_val
710OUTPUT @Ps;"CAL:CURRENT ";Current
720OUTPUT @Ps;"CAL:CURRENT:LEVEL MAX"
730INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
740Current=Volt_read/Shunt_val
750OUTPUT @Ps;"CAL:CURRENT ";Current
760GOSUB Save_cal
770IF Err_found THEN
| 780 | INPUT "ERRORS have occurred, REPEAT CURRENT CALIBRATION ( Y 0R N )?",Resp$ | 
| 790 | IF TRIM$(UPC$(Resp$[l,1] ))="Y" THEN GOTO Volt_cal | 
| 800 | END IF | 
| 810 | IF Err_found THEN | 
| 820 | PRINT "CURRENT CALIBRATION NOT SAVED" | 
| 830 | ELSE | 
| 840 | PRINT "CURRENT CALIBRATION COMPLETE" | 
850END IF
860STOP
870Save_cal: ! SAVE CALIBRATION
880REPEAT
| 890 | OUTPUT @Ps;"SYSTEM:ERROR?" | 
| 900 | ENTER @Ps;Err_num,Err_msg$ | 
| 910 | IF Err_num< >0 THEN | 
| 920 | PRINT "ERROR: ";Err_msg$ | 
| 930 | Err_found=1 | 
| 940 | END IF | 
| 950 | UNTIL Err_num=0 | 
| 960 | IF NOT Err_found THEN | 
| 970 | INPUT "SAVE CALIBRATION CONSTANTS ( Y 0R N )?",Resp$ | 
| 980 | IF TRIM$(UPC$(Resp$[l,1] ))="Y" THEN | 
| 990 | OUTPUT @Ps;"CAL:SAVE" | 
| 1000 | END IF | 
| 1010 | END IF | 
| 1020 | OUTPUT @Ps;"CAL:STATE OFF" | 
| 1030 | RETURN | 
| 1040 | END | 
104 Calibration
