B - Performance Test and Calibration
540INPUT "Enter value of high range current shunt in ohms",Rshunt
550DISP "You have entered ";Rshunt;" ohms"
560INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$
570IF UPC$(Y$)="Y" OR Y$="" THEN 590
580IF UPC$(Y$)="N" OR Y$="n" THEN 520
590CLEAR SCREEN
600!
610OUTPUT @Ld;"CAL:IPR:LEV P1"
620PRINT TABXY(20,20),"Calibrating IMON & IPROG P1 - 30 SECOND WAIT"
630WAIT 30
640CLEAR SCREEN
650!
660INPUT "Measure voltage across current shunt and enter in volts",Ip1
670!
680INPUT "Measure Imon voltage and enter in volts",Vimonp1
690!
700INPUT "Measure Iprog voltage and enter in volts",Viprogp1
710!
720Ip1=Ip1/Rshunt
730!
740OUTPUT @Ld;"CAL:DATA ";Ip1,Vimonp1,Viprogp1
750!
760OUTPUT @Ld;"CAL:IPR:LEV P2"
770!
780PRINT TABXY(20,20),"Calibrating IMON & IPROG P2 - 30 SECOND WAIT"
790WAIT 30
800CLEAR SCREEN
810!
820INPUT "Measure voltage across current shunt and enter in volts",Ip2
830!
840INPUT "Measure Imon voltage and enter in volts",Vimonp2
850!
860INPUT "Measure Iprog voltage and enter in volts",Viprogp2
870!
880Ip2=Ip2/Rshunt
890!
900OUTPUT @Ld;"CAL:DATA ";Ip2,Vimonp2,Viprogp2
910!
920PRINT "Set IPROG power source to 8.5 volts"
930DISP "Press CONT when ready"
940PAUSE
950CLEAR SCREEN
960!
970OUTPUT @Ld;"CAL:IPR:LEV P3"
980PRINT TABXY(20,20),"Calibrating IMON & IPROG P3 - 30 SECOND WAIT"
990WAIT 30
1000 CLEAR SCREEN
1010 !
1020 INPUT "Measure voltage across current shunt and enter in volts",Ip3 1030 !
1040 INPUT "Measure Imon voltage and enter in volts",Vimonp3
1050 !
1060 INPUT "Measure Iprog voltage and enter in volts",Viprogp3
1070 !
1080 Ip3=Ip3/Rshunt
1090 !
1100 OUTPUT @Ld;"CAL:DATA ";Ip3,Vimonp3,Viprogp3
92