rem -----------------------------------------------------------------------------------------------
set SI300 = CreateObject("SATscript.DLL.object")
rem -----------------------------------------------------------------------------------------------

Set CONSOLE = CreateObject ("Scripting.FileSystemObject")
Set stdout = CONSOLE.GetStandardStream (1)

Dim retorno
retorno = SI300.Inicia_Printer_SI300("000001","abc1234567890defghij1234567890klmnop")

retorno = SI300.CarregaBMPMemoria_SI300("1", "sweda.bmp")
stdout.WriteLine "CarregaBMPMemoria_SI300(1, sweda.bmp) -> " & retorno
retorno = SI300.ImprimeBMPMemoria_SI300()
stdout.WriteLine "ImprimeBMPMemoria_SI300() -> " & retorno
retorno = SI300.ImprimeBMPMemoria_SI300()
stdout.WriteLine "ImprimeBMPMemoria_SI300() -> " & retorno
retorno = SI300.ImprimeBMPMemoria_SI300()
stdout.WriteLine "ImprimeBMPMemoria_SI300() -> " & retorno

retorno = SI300.CarregaBMPMemoria_SI300("0", "sweda.bmp")
stdout.WriteLine "CarregaBMPMemoria_SI300(0, sweda.bmp) -> " & retorno
retorno = SI300.ImprimeBMPMemoria_SI300()
stdout.WriteLine "ImprimeBMPMemoria_SI300() -> " & retorno
retorno = SI300.ImprimeBMPMemoria_SI300()
stdout.WriteLine "ImprimeBMPMemoria_SI300() -> " & retorno
retorno = SI300.ImprimeBMPMemoria_SI300()
stdout.WriteLine "ImprimeBMPMemoria_SI300() -> " & retorno

retorno = SI300.ConfigCodePageAuto_SI300("0")
stdout.WriteLine "ConfigCodePageAuto_SI300(0) -> " & retorno
retorno = SI300.ImprimeTexto_SI300 ("αινσϊΑΙΝΣΪΥΓΒΤ" & vbCrLf)

retorno = SI300.ConfigCodePageAuto_SI300("1")
stdout.WriteLine "ConfigCodePageAuto_SI300(1) -> " & retorno
retorno = SI300.ImprimeTexto_SI300 ("αινσϊΑΙΝΣΪΥΓΒΤ" & vbCrLf)

retorno = SI300.regEnterFinal_SI300("0")
stdout.WriteLine "regEnterFinal_SI300(0) -> " & retorno
retorno = SI300.ImprimeTexto_SI300 ("OOOOOOOOOOOOOOOOOOO")
retorno = SI300.ImprimeTexto_SI300 ("OOOOOOOOOOOOOOOOOOO")
retorno = SI300.ImprimeTexto_SI300 ("OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO")
retorno = SI300.regEnterFinal_SI300("1")
retorno = SI300.ImprimeTexto_SI300 ("OOOOOOOOOOOOOOOOOOO")
stdout.WriteLine "regEnterFinal_SI300(1) -> " & retorno

retorno = SI300.Consulta_UltimaImpressao_SI300
stdout.WriteLine "Consulta_UltimaImpressao_SI300 -> " & retorno



