home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / 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.