home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XFILENAM.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  1.4 KB  |  44 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of    readfilename utility
  7. ****************************************************************/
  8.  
  9. include "tdoms.pro"
  10.  
  11. DATABASE
  12.   insmode
  13.   lineinpstate(STRING,COL)
  14.   lineinpflag
  15.  
  16. include "tpreds.pro"
  17. include "lineinp.pro"
  18. include "filename.pro"
  19. include "status.pro"
  20.  
  21. GOAL
  22.     makewindow(2,66,7,"Instructions",0,0,24,40),
  23.     disk(DIR),
  24.     nl,write(" 1. Set the directory\n    to your tools dir:\n    ",DIR),nl,nl,
  25.     makewindow(3,36,7,"Results",0,40,24,40),
  26.     makestatus(112," Give some filenames and inspect the result of readfilename."),
  27.     setdir(5,5,23,23),disk(DIR),write("Directory=",DIR),nl,nl,
  28.     shiftwindow(2),
  29.     write(" Now try the following in turn:"),nl,
  30.     write(" =============================="),nl,nl,
  31.     write("  2. Just press RETURN"),nl,
  32.     write("  3. Give the filename \"test\""),nl,
  33.     write("  4. Try the filename \"test.txt\""),nl,
  34.     write("  5. Delete the old name and\n     then press RETURN"),nl,nl,nl,nl,
  35.     write(" - Ctrl-backspace deletes the\n   old filename"),
  36.     write("\n\n\n - Use Ctrl-Break to stop"),
  37.     shiftwindow(3),
  38.     changestatus(" Give some filenames and inspect the result of readfilename."),
  39.     repeat,
  40.     refreshstatus,
  41.     readfilename(19,41,23,20,pro,"oldname.dat",NEWNAME),
  42.     write("Filename=",NEWNAME),nl,
  43.     fail.
  44.