aprenda abrameuarquivo
	atribua "Meuarquivo 1
	abraparaescrever "rm1.dat
fim

aprenda abregarra
      atribua "MeuComando "BM15M140M
	mudebarrarolagem "br3 140 200 140
fim

aprenda BraçoMecanico
	
	atribua "pormeutempo 20
	atribua "MeuArquivo 0
	abraporta "com2
	mudemodoporta "com2:2400,n,8,1

	criejanela "main "d1 [Braço Mecânico - Mecatrônica Fácil] 5 5 290 130
	crieestático "d1 "e1 [Comandos tudo ou nada] 70 1 120 20
	crieestático "d1 "e2 [Comandos parciais] 220 1 120 20
	criebotão "d1 "b1 [Gira a Direita] 10 15 60 20 [giradireita]
	criebotão "d1 "b2 "Centraliza    80 15 60 20 [centrabase]
	criebotão "d1 "b3 [Gira a Esquerda] 150 15 60 20 [giraesquerda]
	criebarrarolagem "d1 "br1       220 25 60 20 [controlebase]
	mudebarrarolagem "br1 100 200 150

	criebotão "d1 "b4 [Desce o Braço]    10 40 60 20 [descebraço] 
	criebotão "d1 "b5 "Centraliza    80 40 60 20 [centrabraço]
	criebotão "d1 "b6 [Sobe o Braço]  150 40 60 20 [sobebraço]
	criebarrarolagem "d1 "br2       220 50 60 20 [controlebraço]
	mudebarrarolagem "br2 100 200 150

	criebotão "d1 "b7 [Abre a Garra]    10 65 60 20 [abregarra] 
	criebotão "d1 "b8 [Fecha a Garra]  150 65 60 20 [fechagarra]
	criebarrarolagem "d1 "br3       220 75 60 20 [controleGarra]
	mudebarrarolagem "br3 140 190 190
	
	criebotão "d1 "b9 [Abre Arquivo]    10 90 60 20 [abrameuarquivo]
	criebotão "d1 "b10 [Salva comando]  80 90 60 20 [salvemeuscomandos] 
	criebotão "d1 "b11 [Executa arquivo] 150 90 60 20 [Executemeuarquivo]
	criebotão "d1 "b12 "Fim             220 90 60 20 [fimbraço]

	descebraço
	sobebraço
	centrabraço		
fim

aprenda centrabase
	atribua "MeuComando "BM17M150M
	mudebarrarolagem "br1 100 200 150
fim

aprenda centrabraço
	atribua "MeuComando "BM16M150M
	mudebarrarolagem "br2 100 200 150
fim

aprenda ControleBase
	atribua "MeusPulsos formatanúmero barrarolagem "br1 3 0
	atribua "MeuComando "BM17M
	coloque (combine :MeuComando :MeusPulsos) "MeuComando
 	coloque (combine :MeuComando "M) "MeuComando
	Envieparaporta 
fim

aprenda ControleBraço
	atribua "MeusPulsos formatanúmero barrarolagem "br2 3 0
	atribua "MeuComando "BM16M
	coloque (combine :MeuComando :MeusPulsos) "MeuComando
 	coloque (combine :MeuComando "M) "MeuComando
	Envieparaporta 
fim

aprenda ControleGarra
	atribua "MeusPulsos formatanúmero barrarolagem "br3 3 0
	atribua "MeuComando "BM15M
	coloque (combine :MeuComando :MeusPulsos) "MeuComando
 	coloque (combine :MeuComando "M) "MeuComando
	Envieparaporta 
fim

aprenda descebraço
	atribua "MeuComando "BM16M100M
	mudebarrarolagem "br2 100 200 100
fim

aprenda Envieparaporta
	
	atribua "EnvioOk 0
	
	;envia caracter para esperar resposta
	se épalavra :MeuComando[façaenquanto[atribua "z escrevacaractereporta ascii "M atribua "w leiacaractereporta][:w=-1]
            escreva car :w espere 20]
	
	;basic stamp online
	se épalavra :MeuComando[para [i 1 9 1][atribua "y escrevacaractereporta ascii elemento :i :MeuComando]
	   escreva :MeuComando espere :pormeutempo atribua "EnvioOk 1]
	
	;Basic Step devolve "0" se ocorreu um erro e 1 se tudo esta ok
	se :EnvioOk=1[façaenquanto[atribua "x leiacaractereporta][:x=-1]
	     escreva car :x]

fim

aprenda Executemeuarquivo
	
	atribua "pormeutempo 45
	escreva :MeuArquivo
	se :MeuArquivo = 1 [fechearq "rm1.dat atribua "MeuArquivo 0]
	abraparaler "rm1.dat
	Mudeleitura "rm1.dat
	façaenquanto[coloque leiapalavra "MeuComando Envieparaporta][épalavra :MeuComando]
	Mudeleitura[]
	fechearq "rm1.dat
	atribua "pormeutempo 20
fim

aprenda fechagarra
	atribua "MeuComando "BM15M190M
	mudebarrarolagem "br3 140 190 190
fim

aprenda fimbraço
	fecheporta
	se :MeuArquivo=1[fechearq "rm1.dat]
	apaguejanela "d1
fim

aprenda giradireita
	atribua "MeuComando "BM17M100M
	mudebarrarolagem "br1 100 200 100
fim

aprenda giraesquerda
	atribua "MeuComando "BM17M200M
	mudebarrarolagem "br1 100 200 200
fim

aprenda RM_1
	
	atribua "pormeutempo 20
	atribua "MeuArquivo 0
	abraporta "com1
	mudemodoporta "com1:2400,n,8,1

	criejanela "main "d1 [Braço Mecânico - Mecatrônica Fácil] 5 5 290 130
	crieestático "d1 "e1 [Comandos tudo ou nada] 70 1 120 20
	crieestático "d1 "e2 [Comandos parciais] 220 1 120 20
	criebotão "d1 "b1 [Gira a Direita] 10 15 60 20 [giradireita]
	criebotão "d1 "b2 "Centraliza    80 15 60 20 [centrabase]
	criebotão "d1 "b3 [Gira a Esquerda] 150 15 60 20 [giraesquerda]
	criebarrarolagem "d1 "br1       220 25 60 20 [controlebase]
	mudebarrarolagem "br1 100 200 150

	criebotão "d1 "b4 [Desce o Braço]    10 40 60 20 [descebraço] 
	criebotão "d1 "b5 "Centraliza    80 40 60 20 [centrabraço]
	criebotão "d1 "b6 [Sobe o Braço]  150 40 60 20 [sobebraço]
	criebarrarolagem "d1 "br2       220 50 60 20 [controlebraço]
	mudebarrarolagem "br2 100 200 150

	criebotão "d1 "b7 [Abre a Garra]    10 65 60 20 [abregarra] 
	criebotão "d1 "b8 [Fecha a Garra]  150 65 60 20 [fechagarra]
	criebarrarolagem "d1 "br3       220 75 60 20 [controleGarra]
	mudebarrarolagem "br3 140 190 190
	
	criebotão "d1 "b9 [Abre Arquivo]    10 90 60 20 [abrameuarquivo]
	criebotão "d1 "b10 [Salva comando]  80 90 60 20 [salvemeuscomandos] 
	criebotão "d1 "b11 [Executa arquivo] 150 90 60 20 [Executemeuarquivo]
	criebotão "d1 "b12 "Fim             220 90 60 20 [fimbraço]

	descebraço
	sobebraço
	centrabraço		
fim

aprenda salvemeuscomandos
	mudeescrita "rm1.dat
	escreva :MeuComando
	mudeescrita [ ]
fim

aprenda sobebraço
	atribua "MeuComando "BM16M200M
	mudebarrarolagem "br2 100 200 200
fim

Atribua "buff [B M 1 5 M 1 4 0 M]
Atribua "comando "BM15M140M
Atribua "enviook 1
Atribua "i 0
Atribua "meuarquivo 0
Atribua "meubuff {B M 1 [] [] [] [] [] []}@0
Atribua "meucom [BM15 155 M]
Atribua "meucomando "BM15M190M
Atribua "meucontador 0
Atribua "meuspulsos 190
Atribua "pormeutempo 20
Atribua "valido 1
Atribua "w 80
Atribua "x 49
Atribua "y 1
Atribua "z 1