B - Performance Test and Calibration 
96 
 
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/Rshuntl 
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/Rshuntl 
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