othello

Othello board game for FORTH - works with gforth 0.7.2
code from long ago I keep bringing forward

This was ported to FORTH from a BASIC game published in Byte Magazine long, long ago in Oct 1977

https://archive.org/details/byte-magazine-1977-10/page/n61

There is another version that works on a SUN Open Boot Prom also!

Usage: 
$ gforth othello.fc -e othello
Do you want X or O?x		<-- is looking for lower case 'x' :   120 = if
Do you want to move first? y    <-- and lowercase 'y' :   121 = if
   A B C D E F G H
1  . . . . . . . .
2  . . . . . . . .
3  . . . . . . . .
4  . . . O X . . .
5  . . . X O . . .
6  . . . . . . . .
7  . . . . . . . .
8  . . . . . . . .

Your move: 4,c
That gives you 1 of my pieces 
I move to 3 , C
That gives me 1 of your pieces. 
   A B C D E F G H
1  . . . . . . . .
2  . . . . . . . .
3  . . O . . . . .
4  . . X O X . . .
5  . . . X O . . .
6  . . . . . . . .
7  . . . . . . . .
8  . . . . . . . .