نوشتن کد visual prolog در turbo prolog

[blackband]

سلام دوستان من یه‌ برنامه ساده دارم که به اسم حدس زدن کلمه است
این با visual prolog نوشته شده فکر کنم
کسی میتونه اینو با turbo prolog bnwysh اینم کدش

[blackband]

in_mind([s,a,l,a,m]).

start:- write('Guess first letter'),read(X),
in_mind([X|T]),write('OK. '),guess(T).

guess([]):- write('Congratulations! The word is '),in_mind(W),write(W),!.
guess(L):- repeat,write('Next letter'),read(X),
((L=[X|T1],write('OK. '),guess(T1));
(write('Fail. Try again!'),guess(L)))