Ребята, надо поменять с turbo prolog на swi prolog. я могу только знак "=" на "is" поменять. А дальше не понятно

Predicates
 
play_the_game
 
do_windows
 
play(integer,integer,integer)
 
play_it_again(integer,integer,integer)
 
real_int(real,integer)
 
Clauses
 
play_the_game:-do_windows,play(23,0,0).
 
/*правило для образования окон*/
 
do_windows:-makewindow(1,7,7,"",0,0,25,80),
 
makewindow(2,7,7,"Игра 23 спички", 1,5,22,40),
 
nl, write("Добро пожаловать!"),
 
M=23, H=0, C=0,
 
nl, write("Всего ",M," спички" ),
 
nl, write("По очереди мы будем перемещать " ),
 
nl, write("спички в свои кучки"),
 
nl, write("За раз можно взять 1, 2, 3 спички"),nl,
 
nl, write("Проиграет, тот кто заберет последнюю спичку"),
 
nl, write("Итак, начнем, всего ", M, "сп."),nl,
 
nl, write("я взял ",C," сп. Вы взяли ",H, " сп."),nl.
 
play(M,H,C):-play_it_again(M,H,C).
 
/*правило определения победителя*/
 
play_it_again(M,_,_):-
 
M<=0,
 
nl, write("Вы выиграли!"),
 
nl, write("Нажмите любую клавишу для выхода"),
 
readchar(_), clearwindow,!,exit.
 
play_it_again(1,_,_):-
 
nl, write("Я выиграл!"),
 
nl, write("Нажмите любую клавишу для выхода"),
 
readchar(_), clearwindow,!,exit.
 
play_it_again(M,_,_):-
 
nl, write("Ваш ход"),
 
nl, write("Сколько спичек вы хотите взять?"),
 
readint(Hn),
 
M2=M-Hn, H3=Hn,
 
write("Осталось ",M2,"сп."),
 
nl,write("Мой ход"),
 
random(F), Rea=1+3*F,
 
real_int(Rea,Rint),
 
M3=M2-Rint,
 
nl, write("Я беру ",Rint," сп."),
 
nl, write("Осталось ",M3, " сп."),nl,
 
M7=M3,H7=H3,C7=Rint,
 
play_it_again(M7,H7,C7).
 
/*вспомогательное правило*/
 
real_int(Re,In):-In=trunc(Re).
 
Goal
 
play_the_game