Le regine verranno posizionate in modo che non si potranno fare scacco tra loro.
20 scrren 1:color 9,15,7:key off:cls
30 input "Dimensione scacchiera :";s
40 dim d(s)
50 i=1:a$=chr$(219)
60 d(i)=1
70 if i=1 then 110
80 for j=1 to i-1
90 if d(i)=d(j) or (abs(d(i)-d(j))=i-j) then 240
100 next j
110 i=i+1:if i<=s then 60
120 cls
130 for i=1 to s
140 locate 2*f,0:print f
150 locate 0,2*f:print f
160 for k=1 to s
170 locate 2*k+1,2*f:print "."
180 next k
190 locate 2*d(f)+1,2*f:print a$
200 locate f,20:print right$(str$(d(f)),1)
210 next f
220 play "cge":locate 0,22:print "Premi un tasto":r$=input$(1)
230 i=i-1
240 d(i)=d(i)+1
250 if d(i)<=s then 70
260 i=i-1
270 if i<>0 then 240