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-12DC.SEQ < prev    next >
Encoding:
Text File  |  1990-04-05  |  228 b   |  10 lines
  1. \ Problem 3.12 by Dickson Cheng  04/05/90 08:48:56.88
  2.  
  3. : TEST          ( n -- )
  4.         CR DUP ." THE NUMBER " . ." IS AN "
  5.         2 MOD
  6.         IF      ." ODD "
  7.         ELSE    ." EVEN "
  8.         THEN    ." NUMBER" ;
  9.  
  10.