home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / PAGEWIDT.IN < prev    next >
Text File  |  1996-06-04  |  169b  |  5 lines
  1. page_width(60)?
  2. big(one(abc,X:def,fgh(a,b,c,d),ijk,lmn(e,f,g(h,i,j),
  3. h,i(12,23,34,45)),[a,b,c,d],[a,b](3=>10000),[X|X])).
  4. big(A),nl,write(A),nl,nl,pretty_write(A),fail?
  5.