home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / CHOICE.IN < prev    next >
Text File  |  1996-06-04  |  431b  |  28 lines
  1. persistent(g)?
  2. g<<-get_choice?
  3. .
  4. A=get_choice-g, B={a;b}, set_choice(A+g)?
  5. ;
  6. B={a;b}, A=get_choice-g, set_choice(A+g)?
  7. ;
  8. ;
  9. A1=get_choice-g, B={a;b}, A2=get_choice-g, C=exists_choice(A1+g,A2+g)?
  10. ;
  11. ;
  12. A1=get_choice-g, A2=get_choice-g, C=exists_choice(A1+g,A2+g)?
  13. ;
  14. A1=get_choice-g?
  15. B={a;b}?
  16. set_choice(A1+g)?
  17. ;
  18. A1=get_choice-g?
  19. B=exists_choice(A1+g,get_choice)?
  20. ;
  21. ;
  22. A1=get_choice-g?
  23. A2=get_choice-g?
  24. B=exists_choice(A1+g,A2+g)?
  25. ;
  26. ;
  27. ;
  28.