home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p1_2dc.seq < prev    next >
Text File  |  1990-03-28  |  803b  |  39 lines
  1. \ CHECKER BOARD PROGRAM FOR P1.2
  2. \ Author: Dickson Cheng  03/28/90 12:52:41.83
  3.  
  4. : BLACK         ( -- )
  5.         2 SPACES ;
  6.  
  7. : WHITE         ( -- )
  8.         177 EMIT 177 EMIT ;
  9.  
  10. : HBAR          ( -- )
  11.         205 EMIT 205 EMIT ;
  12.  
  13. : TOPLINE       ( -- )
  14.         201 EMIT 8 0 DO HBAR LOOP 187 EMIT ;
  15.  
  16. : BOTTOMLINE    ( -- )
  17.         200 EMIT 8 0 DO HBAR LOOP 188 EMIT ;
  18.  
  19. : ROW1          ( -- )
  20.         CR 186 EMIT 4 0 DO BLACK WHITE LOOP 186 EMIT ;
  21.  
  22. : ROW2          ( -- )
  23.         CR 186 EMIT 4 0 DO WHITE BLACK LOOP 186 EMIT ;
  24.  
  25. : BOARD         ( -- )
  26.         CR TOPLINE
  27.            4 0 DO ROW1 ROW2 LOOP
  28.         CR BOTTOMLINE ;
  29.  
  30. : CHECKER_BOARD ( -- )
  31.         BOARD CR CR ;
  32.  
  33. : MESSAGE       ( -- )
  34.         DARK CR ." To run CHECKER BOARD type CHECKER_BOARD" ;
  35.  
  36. MESSAGE
  37.  
  38.  
  39.