home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / tests / fork < prev    next >
Encoding:
Text File  |  1987-12-30  |  176 b   |  14 lines
  1. Class Main
  2. [
  3.      loop1
  4.           10 timesRepeat: [17 print]
  5. |
  6.      loop2
  7.           10 timesRepeat: [23 print]
  8. |
  9.      main
  10.           [self loop1] fork.
  11.           self loop2
  12. ]
  13.  
  14.