-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+
X    IF not player_won and ( moves<64 ) then
X      computers_turn;
X  UNTIL ( moves=64 ) or player_won or computer_won;
XEND; `7B Play_game `7D
X
X
X`7B MAIN BODY `7D
X
X
XBEGIN
X  setup;
X  play_game;
X  posn (20,23);
X  IF computer_won then
X    BEGIN
X      qio_write ('I win.  Better luck next time!!!');
X      score := 0;
X    END
X  ELSE
X    IF player_won then
X      BEGIN
X        qio_write ('Congratulations.  You have won.');
X        score := ((( 64-moves )* (count_length (last_move_x,last_move_y)))
X                     div 4);
X      END
X    ELSE
X      BEGIN
X        qio_write ('A draw.  Try harder next time.');
X        score := 0;
X      END;
X  scrollup;
X  scrollup;
X  posn (20,23);
X  IF ( score>0 ) then
X    BEGIN
X      qio_write ( VT100_Bright + VT100_flash + 'Press  < Return >' );
X      posn (1,1);
X      ret := qio_1_char;
X      qio_write ( VT100_Normal );
X      reset_screen;
X      top_ten (score);
X    END
X  ELSE
X    BEGIN
X      reset_screen;
X      posn (1,23);
X    END;
XEND. `7B Connect4 `7D
$ CALL UNPACK CONNECT4.PAS;1 621993031
$ create 'f'
X`1B`5BH`1B`5BJ`1B(B`1B`5B0m
X`1B`5B4;1H`1B(0lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
Vqqqqqqqqqqqqqqqqqqk
X`1B`5B5;1Hx`1B`5B5;80Hx
X`1B`5B6;1Hx`1B`5B6;80Hx
X`1B`5B7;1Hx`1B`5B7;80Hx
X`1B`5B8;1Hx`1B`5B8;80Hx
X`1B`5B9;1Hx`1B`5B9;80Hx
X`1B`5B10;1Hx`1B`5B10;80Hx
X`1B`5B11;1Hx`1B`5B11;80Hx
X`1B`5B12;1Hx`1B`5B12;80Hx
X`1B`5B13;1Hx`1B`5B13;80Hx
X`1B`5B14;1Hx`1B`5B14;80Hx
X`1B`5B15;1Hx`1B`5B15;80Hx
X`1B`5B16;1Hx`1B`5B16;80Hx
X`1B`5B17;1Hx`1B`5B17;80Hx
X`1B`5B18;1Hx`1B`5B18;80Hx
X`1B`5B19;1Hx`1B`5B19;80Hx
X`1B`5B20;1Hx`1B`5B20;80Hx
X`1B`5B21;1Hx`1B`5B21;80Hx
X`1B`5B22;1Hmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
Vqqqqqqqqqqqqqqj
X`1B(B`1B*
X`1B`5B1;13H`1B#3CONNECT 4`1B`5B2;13H`1B#4CONNECT 4
X`1B`5B3;1H`1B#6 Directions:`1B`5B4;1H
X`1B`5B5;8HThe rules are simple.
X`1B`5B7;8HThe game is played in a board resembling a checker board but
X`1B`5B8;8Hstanding vertically.  The pieces are placed on the board one
X`1B`5B9;8Hat a time until a winner is declared or there is no more room
X`1B`5B10;8Hon the board and there is a draw ( should you be so lucky ).
X`1B`5B12;8HEach piece is either a "O" one of yours or a "X" one of the
X`1B`5B13;8Hcomputers.  To place a piece you simply enter the column No.
X`1B`5B14;8HThe piece will drop to the bottom or will be stacked up on
X`1B`5B15;8Hany in that column from previous moves.
X`1B`5B17;8HThe aim is to get 4 in a row as soon in the game as possible,
X`1B`5B18;8Heither vertically, horizontally or diagonally.
X`1B`5B20;51HBY :  Paul Denize.  (1984)
X`1B`5B21;28H`1B`5B1mPress  <`1B`5B5m Return `1B`5B0m`1B`5B1m>`1B`5B0m`20
X`1B`5B1;1H
X`1B*
$ CALL UNPACK CONNECT4.PIC;1 2046996602
$ v=f$verify(v)
$ EXIT