Agilent Technologies E1346A Service Manual page 32

2-14 Verification Tests
1040 PAUSE
1050 CLEAR SCREEN
1060 OUTPUT @Mux;"CLOS (@"&VAL$(J)&")"
1070 OUTPUT @Dmm;"TRIG SGL"
1080 ENTER @Dmm;Value1(K,3)
1090 OUTPUT @Mux;"OPEN (@"&VAL$(J)&")"
1100 Result1(K,3)=Value1(K,3)-(R(38+K)+R(43-K))
1110 IF Result1(K,3)<0 THEN Result1(K,3)=0.
1120 IF Result1(K,3)>2.0 THEN
1130 PRINT "Resistance for Channel";(J-100);" ";Path$(K);"Relay is
>2.0 Ohms"
1140 END IF
1150 NEXT K
1160 PRINT "Closed Contact Resistance Measurements complete
1170 DISP " Press Continue to display measurement results "
1180 PAUSE
1190 CLEAR SCREEN
1200 !
1210 ! Print measurement results
1220 !
1230 Format: IMAGE 2(5X,"CH ",DD," & ",DD,3X,DD.DDDD," Ohms",5X)
1240 PRINT TABXY(1,3),"Channels 00-47 & 90-92 HI Contact Resistance"
1250 PRINT
1260 PRINT
1270 FOR I=0 TO 23
1280 SELECT I
1290 CASE <8
1300 K=90
1310 CASE <16
1320 K=91
1330 CASE ELSE
1340 K=92
1350 END SELECT
1360 PRINT USING Format;I,K,Result0(I),I+24,K,Result0(I+24)
1370 NEXT I
1380 PRINT
1390 Form2: IMAGE 3(2X,"CH ",DD," ",2A,2X,DD.DDDD," Ohms",2X)
1400 PRINT "Channels 90-92 LO and G Contact Resistance"
1410 PRINT
1420 FOR K=1 TO 2
1430 PRINT USING
Form2;90,Path$(K),Result1(0,K),91,Path$(K),Result1(1,K),92,Path$(K),Resu
lt1(2,K)