home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / board1.seq < prev    next >
Encoding:
Text File  |  1988-10-02  |  512 b   |  29 lines
  1.  
  2. \ CHECKER BOARD PROGRAM
  3. \ Version Number: 1
  4. \ Date: September 18, 1988
  5. \ Author:  <your name>
  6.  
  7. : BLACK ( -- )
  8.         SPACE SPACE ;
  9.  
  10. : WHITE ( -- )
  11.         177 EMIT 177 EMIT ;
  12.  
  13. : ROW1  ( -- )
  14.       CR BLACK WHITE BLACK WHITE
  15.          BLACK WHITE BLACK WHITE ;
  16.  
  17. : ROW2  ( -- )
  18.        CR WHITE BLACK WHITE BLACK
  19.           WHITE BLACK WHITE BLACK ;
  20.  
  21. : BOARD ( -- )
  22.        CR ROW1  ROW2  ROW1  ROW2
  23.           ROW1  ROW2  ROW1  ROW2  ;
  24.  
  25. : CHECKER_BOARD  ( -- )
  26.           BOARD  CR CR ;
  27.  
  28.  
  29.