> watch(off)
> openold('\config.sys',handle)
> text1 = readline(handle)
> result = setbof(handle)
> text2 = readline(handle)
> close(handle)
> message('setbof result = ' + valtostr(result))
> message('Read before setbof = ' + text1)
> message('Read  after setbof = ' + text2)
> message('Press any key to terminate script')
> watch(on)
> timeout = 0
> watch(on)
> wait()
> end