home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
GETERR.SCR
< prev
next >
Wrap
Text File
|
1992-02-12
|
891b
|
30 lines
> windowshow()
> watch(on)
> delete('\opennew.00?')
> delete('\openold.00?')
> copy('\config.sys','\openold.000',replace)
> nr1 = opennew('\opennew.000',nh1)
> or1 = openold('\openold.000',oh1)
> cr1 = close(nh1)
> cr2 = close(oh1)
> cr3 = close(123)
> message ('test1, result = ' + valtostr(cr1))
> message ('test2, result = ' + valtostr(cr2))
> message ('test3, result = ' + valtostr(cr3))
> if (cr3 != 0)
> message ('text for error [' + valtostr(cr3) + '] = ' + GETERRORTEXT(CR3))
> endif
> message('Current path = [' + PATH + ']')
> message('Current date = [' + DATE + ']')
> message('Current time = [' + TIME + ']')
> message('Escape character = [' + ESCAPE + ']')
> ESCAPE = '|'
> message('Escape character = [' + ESCAPE + ']')
> message('Press any key to terminate script')
> timeout = 0
> wait()
> delete('\opennew.00?')
> delete('\openold.00?')
> end