ƒŠƒXƒg‚R@8QUEENƒ\[ƒXƒŠƒXƒg

10 CLS:TIME=0
20 LOCATE 12,7:PRINT "-----------"
30 LOCATE 12,8:PRINT "  8-QUEEN  "
40 LOCATE 12,9:PRINT "-----------"
50 DIM BD(8):I=1
60 '
100 J=0
200 J=J+1:IF J=9 THEN 800
210 K=1
300 C=BD(K):D=I-K:IF D=0 THEN 400
310 IF C=J OR C=J+D OR C=J-D THEN 200
320 K=K+1:GOTO 300
400 BD(I)=J
410 I=I+1:IF I<9 THEN 100
420 IF Q=0 THEN Q=Q+1:GOTO 500
430 Q=Q-1
440 '
500 Z=Z+1:LOCATE 4,2:CALL &H3E:PRINT "(";Z;")"
510 PRINT SPC(9);"„¡„¦„¦„¦„¦„¦„¦„¦„¢"
520 FOR L=1 TO 8
530 PRINT SPC(9);"|"
540 FOR A=1 to 8
550 IF A=BD(L) THEN PRINT "Q|";ELSE PRINT " |";
560 NEXT
570 PRINT:IF L=8 THEN 600
580 PRINT SPC(9);"„¥„©„©„©„©„©„©„©„§";
590 NEXT
600 PRINT SPC(9);"„¤„¨„¨„¨„¨„¨„¨„¨„£"
610 '
700 FOR I=1 TO 8
710 LOCATE 26,I+I+2:PRINT BD(I)
720 NEXT
730 PRINT:PRINT TIME
740 '
800 I=I-1:J=BD(I)
810 IF I<>0 THEN 200
820 PRINT:PRINT "   FINISH"
830 END