home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / MAKESTR.IN < prev    next >
Text File  |  1996-06-04  |  762b  |  23 lines
  1. makestr(-78)=J,
  2. makestr(-23.45e-21)=K,
  3. makestr(G)=L,
  4. makestr(big(tom(hair => knotted,
  5.         hands => clumsy,
  6.         brain => slow_witted,
  7.     favorite_exclamation => 'arghh!!',
  8.         friend => {john(face => spotty,
  9.                         teeth => yellow);
  10.                    jeremy(skin => black_and_blue,
  11.                           known_letters => [a,b,c,y,t,w,i,o],
  12.                           brain => hurts);
  13.                    martha(brain => plank(number => 2,
  14.                                          length => short),
  15.                           beauty => gorgon_like)},
  16.         nose => long(warts => red,
  17.                      spots => ugly),
  18.         mother => witch,
  19.         father => tax_collector)))=M,
  20. write(J),nl,nl,
  21. write(K),nl,nl,
  22. write(M),nl,nl ?
  23.