home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_3bs.seq < prev    next >
Encoding:
Text File  |  1990-04-14  |  624 b   |  51 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 13, 1990
  4. \ Problem 4.3
  5.  
  6. \ Part a
  7. \ ------
  8.  
  9. variable rain
  10.  
  11. : drip (  -- )
  12.         rain @ 1+ rain ! ;
  13.  
  14.  
  15. rain 10 dump
  16.  
  17. drip drip rain 10 dump
  18.  
  19. COMMENT:
  20.  
  21. Part b
  22. ------
  23.  
  24. Yes you can use ERASE to set a variable to zero.
  25. eg.           rain 1 erase
  26.  
  27. Part c
  28. ------
  29.  
  30. Yes you can use FILL to set the value of a varibale.
  31. eg.           rain 1 45 fill
  32.  
  33.  
  34. COMMENT;
  35.  
  36. \ Part d
  37. \ ------
  38.  
  39. variable temperature
  40.  
  41. : warmer ( -- )
  42.         temperature @ 5 + temperature ! ;
  43.  
  44. : cooler ( -- )
  45.         temperature @ 5 - temperature ! ;
  46.  
  47.  
  48.  
  49.  
  50.  
  51.