SYSTEM "ZECHNAS EL CHATO A 2 NEIGHBORS IN A CYLINDER V 1.0"

[zechnas]

system "Zechnas El Chato a 2 vecinos en cilindro. V1.0"
{

}
method "main"
begin

If Number 0 has Hit en 1
Begin
Put 2 on Neighbor Count
Copy Neighbors of Number 0 to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 1 has Hit en 1
Begin
Put 2 on Neighbor Count
Copy Neighbors of Number 1 to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 2 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 2
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 3 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 3
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 4 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 4
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 5 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 5
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 6 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 6
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 7 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 7
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 8 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 8
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 9 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 9
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end



If Number 10 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 10
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 11 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 11
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 12 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 12
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 13 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 13
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 14 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 14
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 15 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 15
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end



If Number 16 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 16
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 17 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 17
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 18 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 18
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 19 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 19
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end



If Number 20 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 20
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 21 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 21
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 22 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 22
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 23 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 23
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 24 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 24
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 25 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 25
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 26 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 26
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 27 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 27
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 28 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 28
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 29 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 29
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 30 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 30
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 31 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 31
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 32 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 32
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 33 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 33
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end


If Number 34 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 34
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end



If Number 35 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 35
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end



If Number 36 has Hit en 1
Begin
   Put 2 on Neighbor Count

   Copy Neighbors of Number 36
        to Record "vecinos" Layout
end

While on Each Spin
Begin
   Put 1 units on Record "vecinos" Layout List
end

End