9 lines
239 B
Text
9 lines
239 B
Text
|
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
|