home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_11dc.seq < prev    next >
Text File  |  1990-04-12  |  170b  |  8 lines
  1. \ Problem 4.11   04/12/90 17:15:32.15
  2.  
  3. : CLEAR-TABLE   \ Sets all six values of the array TABLE to zero
  4.         TABLE
  5.         12 0 DO DUP I + 0 SWAP ! 2 +LOOP ;
  6.  
  7.  
  8.