}
sub conway_step {
- say "CONWAY STEP";
+ #say "CONWAY STEP";
# write memory 0 to news
# read from news direction 0 into memory 1
# write memory 0 to news
# read_ 5;
# read_ 6;
- sleep 10;
+ #sleep 10;
}
$| = 1;
store 0, flag_zero, 0, 0;
read_ 0;
read_ 0;
-sleep 10;
+#sleep 10;
conway_step;
conway_step;