User manual

580 GOSUB Close_ch
590 PRINT
600 PRINT "END OF TESTS"
610 CLEAR SCREEN
620 I=990
630 FOR J=1 TO 12 STEP 2
640 PRINT "Channel: ";I;Chan_data$(J,1);Chan_data$(J,4);" Ohms"
650 PRINT TAB(15);Chan_data$(J+1,1);Chan_data$(J+1,4);" Ohms"
660 PRINT
670 I=I+1
680 NEXT J
690 PRINT "Channel: 996";TAB(18);Chan_data$(13,4);" Ohms"
700 STOP
710 !
720 !
730 Open_ch: !
740 PRINT TAB(5);Press ’CONTINUE’ when ready"
750 PAUSE
760 Channel$=VAL$(Sw_card*10)&VAL$(Chan_num)
770 OUTPUT @Mux;"OPEN (@"&Channel$&")"
780 GOSUB Read_ch
790 OUTPUT @Mux;"CLOS (@"&Channel$&")"
800 RETURN
810 Close_ch: !
820 PRINT TAB(5);Press ’CONTINUE’ when ready"
830 PAUSE
840 Channel$=VAL$(Sw_card*10)&VAL$(Chan_num)
850 OUTPUT @Mux;"CLOS (@"&Channel$&")"
860 GOSUB Read_ch
870 OUTPUT @Mux;"OPEN@"&Channel$&")"
880 RETURN
890 Read_ch: !
900 OUTPUT @Dvm;"TRIG SGL"
910 ENTER @Dvm;Rdg
920 PRINT TAB(5);Channel ";Chan_num;" measures ";
VAL$(DROUND(Rdg,4))
930 Chan_data$(I,4)=VAL$(Rdg)
940 RETURN
950 Check: !
960 REPEAT
970 OUTPUT @Mux;"SYST:ERR?"
980 ENTER @Mux;Code,Message$
990 PRINT Code,Message$
1000 UNTIL NOT Code
1010 RETURN
1020 END
Agilent E1460A Service Manual Verification Tests 27