Avery Dennison Monarch 6017 Programmer Manual - Manual (Page 37)

Sample Application A-3
'Set up data str eam
CmdString = ESC & "P#" & CRLF & CRLF
CmdString = CmdString & " Paxar/Monarch" & CRLF
CmdString = CmdString & " 170 Monarch Ln." & CRLF
CmdString = CmdString & " Miamisburg, OH 45342" & CRLF
CmdString = CmdString & " Phone: (937) 865-2123" & CRLF & CRLF
CmdString = CmdString & " SALES RECEIPT" & CRLF & CRLF
CmdString = CmdString & "Description Qty. Total" & LF
CmdString = CmdString & "1.Monarch 9490 5 3495" & LF
CmdString = CmdString & "2.Monarch 9403 4 995" & LF
CmdString = CmdString & "3.Monarch 6035 3 4995" & LF
CmdString = CmdString & "4.Monarch 6030 2 2995" & LF
CmdString = CmdString & "5.Monarch 9450 1 995" & LF
CmdString = CmdString & " -----" & LF
CmdString = CmdString & " Total 13475" & CRLF & CRLF
CmdString = CmdString & "AMEX 37xvz55xx315001" & LF
CmdString = CmdString & "Exp. Date 10/01" & CRLF & CRLF & CRLF
CmdString = CmdString & ESC & "z1" & Char(6) & Chr(64) & "123456"
CmdString = CmdString & LF & Chr(12)
CmdString = CmdString & "" & LF
CmdString = CmdString & "" & LF
'Allocate the port
iSerialPort = SerialPortAllocate()
iReturn = SerialPortOpenText(iSerialPort , 0, 19200, CRLF, CRLF)
iReturn = SerialPortConfigure(iSerialPort,19200,8,"None",1,"Hardware")
BufferSize = 512 + 32 'Allocate buffer
Buffer = MemoryAllocate(BufferSize)
iReturn = SerialPortSetBuffer(iSerialPort, Buffer, BufferSize)
'Send data stream
iReturn = SerialPortWriteString(iSerialPort, CmdString)
While Byte <> NAK 'Wait for response
Byte = SerialPortReadString(iSerialPort, 1)
if Byte = NAK then exit while
String = String & Byte
Wend
MsgBox(String)