home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p2_9bs.seq < prev    next >
Text File  |  1990-03-28  |  396b  |  24 lines
  1. \ Comp 462
  2. \ Balraj Sidhu   Set: 14D4
  3. \ Date: March 26, 1990
  4. \ Problem 1.3
  5.  
  6.  
  7. : .lw ( l w -- )
  8.         cr
  9.         swap ." Length: " . cr
  10.              ." Width:  " . cr ;
  11.  
  12. : area ( l w -- )
  13.         * cr ." The area is: " . cr ;
  14.  
  15. : perimeter ( l w -- )
  16.         cr 2* swap 2* + ." The perimeter is: " . cr ;
  17.  
  18. : rectangle ( l w -- )
  19.        cr 2dup .lw 2dup area perimeter ;
  20.  
  21.  
  22.  
  23.  
  24.