Service manual

680 IF J<1 THEN
690 IF I <10 THEN
700 OUTPUT @Sw;"OPEN (@"&Cc$&Ph$&VAL$(I)&")"
710 ELSE
720 OUTPUT @Sw;"OPEN (@"&Cc$&VAL$(I)&")"
730 END IF
740 ELSE
750 IF I <10 THEN
760 OUTPUT @Sw;"CLOS (@"&Cc$&Ph$&VAL$(I)&")"
770 ELSE
780 OUTPUT @Sw;"CLOS (@"&Cc$&VAL$(I)&")"
790 END IF
800 END IF
810 OUTPUT @Sw;"*OPC?"
820 ENTER @Sw;Opc
830 IF Opc<>1 THEN GOTO 810
840 IF Result(J,I)<0 THEN Result(J,I)=0
850 IF Result(J,I)>2.0 THEN
860 PRINT "Resistance for Channel ";I;" "&Path$(J)&" contacts
is >2.0 Ohms"
870 END IF
880 NEXT I
890 PRINT "Measurements complete for Channel 00-31 "&Path$(J)&" contacts"
900 IF J<1 THEN
910 DISP "Press Continue for channels 00-31 Normally Closed
measurements"
920 PAUSE
930 END IF
940 NEXT J
950 PRINT "Closed Contact Resistance measurements complete"
960 DISP "Press continue to print measurement results"
970 PAUSE
980 CLEAR SCREEN
990 !
1000 ! Print measurement results
1010 !
1020 Format:IMAGE "CH ",DD,3X,DD.DDDD," Ohms",3X,DD.DDDD," Ohms"
1030 PRINT TABXY(1,3)," NO Contacts NC Contacts"
1040 PRINT
1050 FOR I=0 TO 31
1060 PRINT USING Format;I,Result(0,I),Result(1,I)
1070 NEXT I
1080 END
26 Verification Tests Chapter 2