home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_13bs.seq < prev    next >
Encoding:
Text File  |  1990-04-07  |  324 b   |  17 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 7, 1990
  4. \ Problem 3.13
  5.  
  6.  
  7. : test ( n -- )
  8.         cr dup ." The Number " . ." Is A "
  9.         dup 0>
  10.         if ." Positive "
  11.         else 0=
  12.              if ." Zero" abort
  13.              else ." Negative "
  14.              then
  15.         then ." Number" ;
  16.  
  17.