B - Performance Test and Calibration
1690 CLEAR SCREEN
1700 !
1710 OUTPUT @Ld;"INP:STAT ON"
1720 OUTPUT @Ld;"CAL:LEV P1"
1730 !
1740 PRINT TABXY(10,10),"Calibrating low current range P1 - 30 SECOND WAIT" 1750 WAIT 30
1760 CLEAR SCREEN
1770 !
1780 INPUT "Measure voltage across current shunt and enter in volts",Ip1 1790 !
1800 Ip1=Ip1/Rshunt
1810 !
1820 OUTPUT @Ld;"CAL:DATA ";Ip1
1830 !
1840 OUTPUT @Ld;"CAL:LEV P2"
1850 !
1860 PRINT TABXY(10,10),"calibrating low current range P2 - 30 SECOND WAIT" 1870 WAIT 30
1880 CLEAR SCREEN
1890 !
1900 INPUT "Measure voltage across current shunt and enter in volts",Ip2 1910 !
1920 Ip2=Ip2/Rshunt
1930 !
1940 OUTPUT @Ld;"CAL:DATA ";Ip2
1950 !
1960 OUTPUT @Ld;"CAL:SAVE"
1970 OUTPUT @Ld;"CAL:STAT OFF"
1980 !
1990 PRINT "IMON, IPROG and Current calibration adjustments complete"
2000 PRINT "Verify Current Adjustments"
2010 !
2020 END
94
