home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p1_2bs.seq < prev    next >
Text File  |  1990-03-30  |  709b  |  39 lines
  1. \ Comp 462
  2. \ Balraj Sidhu  Set: 14D4
  3. \ Date: March 2, 1990
  4. \ Problem 1.2
  5.  
  6. : black ( -- )
  7.         space space ;
  8.  
  9. : white ( -- )
  10.         177 emit 177 emit ;
  11.  
  12. : row1 ( -- )
  13.         cr 186 emit black white black white
  14.            black white black white 186 emit ;
  15.  
  16. : row2 ( -- )
  17.         cr 186 emit white black white black
  18.         white black white black 186 emit ;
  19.  
  20. : top ( -- )
  21.         cr 201 emit
  22.         16 0 do 205 emit loop
  23.         187 emit ;
  24.  
  25. : bottom ( -- )
  26.         cr 200 emit
  27.         16 0 do 205 emit loop
  28.         188 emit ;
  29.  
  30.  
  31. : board ( -- )
  32.         cr top row1 row2 row1 row2
  33.            row1 row2 row1 row2 bottom ;
  34.  
  35. : checker_board ( -- )
  36.         board cr cr ;
  37.  
  38.  
  39.