home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / WRITEF.PRO < prev   
Encoding:
Text File  |  1988-06-21  |  455 b   |  13 lines
  1. %======================  writef/*             ===============================
  2. goal
  3.    writef("\nDemo of writef predicate\n"),
  4.    A = one,
  5.    B = 330.12,
  6.    C = 4.3333375,
  7.    D = "one two three",
  8.    writef("A = '%-7' \nB = '%8.1e'\n",A,B),
  9.    writef("A = '%' \nB = '%8.4e'\n",A,B),
  10.    writef("C = '%-7.7g' \nD = '%7.7'\n",C,D),
  11.    writef("C = '%-7.0f' \nD = '%0'\n",C,D),
  12.    writef("char: %c, decimal: %d, hex: %x, unsigned: %u",97,'a',33,-1).
  13.