home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / l4p080.seq < prev    next >
Encoding:
Text File  |  1988-12-22  |  400 b   |  15 lines
  1.  
  2. \ Tables  -  arrays by another name.           23:06JWB10/05/85
  3.  
  4.  CREATE MARBLE  0 , 0 , 0 , 0 , 0 , 0 ,
  5.  
  6.  0 CONSTANT RED         2 CONSTANT BLUE     4 CONSTANT YELLOW
  7.  6 CONSTANT BLACK       8 CONSTANT WHITE   10 CONSTANT GREEN
  8.  
  9. : MARBLES
  10.         MARBLE + ;
  11.  
  12. 2 RED   MARBLES !    3 BLUE  MARBLES !     5 YELLOW MARBLES !
  13. 8 BLACK MARBLES !   13 WHITE MARBLES !    21 GREEN  MARBLES !
  14.  
  15.