home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH16EX01.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  608 b   |  20 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 16, Example Program 1
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. goal
  9.    makewindow(1,7,7,"Source",0,0,20,35),
  10.    write("Which file do you want to copy ?"),
  11.    cursor(3,8),readln(X),
  12.    makewindow(2,7,7,"Destination",0,40,20,35),
  13.    write("What is the name of the new copy ?"),
  14.    cursor(3,8),readln(Y),
  15.    concat(X," ",X1),concat(X1,Y,Z),
  16.    concat("copy ",Z,W), /* creates the string W */
  17.    makewindow(3,7,7,"Process",14,15,8,50),
  18.    write(" Copying ",X," to ",Y),cursor(2,3),
  19.    system(W). /* invokes DOS with the string W */
  20.