home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / MODULE_T.I05 < prev    next >
Text File  |  1996-06-04  |  218b  |  24 lines
  1. module("a")?
  2. :: p(aha=>1).
  3. module("b")?
  4. :: p(boo=>2).
  5. module("user")?
  6. open("a")?
  7. open("b")?
  8. A=p?
  9.  
  10. module("a")?
  11. public(p)?
  12. module("b")?
  13. public(p)?
  14. module("user")?
  15. A=p?
  16.  
  17. listing(p)?
  18. module("a")?
  19. A=p?
  20.  
  21. module("b")?
  22. A=p?
  23.  
  24.