home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
board2.seq
< prev
next >
Wrap
Text File
|
1988-10-02
|
318b
|
10 lines
( was screen # 8 C:SAMPLE1.BLK )
\ ANOTHER CHECKER BOARD 10:14jwb09/15/85
: BLACK SPACE SPACE ;
: WHITE 177 EMIT 177 EMIT ;
: ROW1 CR 4 0 DO BLACK WHITE LOOP ;
: ROW2 CR 4 0 DO WHITE BLACK LOOP ;
: BOARD CR 4 0 DO ROW1 ROW2 LOOP ;
: CHECKER_BOARD BOARD CR CR ;