home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / RETRACT6.LF < prev    next >
Text File  |  1996-06-04  |  245b  |  15 lines
  1.  
  2. f(1)  -> 'First result---'.
  3. f(2)  -> 'Second result--'.
  4. f(3)  -> 'Third result---'.
  5.  
  6. test2 :-
  7.          retract((f(H) -> C)),
  8.          nl,write(B),nl,
  9.          listing(f),nl,
  10.          B={3;2},
  11.          A=f(B),
  12.          write(A),nl.
  13.  
  14. dynamic(f)?
  15.