Procedure TraceException(message, call_stack)
  Trace("プログラムを実行中にエラーが発生しました。")
  Trace("内容 : ")
  For i = 1 To message.Count
    Trace(message[i])
  Next
  Trace("呼び出し履歴 : ")
  For i = 1 To call_stack.Count
    Trace(call_stack[i])
  Next
End Procedure

