home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_18dc.seq < prev    next >
Encoding:
Text File  |  1990-04-06  |  795 b   |  30 lines
  1. \ Problem 3.18 by Dickson Cheng  04/06/90 21:33:36.91
  2.  
  3.                  start
  4.                    |
  5.                  n < 0 ?
  6.                    |
  7.           false   / \   true
  8.                 /     \
  9.               /          \
  10.              |            |
  11.              |        NEGATIVE
  12.            n > 0 ?        |
  13.              |            |
  14.             / \           |
  15.     false /     \  true   |
  16.         /         \       |
  17.        |           |      |
  18.       ZERO       POSITIVE |
  19.        |           |      |
  20.        |           |      |
  21.         \         /       |
  22.           \     /         |
  23.             \ /           |
  24.              |            |
  25.               \          /
  26.                 \      /
  27.                   \  /
  28.                    |
  29.                   end
  30.