ƒŠƒ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