aprenda adr2
	
	atribua "direção 0
	atribua "novadir 0
	atribua "direção2 0
	atribua "novadir2 0
	atribua "chamada 0
	atribua "out 5
	atribua "out2 6
	portasaídab 888 0

	criejanela "main "d1 [Robô ADR-2 Mecatrônica Fácil] 10 10 240 130

	crieestático "d1 "e1 [Comandos para o robô ADR-2] 70 10 100 20
	
	criebotão "d1 "b1 [Gira a esquerda] 10 30 60 20 [esquerda]
	criebotão "d1 "b2 [Gira a direita]  80 30 60 20 [direita]

	crieestático "d1 "e2 [Passos] 150 30 100 20
	crieestático "d1 "e3 [ ] 200 30 50 10

	criebarrarolagem "d1 "br1 150 40 70 20 [mudepassos]
	mudebarrarolagem "br1 1 100 50 

	criebotão "d1 "b3 [Anda para traz] 10 60 60 20 [traz]
	criebotão "d1 "b4 [Anda para frente]  80 60 60 20 [frente]

	crieestático "d1 "e4 [Velocidade] 150 60 100 20
	crieestático "d1 "e5 [ ] 200 60 50 10

	criebarrarolagem "d1 "br2 150 70 70 20 [mudevelocidade]
	mudebarrarolagem "br2 1 10 1 

	criebotão "d1 "b5 [Fim]  50 90 130 20 [apaguejanela "d1]

	
fim

aprenda direita
	portasaída 888 0	
	atribua "chamada 1
	atribua "novadir 1
	movamotor
	atribua "direção :novadir
fim

aprenda esquerda
	portasaída 888 0
	atribua "chamada 1
	atribua "novadir 0
	movamotor
	atribua "direção :novadir
fim

aprenda frente	
	portasaída 888 0
	atribua "chamada 0
	atribua "novadir2 1
	movamotor
	atribua "direção2 :novadir2
fim

aprenda movamotor

	atribua "i 0
	
	se não :direção=:novadir[atribua "out bitxou :out 15]

	se não :direção2=:novadir2[atribua "out2 bitxou :out2 15]

	se :chamada=1[
		para[i 1 :steps 1][portasaídab 888 bitxou portaentradab 888 :out 
			atribua "out bitxou :out 15 espere :velocidade]]
	se :chamada=0[
          para[i 1 :steps 1][portasaídab 888 bitxou portaentradab 888 :out2 
			atribua "out2 bitxou :out2 15 espere :velocidade]]

fim

aprenda mudepassos

	atribua "steps barrarolagem "br1
	mudeestático "e3 barrarolagem "br1
fim

aprenda mudevelocidade

	atribua "velocidade barrarolagem "br2
	mudeestático "e5 barrarolagem "br2
fim

aprenda traz
	portasaída 888 0
	atribua "chamada 0
	atribua "novadir2 0
	movamotor
	atribua "direção2 :novadir2
fim

Atribua "chamada 0
Atribua "direção 0
Atribua "direção2 0
Atribua "i 0
Atribua "m 0
Atribua "mt1 0
Atribua "novadir 0
Atribua "novadir2 0
Atribua "out 5
Atribua "out2 6
Atribua "steps 50
Atribua "t 0
Atribua "velocidade 1