home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / l4p100.seq < prev    next >
Text File  |  1988-12-22  |  735b  |  27 lines
  1.  
  2. \ Tables  -  arrays by another name.           20:39jwb10/06/85
  3.  
  4.  CREATE TABLE   0 , 0 , 0 , 0 , 0 , 0 ,
  5.  
  6.  VARIABLE MODE
  7.  
  8.  0 CONSTANT RED         2 CONSTANT BLUE     4 CONSTANT YELLOW
  9.  6 CONSTANT BLACK       8 CONSTANT WHITE   10 CONSTANT GREEN
  10.  
  11. : LESS -1  MODE !  ;    : LESS?  MODE @ -1 = ;
  12. : SHOW  0  MODE !  ;    : SHOW?  MODE @  0=  ;
  13. : MORE  1  MODE !  ;    : MORE?  MODE @  1 = ;
  14. : ONLY  2  MODE !  ;      ONLY
  15.  
  16. : MARBLES  ( {n} color   -- )
  17.         TABLE  +   DEPTH 1 = IF SHOW THEN
  18.         LESS? IF   SWAP NEGATE SWAP +!
  19.               ELSE SHOW? IF   @ .
  20.                          ELSE MORE? IF   +!
  21.                                     ELSE  !
  22.       THEN  THEN  THEN   ONLY ; 
  23.  
  24. : MARBLE  MARBLES ;
  25.  
  26.  
  27.