home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
SETATTR
< prev
next >
Wrap
Text File
|
1991-09-27
|
1KB
|
33 lines
> if exist('\openold.000') == TRUE
> result1 = rstattr('\openold.000','ahr')
> result1 = delete('\openold.000')
> endif
> result1 = copy('\config.sys','\openold.000',replace)
> text1 = firstfile('\openold.000',handle)
> message(' copy result = ' + valtostr(result1) + ', ' + text1)
> result1 = setattr('\openold.000','xyzr')
> text1 = firstfile('\openold.000',handle)
> message('setattr result = ' + valtostr(result1) + ', ' + text1)
> if text1 != ''
> close(handle)
> endif
> result1 = setattr('\openold.000','bcdh')
> text1 = firstfile('\openold.000',handle)
> message('setattr result = ' + valtostr(result1) + ', ' + text1)
> if text1 != ''
> close(handle)
> endif
> result1 = setattr('\openold.000','abcd')
> text1 = firstfile('\openold.000',handle)
> message('setattr result = ' + valtostr(result1) + ', ' + text1)
> if text1 != ''
> close(handle)
> endif
> delete('\openold.000')
> message('Press any key to terminate script')
> watch(on)
> timeout = 0
> watch(on)
> wait()
> end