fileView/server/LibreOfficePortable/App/libreoffice/share/basic/Access2Base/Test.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Test" script:language="StarBasic">Option Explicit
&apos;Option Compatible

Sub Main
Dim a, b()
	_ErrorHandler(False)
&apos;	DebugPrint vbLF
&apos;	TraceConsole()
	exit sub
End Sub

</script:module>