Select Code to Download

# Calculate screen
for my $yi (0..$ROWS-1) {
...
        ...
    }
}

# Calculate screen
for (my $yi = 0; $yi < $ROWS; $yi++) {
...
        ...
    }
}