Turbo Prolog 2.0

shahmatnaya_doska(string,string)
 A(integer,integer)
 beloe(string)
 chernoe(string)
 pole(string)
clauses
 beloe (" ").
 chernoe("*").
 pole(X):-beloe(X).
 pole(X):-chernoe(X).

predicates
    board(integer,integer)   
    selection
clauses 
    board(X,Y):-
        write("create board: "),
        write(X),
        write("x"),
        write(Y).
    selection:-
        write("1 - 8x8\n2 - 10x10\n"),
        readint(X),
        X=1, board(8,8).
    selection:-
        board(10,10).
goal
    selection.

pred(X):-
X=1, board(8,8).
pred(X):-
X=2, board(10,10).
pred(_):-
write("error").

domains
A=integer
predicates
doska(A)
stroka(A)
result
clauses
stroka(1):-write("*_*_*_*_").
stroka(1):-write("_*_*_*_*").
stroka(A):-A>2,A mod 2=0,A1=A-2,stroka (A1)write("*_*_*_*_").
stroka(A):-A>1,A mod 2=1,A1=A-2,stroka (A1),write("_*_*_*_*").
 
stroka(2):-write("*_*_*_*_*_").
stroka(2):-write("_*_*_*_*_*").
stroka(A):-A>2,A mod 2=0,A1=A-2,stroka (A1)write("*_*_*_*_*_").
stroka(A):-A>1,A mod 2=1,A1=A-2,stroka (A1),write("_*_*_*_*_*").
 
result:-write("Vvedite chislo A""),
readint(A),A>0,
stroka(A).
goal
result.

predicates
stroka8(integer)
stroka10(integer)
board(integer)
result
clauses
stroka8(0):-!.
stroka8(A):-A mod 2=0,!,A1=A-1,stroka8(A1),write("*_*_*_*_"),nl.
stroka8(A):-A mod 2=1,A1=A-1,stroka8(A1),write("_*_*_*_*"),nl.
 
stroka10(0):-!.
stroka10(A):-A mod 2=0,!,A1=A-1,stroka10(A1),write("*_*_*_*_*_"),nl.
stroka10(A):-A mod 2=1,A1=A-1,stroka10(A1),write("_*_*_*_*_*"),nl.
 
board(8):-stroka8(8).
board(10):-stroka10(10).
 
result:-write("Vvedite chislo A: "),
readint(A),A>0,
board(A).
goal
result.

predicates
for(integer,integer,integer)
s(integer,integer,integer)
board(integer)
result
clauses
for(A,A,_).
for(I,A,B):-A<B,A1=A+1,for(I,A1,B).
 
s(_,J,J):-!,nl.
s(I,J,_):-A=I+J,A mod 2=0,!,write('*').
s(_,_,_):-write('_').
 
board(A):-A1=A-1,for(I,0,A1),for(J,0,A),s(I,J,A),fail.
 
result:-write("Vvedite chislo A: "),
readint(A),A>0,
board(A).
goal
result.