PLEASE HELP!!!!!!!!!

ok below is the code for my tic tac toe game in XPCE/prolog so far (copy
and paste it into your text editor and compile)
there are 9 buttons each respesenting an empty square in a game of tic tac
toe. I want for the user to be able to click on one of the buttons, for
that button pressed to be removed, and for either a cross or a nought to
be positioned depending on whether it is player X's go or player O's go.
In my code i have draw functions:
draw1(1) draws an X in the top left square.
draw1(0) draws an O in the top left square.

draw5(1) draws an X in the center square.
draw5(0) draws an O in the center square.

draw9(1) draws an X in the bottom right square.
draw9(0) draws an O in the bottom right square.

i also have a whosgo function:
whosgo(1) displays the text 'Player X go'
whosgo(0) displays the text 'Player O go'


could someone please help me sought out my program so it works as a simple
game of tic tac toe without using CLASSES !!!!! THANKYOU!!!!!




:- pce_global(@grid,new(window('Tic-Tac-Toe',size(500,500)))).


run:-
send(@grid,open),
 send(@grid,display,new(@line1,line(300,0
)),point(100,200)),
 send(@grid,display,new(@line2,line(300,0
)),point(100,300)),
 send(@grid,display,new(@line3,line(0,300
)),point(200,100)),
 send(@grid,display,new(@line4,line(0,300
)),point(300,100)),


 send(@grid,display,new(@buttonone,button
('1')),point(110,137.5)),
 send(@grid,display,new(@buttontwo,button
('2')),point(210,137.5)),
 send(@grid,display,new(@buttonthree,butt
on('3')),point(310,137.5)),
 send(@grid,display,new(@buttonfour,butto
n('4')),point(110,237.5)),
 send(@grid,display,new(@buttonfive,butto
n('5')),point(210,237.5)),
 send(@grid,display,new(@buttonsix,button
('6')),point(310,237.5)),
 send(@grid,display,new(@buttonseven,butt
on('7')),point(110,337.5)),
 send(@grid,display,new(@buttoneight,butt
on('8')),point(210,337.5)),
 send(@grid,display,new(@buttonnine,butto
n('9')),point(310,337.5)).

draw1(X):-
(
X is 1
->	free(@buttonone),
 send(@board,display,new(@one_cross1,line
(80,80)),point(110,110)),
send(@one_cross1,colour(red)),
 send(@board,display,new(@one_cross2,line
(-80,80)),point(190,110)),
send(@one_cross2,colour(red))

;	free(@buttonone),
 send(@board,display,new(@one_nought,circ
le(80)),point(110,110)),
send(@one_nought,colour(blue))
).

draw2(X):-
(
X is 1
->	free(@buttontwo),
 send(@board,display,new(@two_cross1,line
(80,80)),point(110,110)),
send(@two_cross1,colour(red)),
 send(@board,display,new(@two_cross2,line
(-80,80)),point(190,110)),
send(@two_cross2,colour(red))

;	free(@buttontwo),
 send(@board,display,new(@two_nought,circ
le(80)),point(110,110)),
send(@two_nought,colour(blue))
).

draw3(X):-
(
X is 1
->	free(@buttonthree),
 send(@board,display,new(@three_cross1,li
ne(80,80)),point(310,110)),
send(@three_cross1,colour(red)),
 send(@board,display,new(@three_cross2,li
ne(-80,80)),point(390,110)),
send(@three_cross2,colour(red))


;	free(@buttonthree),
 send(@board,display,new(@three_nought,ci
rcle(80)),point(310,110)),
send(@three_nought,colour(blue))
).

draw4(X):-
(
X is 1
->	free(@buttonfour),
 send(@board,display,new(@four_cross1,lin
e(80,80)),point(110,210)),
send(@four_cross1,colour(red)),
 send(@board,display,new(@four_cross2,lin
e(-80,80)),point(190,210)),
send(@four_cross2,colour(red))

;	free(@buttonfour),
 send(@board,display,new(@four_nought,cir
cle(80)),point(110,210)),
send(@four_nought,colour(blue))
).

draw5(X):-
(
X is 1
->	free(@buttonfive),
 send(@board,display,new(@five_cross1,lin
e(80,80)),point(210,210)),
 send(@five_cross1,colour(red)),send(@boa
rd,display,new(@five_cross2,line(-80
,80)),point(290,210)),
send(@five_cross2,colour(red))
;	free(@buttonfive),
 send(@board,display,new(@five_nought,cir
cle(80)),point(210,210)),
send(@five_nought,colour(blue))
).

draw6(X):-
(
X is 1
->	free(@buttonsix),
 send(@board,display,new(@six_cross1,line
(80,80)),point(310,210)),
 send(@six_cross1,colour(red)),send(@boar
d,display,new(@six_cross2,line(-80,8
0)),point(390,210)),
send(@six_cross2,colour(red))
;	free(@buttonsix),
 send(@board,display,new(@six_nought,circ
le(80)),point(310,210)),
send(@six_nought,colour(blue))
).

draw7(X):-
(
X is 1
->	free(@buttonseven),
 send(@board,display,new(@seven_cross1,li
ne(80,80)),point(110,310)),
 send(@seven_cross1,colour(red)),send(@bo
ard,display,new(@seven_cross2,line(-
80,80)),point(190,310)),
send(@seven_cross2,colour(red))
;	free(@buttonseven),
 send(@board,display,new(@seven_nought,ci
rcle(80)),point(110,310)),
send(@seven_nought,colour(blue))
).

draw8(X):-
(
X is 1
->	free(@buttoneight),
 send(@board,display,new(@eight_cross1,li
ne(80,80)),point(210,310)),
 send(@eight_cross1,colour(red)),send(@bo
ard,display,new(@eight_cross2,line(-
80,80)),point(290,310)),
send(@eight_cross2,colour(red))
;	free(@buttoneight),
 send(@board,display,new(@eight_nought,ci
rcle(80)),point(210,310)),
send(@eight_nought,colour(blue))
).

draw9(X):-
(
X is 1
->	free(@buttonnine),
 send(@board,display,new(@nine_cross1,lin
e(80,80)),point(310,310)),
 send(@nine_cross1,colour(red)),send(@boa
rd,display,new(@nine_cross2,line(-80
,80)),point(390,310)),
send(@nine_cross2,colour(red))
;	free(@buttonnine),
 send(@board,display,new(@nine_nought,cir
cle(80)),point(310,310)),
send(@nine_nought,colour(blue))
).

whosgo(X):-

(
X is 1
->  	send(@board,display,new(@player1,text('
Player X
go!')),point(175,35)),
 send(@player1,font,font(arial,bold,24)),

send(@player1,colour(red))

;  	send(@board,display,new(@player2,text('
Player O go!')),point(175,35)),
 send(@player2,font,font(arial,bold,24)),

send(@player2,colour(blue))

).