
380 | OUTPUT @Switch;"CLOS (@100:115)" !Open all NC contacts |
390 | FOR I=0 TO 15 |
400 |
410OUTPUT @Switch;"OPEN (@"&VAL$(100+I)&")"
420OUTPUT @Dmm;"TRIG SGL"
430ENTER @Dmm;Rdg
440PRINT "Channel "&VAL$(I)&" (closed): "&VAL$(Rdg)
450!
460
470OUTPUT @Switch;"CLOS (@"&VAL$(100+I)&")"
480OUTPUT @Dmm;"TRIG SGL"
490ENTER @Dmm;Rdg
500PRINT "Channel "&VAL$(I)&" (open): "&VAL$(Rdg)
510PRINT
520NEXT I
530!
540END
26 Verification Tests | Chapter 2 |