Aaaaaa

label 1 global a global e1 global e2 global e3 global e4 global e5 global e6 program loko set a= 0 set e1= 0 set e2= 0 set e3= 0 set e4= 0 set e5= 0 set e6= 0 println "Inicializando" delay 250 Println "Colocar em qual estoque?" read a if a > 0 orif a < 7 Println "Numero valido" if a= 1 if e1= 0 println "estoque vazio" delay 250 speed 75 moved 1 moved 14 open speed 10 moved 15 close moved 14 speed 75 moved 2 speed 10 moved 3 open moved 2 speed 75 set e1= 1 else println "estoque cheio" endif if a= 2 if e2= 0 println "estoque vazio" delay 250 speed 75 moved 1 moved 14 open speed 10 moved 15 close moved 14 speed 75 moved 4 speed 10 moved 5 open moved 4 speed 75 set e2= 1 else println "estoque cheio" endif if a= 3 if e1= 0 println "estoque vazio" delay 250 speed 75 moved 1 moved 14 open speed 10 moved 15 close moved 14 speed 75 moved 6 speed 10 moved 7 open moved 6 speed 75 set e3= 1 else println "estoque cheio" endif if a= 4 if e4= 0 println "estoque vazio" delay 250 speed 75 moved 1 moved 14 open speed 10 moved 15 close moved 14 speed 75 moved 8 speed 10 moved 9 open moved 8 speed 75 set e4= 1 else println "estoque cheio" endif if a= 5 if e5= 0 println "estoque vazio" delay 250 speed 75 moved 1 moved 14 open speed 10 moved 15 close moved 14 speed 75 moved 10 speed 10 moved 11 open moved 10 speed 75 set e5= 1 else println "estoque cheio" endif if a= 6 if e6= 0 println "estoque vazio" delay 250 speed 75 moved 1 moved 14 open speed 10 moved 15