QBASIC 非递归法解八皇后问题

CLS
DIM queen(1 TO 8) AS INTEGER
COUNTER = 0
row = 1
queen(row) = 0
DO
  IF row = 0 THEN EXIT DO
  queen(row) = queen(row) + 1
  IF queen(row) = 9 THEN
    row(row) = 0
    row = row - 1
  ELSE
    FOR i = 1 TO row - 1
      IF ABS(row - i) = ABS(queen(i) - queen(row)) OR queen(i) = queen(row) THEN EXIT FOR
    NEXT
    IF i = row THEN  '第ROW行可放在queen(row)列
      IF row = 8 THEN
        COUNTER = COUNTER + 1
        PRINT "== " + LTRIM$(STR$(COUNTER)) + " =="
        FOR M = 1 TO 8
        FOR N = 1 TO 8
            IF queen(M) = N THEN PRINT "#";  ELSE PRINT "*";
        NEXT
        PRINT
        NEXT
      ELSE
        row = row + 1
        queen(row) = 0
      END IF
    END IF
  END IF
LOOP
END