home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / GLOB_TES.IN < prev    next >
Text File  |  1996-06-04  |  1KB  |  70 lines
  1. trace_input?
  2.  
  3. persistent(a)?
  4. persistent(b)?
  5. persistent(c)?
  6. persistent(d)?
  7. persistent(e)?
  8. persistent(f)?
  9.  
  10.  
  11.  
  12. check :-
  13.     write("
  14. a=",a,"
  15. b=",b,"
  16. c=",c,"
  17. d=",d,"
  18. e=",e,"
  19. f=",f,"
  20. ").
  21.  
  22.  
  23.  
  24. a <<- billy_the_hilly(hair => knots,
  25.             arms => long,
  26.             teeth => yellow,
  27.             eyes => red,
  28.             voice => cracked,
  29.             nails => {black;broken},
  30.             nose => pimples,
  31.             breath => bad,
  32.             vehicle => truck(paint => gone,
  33.                      gun_rack => full,
  34.                      fuel_consumption => enormous,
  35.                      size => much_too_big,
  36.                      speed => really_slow,
  37.                      location => in_front_of_you),
  38.             feet => smelly,
  39.             armpits => worse,
  40.             belly => hangs_out,
  41.             fingers => gnarled,
  42.             mouth => full_of_beer,
  43.             hand => down_his_pants) ?
  44.  
  45.  
  46. a = @(feet => S), write(S),nl ?
  47.  
  48. a = @(hair => H, arms => A, teeth => T), write(H,A,T),nl ?
  49.  
  50. a = @(hair => H, arms => A, joke => bad, teeth => T) ?
  51.  
  52. a = @(hair => H, arms => A, aardvark => bad, teeth => T) ?
  53.  
  54. a = @(hair => H, arms => A, zebra => bad, teeth => T) ?
  55.  
  56. a <<- p(b,c), check?
  57.  
  58.  
  59. b <<- 5, check ?
  60.  
  61. c <<- letters(a,b,c), check ?
  62.  
  63. a <<- q(a,b,c), check?
  64.  
  65. d <<- exam(b,a,c), check ?
  66.  
  67. e = a, check ?
  68.  
  69. d = exam(A,B,C), write(A,B,C), check ?
  70.