https://rosettacode.org/wiki/Magic_squares_of_odd_order#QB64'==================================================
Task
For any odd N, generate a magic square with the integers 1 ──► N, and show the results here.
Optionally, show the magic number.
You should demonstrate the generator by showing at least a magic square for N = 5.
'==================================================
_Title "Magic Squares of Odd Order" '$Dynamic
inc = 1
count = 1
row = 1
col = (n + 1) / 2
m(row, col) = count
count = count + 1
inc = inc + 1
row = row - 1
col = col + 1
row = n
inc = 1
row = row + 1
'Arbitrary limit ensures a fit within console window
'Can be any size that fits within your computers memory limits
Print "Order "; n;
" Magic Square constant is ";
Str$(Int((n
* n
+ 1) / 2 * n
)) ' Print