10 I = 1

    20 A(I) = 1

    30 G = 1

    40 FOR K = I - 1 TO 1 STEP -1

    50 IF A(I) = A(K) THEN 70

    60 IF ABS(A(I) - A(K)) <> I - K THEN 90

    70 G = 0

    80 GOTO 100

    90 NEXT K

    100 IF I <> 8 THEN 180

    110 IF G = 0 THEN 180

    120 FOR L = 1 TO 8

    130 PRINT USING “##”; A(L);

    140 NEXT L

    150 PRINT “*”;

    160 M = M + 1

    170 IF M MOD 3 = 0 THEN PRINT

    180 IF G = 0 THEN 230

    190 IF I = 8 THEN 230

    200 I = I + 1

    210 A(I) = 1

    220 GOTO 30

    230 IF A(I) < 8 THEN 270

    240 I = I - 1

    250 IF I = 0 THEN 290

    260 GOTO 230

    270 A(I) = A(I) + 1

    280 GOTO 30

    290 PRINT

    300 PRINT “SUM=”; USING “##”; M;

    310 PRINT

    320 END