home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_14dc.seq < prev    next >
Encoding:
Text File  |  1990-04-15  |  195 b   |  14 lines
  1. \ Problem 4.14       04/15/90 18:06:51.55
  2.  
  3. CREATE DATA 20 ALLOT
  4.  
  5. : DATA@         ( i -- n )
  6.         10 MOD 2* DATA + @ ;
  7.  
  8. : DATA!         ( n i -- )
  9.         10 MOD 2* DATA + ! ;
  10.  
  11.  
  12.  
  13.  
  14.