PRINT
PRINT " 1 ： 右に１つ進む"
PRINT "-1 ： 上に１つ進む"
PRINT
LET Z=0 
LET a=1
FOR b=-1 TO 1 STEP 2
   FOR c=-1 TO 1 STEP 2
      IF a+b+c<0 THEN GOTO 90
      FOR d=-1 TO 1 STEP 2
         IF a+b+c+d<0 THEN GOTO 80
         FOR e=-1 TO 1 STEP 2
            IF a+b+c+d+e<0 OR a+b+c+d+e>3 THEN GOTO 70
            FOR f=-1 TO 1 STEP 2
               IF a+b+c+d+e+f<0 OR a+b+c+d+e+f>2 THEN GOTO 60
               FOR g=-1 TO 1 STEP 2
                  IF a+b+c+d+e+f+g<0 OR a+b+c+d+e+f+g>1 THEN GOTO 50
                  FOR h=-1 TO 1 STEP 2
                     IF a+b+c+d+e+f+g+h<0 OR a+b+c+d+e+f+g+h>0 THEN GOTO 40
                     LET Z=Z+1
                     PRINT USING "##":Z;
                     PRINT ": ";a;" ";b;" ";c;" ";d;" ";e;" ";f;" ";g;" ";h
40                   NEXT h
50                NEXT g
60             NEXT f
70          NEXT e
80       NEXT d
90    NEXT c
   NEXT b
   PRINT
   PRINT "全部で";Z;"個です。"
   PRINT
END