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-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.