home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
REXXCH03.ZIP
/
CHECKERS.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-03-12
|
1KB
|
34 lines
/* This program simulates a board on which the game of */
/* checkers can be played */
/* In the internal representation, Red's "men" are */
/* represented by the character "r", and Red's "kings" */
/* by the character "R". Similarly, Black's "men" and */
/* "king's" are represented by "b" and "B". */
/*------------------------------------------------------*/
/* Clear the board */
/*------------------------------------------------------*/
board. = " "
/*------------------------------------------------------*/
/* Set out the men */
/*------------------------------------------------------*/
do col = 1 by 2 to 7
board.1.col = "r"
end
do col = 2 by 2 to 8
board.2.col = "r"
end
do col = 1 by 2 to 7
board.3.col = "r"
end
do col = 2 by 2 to 8
board.6.col = "b"
end
do col = 1 by 2 to 7
board.7.col = "b"
end
do col = 2 by 2 to 8
board.8.col = "b"
end