'演示使用__FB_ERR__的示例代码
Dim err_command_line As UByte
err_command_line = __FB_ERR__
Select Case err_command_line
Case 0
Print "没有错误检查在命令行启用!"
Case 1
Print "在命令行上启用了一些错误检查!"
Case 3
Print "QBasic样式错误检查在命令行上启用!"
Case 7
Print "在命令行启用极端错误检查!"
Case Else
Print "某些未知错误级别已设置!"
End Select