LET Z=0
FOR a=1 TO 9
   FOR b=1 TO 9
      IF b=a THEN GOTO 90
      FOR c=1 TO 9
         IF c=a OR c=b THEN GOTO 80
         FOR d=1 TO 9
            IF d=a OR d=b OR d=c THEN GOTO 70
            FOR e=1 TO 9
               IF e=a OR e=b OR e=c OR e=d THEN GOTO 60
               FOR f=1 TO 9
                  IF f=a OR f=b OR f=c OR f=d OR f=e THEN GOTO 50
                  FOR g=1 TO 9
                     IF g=a OR g=b OR g=c OR g=d OR g=e OR g=f THEN GOTO 40
                     FOR h=1 TO 9
                        IF h=a OR h=b OR h=c OR h=d OR h=e OR h=f OR h=g THEN GOTO 30
                        FOR i=1 TO 9
                           IF i=a OR i=b OR i=c OR i=d OR i=e OR i=f OR i=g OR i=h THEN GOTO 20
                           IF a+b+c<>15 THEN GOTO 20
                           IF d+e+f<>15 THEN GOTO 20
                           IF g+h+i<>15 THEN GOTO 20
                           IF a+d+g<>15 THEN GOTO 20
                           IF b+e+h<>15 THEN GOTO 20
                           IF c+f+i<>15 THEN GOTO 20
                           IF a+e+i<>15 THEN GOTO 20
                           IF c+e+g<>15 THEN GOTO 20
                           LET Z=Z+1
                           PRINT
                           PRINT "魔方陣 No.";Z
                           PRINT 
                           PRINT USING "#####":a;
                           PRINT USING "#####":b;
                           PRINT USING "#####":c
                           PRINT
                           PRINT USING "#####":d;
                           PRINT USING "#####":e;
                           PRINT USING "#####":f
                           print
                           PRINT USING "#####":g;
                           PRINT USING "#####":h;
                           PRINT USING "#####":i
                           PRINT
20                         NEXT i
30                      NEXT h
40                   NEXT g
50                NEXT f
60             NEXT e
70          NEXT d
80       NEXT c
90    NEXT b
   NEXT a
   PRINT "このプログラムは終了しました。"
END