Un super carré magique
avec 55 solutions d'addition
  dont le résultat est  34
----------------------------
PROGRAM:CARMAG34

EffÉcran
Disp "Mémo pour le carré == [34]"
Disp "--------------------------"
Disp "   01    08    10    15"
Disp " "
Disp "   12    13    03    06"
Disp " "
Disp "   07    02    16    09"
Disp " "
Disp "   14    11    05    04"
Pause 

Disp " x x x x|4       4|x - - -"
Disp " - - - -|         |x - - -"
Disp " - - - -| x - - x |x - - -"
Disp " - - - -| x - - x |x - - -"
Disp "        | - - - - |"
Disp " x - - -| - - - - |x - - x"
Disp " - x - -|    8    |- - - -"
Disp " - - x -|         |- - - -"
Disp " - - - x|2       1|x - - x"
Pause 

Disp " x - - -|8       8|x x - -"
Disp " - - x -|         |- - - -"
Disp " - - x -| - - x - |- - x x"
Disp " x - - -| - x - - |- - - -"
Disp "        | x - - - |"
Disp " x x - -| - - - x |x - x -"
Disp " x x - -|    4    |- - - -"
Disp " - - - -|         |x - x -"
Disp " - - - -|9       4|- - - -"
Pause 

Disp "16 09 07 02 16 09 07 02 16
Disp "05 04 14 11 05 04 14 11 05
Disp "10 15 01 08 10 15 01 08 10
Disp "03 06 12 13 03 06 12 13 03
Disp "16 09 07 02 16 09 07 02 16
Disp "05 04 14 11 05 04 14 11 05
Disp "10 15 01 08 10 15 01 08 10
Disp "03 06 12 13 03 06 12 13 03
Disp "16 09 07 02 16 09 07 02 16
Pause 

Disp "4 lignes     4 colonnes"
Disp "2 diagonales 4 G carrés"
Disp "8 rectangles 8 trapèzes"
Disp "8 parallèlos 9 tits carrés"
Disp "4 carrés moy 4 T diagonale"
Disp "--------------------------"
Disp "[34]   4+4+2+4+8=22   [34]"
Disp "       8+8+9+4+4=33"
Disp "[34]     22+33=55     [34]"
Output(10,1,"--------------------------")

Pause 
EffÉcran