27 lines
440 B
Plaintext
27 lines
440 B
Plaintext
|
BEGIN
|
||
|
|
|
||
|
|
INTEGER ARRAY board[0:8];
|
||
|
|
|
||
|
|
PROCEDURE winner;
|
||
|
|
BEGIN
|
||
|
|
INTEGER t, p;
|
||
|
|
text( 1, "hello from winner" );
|
||
|
|
|
||
|
|
p := 0;
|
||
|
|
t := board[ 0 ];
|
||
|
|
IF 0 # t THEN BEGIN
|
||
|
|
IF ( ( ( t = board[1] ) AND ( t = board[2] ) ) OR
|
||
|
|
( ( t = board[3] ) AND ( t = board[6] ) ) ) THEN
|
||
|
|
p := t;
|
||
|
|
END;
|
||
|
|
|
||
|
|
END winner;
|
||
|
|
|
||
|
|
text( 1, "hello from algol, dave" );
|
||
|
|
winner;
|
||
|
|
ioc(22);
|
||
|
|
|
||
|
|
END
|
||
|
|
FINISH
|
||
|
|
|