' {$STAMP BS1}
SYMBOL relay = B3
SYMBOL stat = B4

DIRS = %11111110
 LOW 1
 LOW 2
 LOW 3
 LOW 4
loop:
   SERIN 0,N2400,(252),relay,stat
   IF relay = 1 THEN out1
   IF relay=2 THEN out2
    IF relay=3 THEN out3
     IF relay=4 THEN out4

out1:
LOW 2
LOW 3
LOW 4
   WRITE 1,stat
   IF stat = 1 THEN on1
   GOTO off1
   GOTO loop

out2:
LOW 1
LOW 3
LOW 4
   WRITE 2,stat
   IF stat = 1 THEN on2
   GOTO off2
   GOTO loop

out3:
LOW 1
LOW 2
LOW 4
   WRITE 3,stat
   IF stat = 1 THEN on3
   GOTO off3
   GOTO loop


out4:
LOW 1
LOW 2
LOW 3

   WRITE 4,stat
   IF stat = 1 THEN on4
   GOTO off4
   GOTO loop
on1:
   HIGH 1
   GOTO loop

off1:
   LOW 1
   GOTO loop

on2:
   HIGH 2
   GOTO loop

off2:
   LOW 2
   GOTO loop


on3:
   HIGH 3
   GOTO loop

off3:
   LOW 3
   GOTO loop

on4:
   HIGH 4
   GOTO loop

off4:
   LOW 4
   GOTO loop