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