home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
p1_2bs.seq
< prev
next >
Wrap
Text File
|
1990-03-30
|
709b
|
39 lines
\ Comp 462
\ Balraj Sidhu Set: 14D4
\ Date: March 2, 1990
\ Problem 1.2
: black ( -- )
space space ;
: white ( -- )
177 emit 177 emit ;
: row1 ( -- )
cr 186 emit black white black white
black white black white 186 emit ;
: row2 ( -- )
cr 186 emit white black white black
white black white black 186 emit ;
: top ( -- )
cr 201 emit
16 0 do 205 emit loop
187 emit ;
: bottom ( -- )
cr 200 emit
16 0 do 205 emit loop
188 emit ;
: board ( -- )
cr top row1 row2 row1 row2
row1 row2 row1 row2 bottom ;
: checker_board ( -- )
board cr cr ;