Open Door - Reporting, Charts, Enquiry Drill-Downs

Option Strict Off
Option Explicit On
Module DBMainCode
	Public Sub main()
		'needed for OLE Server
		If debugout Then
			debugfile = FreeFile
			FileOpen(debugfile, "sphyglog", OpenMode.Output)
		End If
	End Sub
	Function pad(ByVal S As String, ByVal slen As Short) As String
		If Len(S) > slen Then
			pad = Left(S, slen)
		Else
			pad = S & New String(" ", slen - Len(S))
		End If
	End Function
End Module