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