Service manual

990 IF I=8 AND K=2 THEN Result1(I,K)=Value1(I,K)-(R(25)+R(31))
1000 IF I=9 AND K=0 THEN Result1(I,K)=Value1(I,K)-(R(23)+R(26))
1010 IF I=9 AND K=1 THEN Result1(I,K)=Value1(I,K)-(R(24)+R(27))
1020 IF I=9 AND K=2 THEN Result1(I,K)=Value1(I,K)-(R(25)+R(28))
1030 IF Result1(I,K)<0. THEN Result1(I,K)=0.
1040 IF Result1(I,K)>2.0 THEN
1050 PRINT "Resistance for Channel";I;"Relay is >2.0 Ohms"
1060 PAUSE
1070 END IF
1080 NEXT I
1090 IF K<2 THEN
1100 PRINT "Measurements complete for Channels 08 - 15 and 91 -
92 ";Path$(K)
1110 DISP " Press Continue for Channels 08 - 15 and 91 - 92
";Path$(K+1);" measurements "
1120 PAUSE
1130 ELSE
1140 PRINT "Measurements complete for Channels 08 - 15 and 91 -
92 ";Path$(K)
1150 DISP " Press Continue to display measurement results "
1160 PAUSE
1170 CLEAR SCREEN
1180 END IF
1190 NEXT K
1200 !
1210
! Display Relay Contact Resistances
1220 !
1230 Format:IMAGE 3(12X,D.2D,12X,D.2D,12X,D.2D,/)
1240 PRINT TABXY(1,1),"Channels 00-15 and 90-92 Relay Contact
Resistances "
1250 PRINT TABXY(1,3),"Channel HI (OHMS) LO (OHMS) GU
(OHMS)"
1260 PRINT
1270 PRINT USING Format;Result0(*)
1280 FOR I=0 TO 8
1290 IF I<8 THEN PRINT TABXY(2,5+I),I
1300 IF I=8 THEN PRINT TABXY(3,13),"90"
1310 NEXT I
1320 PRINT USING Format;Result1(*)
1330 FOR J=8 TO 17
1340 IF J<16 THEN PRINT TABXY(2,J+1),J
1350 IF J=16 THEN PRINT TABXY(3,J+1),"91"
1360 IF J=17 THEN PRINT TABXY(3,J+1),"92"
1370 NEXT J
1380 END
32 Verification Tests Chapter 2