CUNET 0 8 31CUNET 8 8 15
'dsiplay io CUNET 0 8 31 DO OUT IN(SA8_B) 2 OUT IN(SA8_B+1) 3 LOOP 'scan IO CUNET 8 8 31 DO FOR i=0 TO 15 ON SA8+i WAIT SW(SA8+i) TIME 5 OFF SA8+i WAIT SW(SA8+i)==0 NEXT i OUT 0 SA_B8 : OUT 0 SA_B8+1 LOOP