home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH14EX06.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  693 b   |  22 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. goal
  6.    dir("", "*.*", FileName),
  7.    file_str(FileName, TextStr),
  8.    str_len(TextStr, Len),
  9.    str_int(LenStr, Len),
  10.    concat("Size ", LenStr, StrSize),
  11.    InitPos = 3,
  12.    makewindow(1, 7, 7, "Edit Example", 3, 3, 20, 70),
  13.    edit(TextStr, OutStringArg, StrSize, FileName,
  14.        "After editing, press F10 or Esc to exit this editor",
  15.         InitPos, "prolog.err", 1, 1, 1, 1, RetPos, RetStatus),
  16.         
  17.    writef("edited text:\n\n%\n", OutStringarg),
  18.    writef("\ncursor position at exit = %", RetPos),
  19.    writef("\nexit with (1 or 0): % \n", RetStatus),
  20.    write("\n1 = Esc"),
  21.    write("\n0 = F10").
  22.