Carré magique

' ***************************************************
' *    CARRES MAGIQUES                                                     
' *                                                                                     
' *    Version Panoramic 1.0                                                 
' *    par Papydall                                                               
' *                                                                                     
' ***************************************************

dim titre$ : titre$ = "C A R R E S  M A G I Q U E S"
width 0,1000 : height 0,700 : caption 0,"Papydall vous présente    " + titre$
dim n,i,j,somme,n2,lig,col, entier, nmax, nombre , l,a$
nmax = 31 : ' Ordre max du carré à cause de l'affichage à l'écran

label  ordre , magic, affichage, formatage
gosub ordre : dim mat(n,n) : gosub magic
end
' ==================================================
ordre:
' Saisie de l'ordre n du carré
print " Ordre du carré ( impair 3...";nmax;") ? "; : input n
if (n < 3) or (n > nmax) or (odd (n) = 0) then n = nmax
return
' ==================================================
affichage:
' affichage du carré
for i = 1 to n
    print : print "ligne " ;
    a$ = str$ (i) : gosub formatage : print  ":  " ;
    for j = 1 to n
        a$ = str$ (mat (i,j))
        gosub formatage
    next j
next i
print : print
print "La somme de toutes les lignes,toutes les colonnes et les 2 diagonales principales est : " ; somme
return
' ==================================================

magic:
' calcul de la matrice
n2 = n * n
j = int(n / 2) : i = j + 1
for nombre = 1 to n2
    if i < n : i = i + 1 : else : i = 1 : end_if
    if j < n : j = j + 1 : else : j = 1 : end_if
    while mat(i,j) > 0
        if i < n : i = i + 1 : else : i = 1 : end_if
        if j > 1 : j = j - 1 : else : j = n : end_if
    end_while
    mat(i,j) = nombre
next nombre
somme = n * (n2 + 1) / 2
gosub affichage
return
' ==================================================
formatage:
' On ajoute les espaces necessaires pour la justification à gauche
l = len (a$)
if l < 2 : a$ = "  " + a$ : else : if l < 3 : a$ = " " + a$ : end_if : end_if
print a$ ;" ";
return
' ==================================================