aprenda encerra
	atribua "minha_porta 0
	portasaída 888 :minha_porta
	apaguejanela "d1
	mudeestadojanela [Janela de Comandos] 1
	limpejanelacomandos
fim

aprenda logo_control

	atribua "meu_rele1 0
            atribua "meu_rele2 0
            atribua "meu_rele3 0
            atribua "meu_rele4 0

	atribua "minha_porta 0

	portasaída 888 :minha_porta
	criejanela "main "d1 [Placa Logo Control by Arne] 150 100 155 115

	criebotão "d1 "b1 [Controle relé 1] 10 10 60 20 [rele1]
	criebotão "d1 "b2 [Controle relé 2] 80 10 60 20 [rele2]

	criebotão "d1 "b3 [Controle relé 3] 10  40 60 20 [rele3]
	criebotão "d1 "b4 [Controle relé 4]  80 40 60 20 [rele4]

	criebotão "d1 "b9 [Fim]  10 70 130 20 [encerra]

	mudeestadojanela [Janela de Comandos] 0
fim

aprenda rele1
	se :meu_rele1 = 0 [atribua "meu_rele1 1 atribua "minha_porta bitou :minha_porta 1][atribua "meu_rele1 0 atribua "minha_porta bite :minha_porta 254]
	portasaída 888 :minha_porta
fim

aprenda rele2
	se :meu_rele2 = 0 [atribua "meu_rele2 1 atribua "minha_porta bitou :minha_porta 2] [atribua "meu_rele2 0 atribua "minha_porta bite :minha_porta 253]
	portasaída 888 :minha_porta
fim

aprenda rele3
	se :meu_rele3 = 0 [atribua "meu_rele3 1 atribua "minha_porta bitou :minha_porta 4] [atribua "meu_rele3 0 atribua "minha_porta bite :minha_porta 251]
	portasaída 888 :minha_porta
fim

aprenda rele4
	se :meu_rele4 = 0 [atribua "meu_rele4 1 atribua "minha_porta bitou :minha_porta 8] [atribua "meu_rele4 0 atribua "minha_porta bite :minha_porta 247]
	portasaída 888 :minha_porta
fim

Atribua "meu_rele1 1
Atribua "meu_rele2 1
Atribua "meu_rele3 1
Atribua "meu_rele4 1
Atribua "minha_porta 0