下面的示例显示 message( ) 和 message(1) 的输出。
on error do errhand
*** 下一行产生一个错误***
use nodatabase
on error && 恢复系统错误处理程序。
procedure errhand
? 'line of code with error: ' + message(1)
? 'error number: ' + str(error( ))
? 'error message: ' + message( )