Generate Chess960 starting position: Difference between revisions

m
(Added Easylang)
 
Line 952:
randins "R" (king + 1) 8 h
randins "B" 1 8 b1
repeat
randins "B" 1 8 b2
while (b2 - b1) mod 2 = 0
t$[b2] = ""
randins "B" 1 8 b2
while until (b2 - b1) mod 2 =<> 0
t$[b2] = ""
.
randins "Q" 1 8 b1
1,982

edits