home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / DIR3.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  663 b   |  26 lines
  1. %====================== dir/3              ===============================
  2. config "old.sys"
  3.  
  4. predicates
  5.    extend(string,string)
  6.    getfilename(string,string)
  7.  
  8. clauses
  9.    extend(S,S) :- concat(_,".pro",S),!.
  10.    extend(S,S1):- concat(S,".pro",S1).
  11.    
  12.    getfilename("",Fname):- dir("","*.pro",Fname),!.
  13.    getfilename(X,X1):- extend(X,X1).
  14.    
  15. goal
  16.    comline(X),
  17.    getfilename(X,X1),
  18.    file_str(X1,S),
  19.    textmode(Rows,Cols),
  20.    makewindow(1,23,0,"EDITOR",0,0,Rows,Cols),
  21.    editmsg(S,S1,"","","",0,"",Ret),
  22.    removewindow,
  23.    Ret<>1,!,
  24.    clearwindow,
  25.    write("\nEnter file name to save: "),readln(NewName),
  26.    file_str(NewName,S1).