home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_13dc.seq < prev    next >
Encoding:
Text File  |  1990-04-06  |  308 b   |  12 lines
  1. \ Problem 3.13 by Dickson Cheng  04/05/90 08:48:56.88
  2.  
  3.  
  4. : TEST          ( n -- )
  5.         CR DUP ." THE NUMBER " . ." IS AN "
  6.         DUP 0< IF      ." NEGATIVE " ELSE
  7.         DUP 0> IF      ." POSITIVE " ELSE
  8.                        ." ZERO "
  9.         THEN THEN
  10.         DROP           ." NUMBER" ;
  11.  
  12.