v8.for
FORTRAN dilinde
c yet another 8 queens program...
implicit integer*2 (a-z)
Dimension m(8)
data m/8*1/
n=0
i=1
1 im1=i-1
if(i.lt.2) goto 3
do 2 d=1,im1
j=i-d
if(m(i).eq.m(j)) goto 4
if(m(i).eq.m(j)-d) goto 4
if(m(i).eq.m(j)+d) goto 4
2 continue
3 i=i+1
if(i.lt.9) goto 1
n=n+1
write(*,100) n,m
100 format(i4,': a',I1,' b',i1,' c',i1,' d',i1,' e',i1,' f',i1,
+' g',i1,' h',i1)
goto 5
4 m(i)=m(i)+1
if(m(i).lt.9) goto 1
m(i)=1
5 i=i-1
if(i.gt.0) goto 4
stop
end