home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / Z_CUT2.IN < prev    next >
Text File  |  1996-06-04  |  1KB  |  122 lines
  1. nl,write("Part 1"),nl?
  2. A={1;2},B= !,call_once(B)?
  3. ;
  4. A={1;2},B= !,!,call_once(B)?
  5. ;
  6. A={1;2},B= !, !, call_once(B),!,call_once(B)?
  7. ;
  8. A= !,B={1;2}?
  9. call_once(A)?
  10. ;
  11. A= !,B={1;2}?
  12. !?
  13. ;
  14. ;
  15. A= !,B={1;2},call_once(A)?
  16. ;
  17. A= !,B={1;2},!?
  18. ;
  19.  
  20. nl,write("Part 2"),nl?
  21. gc,A={1;2},gc,B= !,gc,call_once(B),gc?
  22. ;
  23. gc,A={1;2},gc,B= !,gc,!,gc,call_once(B),gc?
  24. ;
  25. gc,A={1;2},gc,B= !,gc, !,gc, call_once(B),gc,!,gc,call_once(B),gc?
  26. ;
  27. gc,A= !,gc,B={1;2},gc?
  28. gc,call_once(A),gc?
  29. ;
  30. gc,A= !,gc,B={1;2},gc?
  31. gc,!,gc?
  32. ;
  33. ;
  34. gc,A= !,gc,B={1;2},gc,call_once(A),gc?
  35. ;
  36. gc,A= !,gc,B={1;2},gc,!,gc?
  37. ;
  38.  
  39. %%%%%% With another choice point inserted.
  40.  
  41. nl,write("Part 3"),nl?
  42. X={1;2}?
  43. A={1;2},B= !,call_once(B)?
  44. ;
  45. ;
  46. ;
  47. X={1;2}?
  48. A={1;2},B= !,!,call_once(B)?
  49. ;
  50. ;
  51. ;
  52. X={1;2}?
  53. A={1;2},B= !, !, call_once(B),!,call_once(B)?
  54. ;
  55. ;
  56. ;
  57. X={1;2}?
  58. A= !,B={1;2}?
  59. call_once(A)?
  60. ;
  61. ;
  62. ;
  63. X={1;2}?
  64. A= !,B={1;2}?
  65. !?
  66. ;
  67. ;
  68. ;
  69. ;
  70. X={1;2}?
  71. A= !,B={1;2},call_once(A)?
  72. ;
  73. ;
  74. ;
  75. X={1;2}?
  76. A= !,B={1;2},!?
  77. ;
  78. ;
  79. ;
  80.  
  81.  
  82. nl,write("Part 4"),nl?
  83. X={1;2}?
  84. gc,A={1;2},gc,B= !,gc,call_once(B),gc?
  85. ;
  86. ;
  87. ;
  88. X={1;2}?
  89. gc,A={1;2},gc,B= !,gc,!,gc,call_once(B),gc?
  90. ;
  91. ;
  92. ;
  93. X={1;2}?
  94. gc,A={1;2},gc,B= !,gc, !,gc, call_once(B),gc,!,gc,call_once(B),gc?
  95. ;
  96. ;
  97. ;
  98. X={1;2}?
  99. gc,A= !,gc,B={1;2},gc?
  100. gc,call_once(A),gc?
  101. ;
  102. ;
  103. ;
  104. X={1;2}?
  105. gc,A= !,gc,B={1;2},gc?
  106. gc,!,gc?
  107. ;
  108. ;
  109. ;
  110. ;
  111. X={1;2}?
  112. gc,A= !,gc,B={1;2},gc,call_once(A),gc?
  113. ;
  114. ;
  115. ;
  116. X={1;2}?
  117. gc,A= !,gc,B={1;2},gc,!,gc?
  118. ;
  119. ;
  120. ;
  121.  
  122.