home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
RENAME.SCR
< prev
next >
Wrap
Text File
|
1992-02-12
|
766b
|
23 lines
> windowshow()
> watch(on)
> copy ('c:\config.sys','c:\copy.001',replace)
> copy ('c:\config.sys','c:\copy.002',replace)
> copy ('c:\config.sys','c:\copy.003',replace)
> copy ('c:\config.sys','c:\copy.004',replace)
> copy ('c:\config.sys','c:\copy.005',replace)
> delete('c:\rename.99*')
> result1 = rename ('c:\copy.00*','c:\rename.99*')
> result1text = valtostr(result1)
> result2 = rename ('c:\copy.00*','c:\rename.99*')
> result2text = valtostr(result2)
> result3 = rename ('c:\rename.99*','c:\CONFIG.SYS')
> result3text = valtostr(result3)
> watch(off)
> message('1st rename result = ' + result1text)
> message('2nd rename result = ' + result2text)
> message('3rd rename result = ' + result3text)
> watch(on)
> timeout = 0
> wait()
> end