home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPCL1_7.ZIP / L3.ZIP / P3-14BS.SEQ < prev    next >
Encoding:
Text File  |  1990-04-07  |  254 b   |  17 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 7, 1990
  4. \ Problem 3.14
  5.  
  6. \ leaves a true flag is n is even, otherwise false if n is odd.
  7.  
  8. : even ( n -- flag )
  9.         1 and
  10.         if false
  11.         else true
  12.         then ;
  13.  
  14.  
  15.  
  16.  
  17.