PRINT
PRINT " e  f  g  h" 
PRINT " a  b  c  d"
PRINT
LET Z=0
FOR a=1 TO 8
   FOR b=1 TO 8
      IF a=b OR a>b THEN GOTO 90
      FOR c=1 TO 8
         IF c=a OR c=b OR b>c THEN GOTO 80
         FOR d=1 TO 8
            IF d=a OR d=b OR d=c OR c>d THEN GOTO 70
            FOR e=1 TO 8
               IF e=a OR e=b OR e=c OR e=d OR e>a THEN GOTO 60
               FOR f=1 TO 8
                  IF f=a OR f=b OR f=c OR f=d OR f=e OR e>f OR f>b THEN GOTO 50
                  FOR g=1 TO 8
                     IF g=a OR g=b OR g=c OR g=d OR g=e OR g=f OR f>g OR g>c THEN GOTO 40
                     FOR h=1 TO 8
                        IF h=a OR h=b OR h=c OR h=d OR h=e OR h=f OR h=g OR g>h OR h>d THEN GOTO 30
                        LET Z=Z+1
                        PRINT USING "##":Z;
                        PRINT ": "
                        PRINT "  ";e;" ";f;" ";g;" ";h
                        PRINT "  ";a;" ";b;" ";c;" ";d
                        PRINT 
30                      NEXT h
40                   NEXT g
50                NEXT f
60             NEXT e
70          NEXT d
80       NEXT c
90    NEXT b
   NEXT a
   PRINT "合計で";Z;"通り です。"
   PRINT
END