'********************************************************
'* Programa TESTA_CABO_REDE.BAS
'* Permite testar cabos de rede RJ-45 (scanner)
'* Desenvolvido por Márcio José Soares
'*****************************************************************
'*
'* Todos os direitos reservados
'*
'*****************************************************************
'*
'* Microcontrolador: Basic Step 1 (http://www.tato.ind.br)
'* Compilador utilizado: TBasic 1.0.0.0
'* Obs.: Roda em BS1, BS1 LT e BS1 OEM
'*
'*****************************************************************

'*****************************************************************
'* Variáveis e outros
'*****************************************************************
symbol i = b0				'variável para contador

'*****************************************************************
'* Setup do microcontrolador
'*****************************************************************
	dirs=%11111111			'todos os pinos são saida
	pins=%11111111			'apaga todos os LEDs

	pause 1000				'aguarda 1 segundo
								'para começar

'*****************************************************************
'* loop principal
'*****************************************************************

loop:
	for i=0 to 6			'acende LEDs em sequencia crescente
	  pins=%11111111		'apaga todos os LEDs
	  low i					'acende apenas o LED da vez
	  pause 1000			'tempo de 1 segundo
	next i

	for i=1 to 5			'pisca todos LEDs
	  pins=%11111111		'apaga LEDs
	  pause 500				'aguarda 0,5 segundos
	  pins=%00000000		'acende todos LEds
	  pause 500				'aguarda 0,5 segundos
        next i

	for i=6 to 0 step -1	'apaga  LEDs em sequencia decrescente
	  pins=%11111111		'apaga todos os LEDs
	  low i					'acende apenas o LED da vez
	  pause 1000 			'tempo de 1 segundo
	next i

	for i=1 to 5			'pisca todos LEDs
	  pins=%11111111		'apaga todos os LEDs		
	  pause 500				'aguarda 0,5 segundos
	  pins=%10000000		'acende todos os LEDs
	  pause 500				'aguarda 0,5 segndos
        next i

	goto loop				'faz eternamente