home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH17EX01.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  550 b   |  17 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. goal
  6.    makewindow(1,7,7,"Source",0,0,20,35),
  7.    write("Which file do you want to copy ?"),
  8.    cursor(3,8),readln(X),
  9.    makewindow(2,7,7,"Destination",0,40,20,35),
  10.    write("What is the name of the new copy ?"),
  11.    cursor(3,8),readln(Y),
  12.    concat(X," ",X1),concat(X1,Y,Z),
  13.    concat("copy ",Z,W), /* creates the string W */
  14.    makewindow(3,7,7,"Process",14,15,8,50),
  15.    write(" Copying ",X," to ",Y),cursor(2,3),
  16.    system(W). /* invokes the OS with the string W */
  17.