RosettaCodeData/Task/Write-to-Windows-event-log/BBC-BASIC/write-to-windows-event-log.bbc

      INSTALL @lib$+"COMLIB"
      PROC_cominitlcid(1033)

      WshShell% = FN_createobject("WScript.Shell")
      PROC_callmethod(WshShell%, "LogEvent(0, ""Test from BBC BASIC"")")

      PROC_releaseobject(WshShell%)
      PROC_comexit