home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / tests / check < prev    next >
Encoding:
Text File  |  1987-12-30  |  215 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.