home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPCL1_7.ZIP / L4.ZIP / 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.