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-12BS.SEQ < prev    next >
Encoding:
Text File  |  1990-04-07  |  414 b   |  25 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 7, 1990
  4. \ Problem 3.12
  5.  
  6.  
  7. : test ( n -- )
  8.         cr dup ." The Number " . ." Is An "
  9.         dup 2/ 2* =
  10.         if   ." Even "
  11.         else ."  Odd "
  12.         then ." Number" ;
  13.  
  14. : test1 ( n -- )
  15.         cr dup ." The Number " . ." Is An "
  16.         1 and
  17.         if   ."  Odd "
  18.         else ." Even "
  19.         then ." Number" ;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.