main:
  infrain 'esperar la nueva seņal
  if infra = 1 then swon1   'encender 1
  if infra = 2 then swon2   'encender 2
  if infra = 3 then swon3   'encender 3
  if infra = 4 then swoff1   'apagar 1
  if infra = 5 then swoff2   'apagar 2
  if infra = 6 then swoff3   'apagar 3

  goto main
swon1:
  high 1
  goto main
swon2:
  high 2
  goto main
swon3:
  high 3
  goto main
swoff1:
  low 1
  goto main
swoff2:
  low 2
  goto main
swoff3:
  low 3
  goto main