Fair and Square solutions

Fair and Square was solved using Fortran by 2 contestants. Solution sizes: average 1624 bytes (shortest: 1284; longest: 1964).