home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / COPYFILE.IN < prev    next >
Text File  |  1996-06-04  |  280b  |  11 lines
  1. @=system("rm -f FILES/copyfile.1")?
  2. @=system("rm -f FILES/copyfile.2")?
  3. .
  4. open_out("FILES/copyfile.1",S),writeq(X:s(X,1,2.2,"34")),write("."),nl,close(S),fail?
  5.  
  6.  
  7. copy_file("FILES/copyfile.1","FILES/copyfile.2")?
  8.  
  9.  
  10. open_in("FILES/copyfile.2",S),read(P),close(S),writeq(P),nl,fail?
  11.