home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p2_10bs.seq < prev    next >
Text File  |  1990-03-29  |  545b  |  26 lines
  1. \ Comp 462
  2. \ Balraj Sidhu   Set: 14D4
  3. \ Date: March 29, 1990
  4. \ Problem 2.10
  5.  
  6. : .echo ( a b c -- b c a )
  7.         rot dup . ;
  8.  
  9. : .lwh ( l w h -- )
  10.         cr
  11.              ." Length: " .echo cr
  12.              ." Width:  " .echo cr
  13.              ." Height: " .echo cr ;
  14.  
  15. : area ( l w h -- )
  16.         * *  ." The area is: " . cr ;
  17.  
  18. : volume ( l w h -- )
  19.         cr 3dup 5 roll * 2 * -rot * 2 * +
  20.         -rot * 2 * + ." The volume is: " . ." square feet"
  21.         cr ;
  22.  
  23. : tank ( l w h -- )
  24.        cr 3dup .lwh 3dup volume area ;
  25.  
  26.