home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / examples / CheckBook.st < prev    next >
Encoding:
Text File  |  1998-09-30  |  189 b   |  16 lines
  1. Class CheckBook
  2. | balance |
  3. [
  4.    new
  5.       balance <- 0
  6. |
  7.    + amount
  8.       balance <- balance + amount.
  9.       ^ balance
  10. |
  11.    - amount
  12.       balance <- balance - amount.
  13.       ^ balance
  14. ]
  15.  
  16.