home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
OPENOLD
< prev
next >
Wrap
Text File
|
1991-09-27
|
739b
|
22 lines
> watch(on)
> delete('\opennew.00?')
> delete('\openold.00?')
> copy('\config.sys','\openold.000',replace)
> nh1 = 0
> nr1 = opennew('\opennew.000',nh1)
> nr2 = opennew('\openold.000',nh2)
> oh1 = 'abc'
> or1 = openold('\openold.000',oh1)
> or2 = openold('\opennew.000',oh2)
> message ('test1, result = ' + valtostr(nr1) + ', handle = ' + valtostr(nh1))
> message ('test2, result = ' + valtostr(nr2) + ', handle = ' + valtostr(nh2))
> message ('test3, result = ' + valtostr(or1) + ', handle = ' + valtostr(oh1))
> message ('test4, result = ' + valtostr(or2) + ', handle = ' + valtostr(oh2))
> message('Press any key to terminate script')
> timeout = 0
> wait()
> delete('\opennew.00?')
> delete('\openold.00?')
> end