OPTION BASE 0
PRINT
PRINT "何行何列の魔方陣？"
10 INPUT PROMPT "３〜９までの奇数を入力してください。":N
   PRINT
   IF N<3 OR N/2=INT(N/2) OR N<>INT(N) THEN GOTO 10
   DIM A(N,N)
   LET k=0
   FOR i=-N/2 TO N/2-1
      FOR j=0 TO N-1
         LET K=k+1
         LET S=MOD((j-i+N),N)
         LET T=MOD((j+i+N),N)
         LET SS=TRUNCATE(S,0)
         LET TT=ROUND(T,O)
         IF TT=N THEN LET TT=0
         PRINT USING "##":k;
         PRINT ": ";SS;TT
         LET A(SS,TT)=K
      NEXT j
   NEXT i
   PRINT
   PRINT
   PRINT N;"×";N;"の魔法陣："
   PRINT
   FOR w=0 TO N-1
      LET D=0
      FOR q=0 TO N-1
         LET D=D+A(w,q)
         PRINT USING "####":A(w,q);
      NEXT q
      PRINT "      ＝";D
      PRINT 
   NEXT w
   PRINT 
   ! MOD(X,Y) →　X を Y で割ったときの余り
   ! ROUND(X,0) → 小数点以下を四捨五入する
   ! TRUNCATE(X,0) → 小数点以下を切り捨てる
END