Listing of file='QUEEN8' on disk='vmedia/games-droz00.wvd.zip'
# Sector 217, program filename = 'QUEEN8' 0010 REM QUEEN8 - QUEEN'S 8 PROBLEM 7/12/76 DISPLAY VERSION DA 0015 PRINT HEX(03);" SOLVING EIGHT QUEEN'S PROBLEM" 0016 PRINT AT(2,0); : FOR I=1 TO 8 : PRINT " . . . . . . . ." : NEXT I 0020 DIM S(8),R$9,D$(16)1,E$(15)1 : Q=1 : R=0 : R$=" 9" 0110 S=POS(STR(R$,R+1)=" ") : IF S=0 THEN 400 : R=R+S : IF D$(Q+R)<" "OR E$(Q-R+8)<" " THEN 110 : PRINT AT(Q+1,2*R);"Q"; : S(Q)=R : STR(R$,R,1),D$(Q+R),E$(Q-R+8)=BIN(Q) : Q=Q+1 : R=0 : IF Q<9 THEN 110 0140 FOR I=1 TO 8 : PRINT AT(I+1,32);" . . . . . . . ." : NEXT I 0150 FOR I=1 TO 8 : PRINT AT(I+1,2*S(I)+32);"Q"; : NEXT I 0160 M=M+1 : PRINT AT(11,30);"SOLUTION NUMBER ";M 0400 Q=Q-1 : IF Q=0 THEN 9000 : R=S(Q) : S(Q)=0 : PRINT AT(Q+1,2*R);"."; : STR(R$,R,1),D$(Q+R),E$(Q-R+8)=" " : GOTO 110 9000 PRINT AT(12,0); : STOP "END OF JOB"