home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_7dc.seq < prev    next >
Text File  |  1990-04-11  |  507b  |  22 lines
  1. \ Problem 4.7            04/11/90 15:13:25.37
  2.  
  3.  
  4. 60.      2CONSTANT SECONDS/MINUTE
  5. 60.      2CONSTANT MINUTES/HOUR
  6. 24.      2CONSTANT HOURS/DAY
  7. 7.       2CONSTANT DAY/WEEK
  8.  
  9. : S/DAY         ( -- )
  10.         SECONDS/MINUTE MINUTES/HOUR HOURS/DAY D* D*  D. ;
  11.  
  12. : M/DAY         ( -- )
  13.         MINUTES/HOUR HOURS/DAY D* D. ;
  14.  
  15. : S/WEEK        ( -- )
  16.         SECONDS/MINUTE MINUTES/HOUR HOURS/DAY DAY/WEEK D* D* D* D. ;
  17.  
  18. : M/WEEK        ( -- )
  19.         MINUTES/HOUR HOURS/DAY DAY/WEEK D* D* D. ;
  20.  
  21.  
  22.