DIM X(7,7),Y(6*5*4*3*2,2),flag(7)
LET X(1,1) = 0
LET X(1,2) = 1
LET X(1,3) = 2
LET X(1,4) = 1
LET X(1,5) = 3
LET X(1,6) = 4
LET X(1,7) = 2
LET X(2,1) = 1
LET X(2,2) = 0
LET X(2,3) = 1
LET X(2,4) = 2
LET X(2,5) = 4
LET X(2,6) = 5
LET X(2,7) = 4
LET X(3,1) = 2
LET X(3,2) = 1
LET X(3,3) = 0
LET X(3,4) = 1
LET X(3,5) = 2
LET X(3,6) = 4
LET X(3,7) = 3
LET X(4,1) = 1
LET X(4,2) = 2
LET X(4,3) = 1
LET X(4,4) = 0
LET X(4,5) = 1
LET X(4,6) = 2
LET X(4,7) = 1
LET X(5,1) = 3
LET X(5,2) = 4
LET X(5,3) = 2
LET X(5,4) = 1
LET X(5,5) = 0
LET X(5,6) = 1
LET X(5,7) = 2
LET X(6,1) = 4
LET X(6,2) = 5
LET X(6,3) = 4
LET X(6,4) = 2
LET X(6,5) = 1
LET X(6,6) = 0
LET X(6,7) = 1
LET X(7,1) = 2
LET X(7,2) = 4
LET X(7,3) = 3
LET X(7,4) = 1
LET X(7,5) = 2
LET X(7,6) = 1
LET X(7,7) = 0
FOR i=1 TO 7
   LET flag(i) = 0
NEXT i
LET z = 1

FOR b=2 TO 7
   LET flag(b) = 1
   FOR c=2 TO 7
      IF flag(c) = 0 THEN
         LET flag(c) = 1
         FOR d=2 TO 7
            IF flag(d) = 0 THEN
               LET flag(d) = 1
               FOR e=2 TO 7
                  IF flag(e) = 0 THEN
                     LET flag(e) = 1
                     FOR f=2 TO 7
                        IF flag(f) = 0 THEN
                           LET flag(f) = 1
                           FOR g=2 TO 7
                              IF flag(g) = 0 THEN
                                 LET Y(z,1) = 10000000+1000000*b+100000*c+10000*d+1000*e+100*f+10*g+1
                                 LET Y(z,2) = X(1,b)+X(b,c)+X(c,d)+X(d,e)+X(e,f)+X(f,g)+X(g,1)
                                 LET z = z+1
                              END IF
                           NEXT g
                           LET flag(f) = 0
                        END IF
                     NEXT f
                     LET flag(e) = 0
                  END IF
               NEXT e
               LET flag(d) = 0
            END IF
         NEXT d
         LET flag(c) = 0
      END IF
   NEXT c
   LET flag(b) = 0
NEXT b
PRINT
PRINT "A=1 B=2 C=3 D=4 E=5 F=6 G=7"
PRINT
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=7 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=8 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=9 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=10 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=11 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=12 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=13 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=14 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=15 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=16 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=17 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=18 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=19 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=20 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=21 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
FOR i=1 TO 6*5*4*3*2
   IF Y(i,2)=22 THEN 
      PRINT Y(i,1);" �� ";Y(i,2)
   END IF
NEXT i
PRINT
END