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 >
Wrap
Text File
|
1996-06-04
|
280b
|
11 lines
@=system("rm -f FILES/copyfile.1")?
@=system("rm -f FILES/copyfile.2")?
.
open_out("FILES/copyfile.1",S),writeq(X:s(X,1,2.2,"34")),write("."),nl,close(S),fail?
copy_file("FILES/copyfile.1","FILES/copyfile.2")?
open_in("FILES/copyfile.2",S),read(P),close(S),writeq(P),nl,fail?