rule110.porth

include "std.porth"

// Max width of the row
macro N 100 end

// Memory layout
macro row mem end
macro display row N + end

row N 2 - + 1 .
display N + 10 .

0 while dup N 2 - < do
   0 while dup N < do
      if dup row + , 1 = do
         dup display + '*' .
      else
         dup display + ' ' .
      end
      1 +
   end drop

   N 1 + display puts

   row     , 1 shl
   row 1 + ,
   or

   1 while dup N 2 - < do
      swap 1 shl 7 and
      over row + 1 + , or
      2dup 110 swap shr 1 and
      swap row + swap .
      swap

      1 +
   end 2drop

   1 +
end drop