Avery Dennison Monarch 6017 Programmer Manual User Manual

Page 36

A-2 Sample Application

Dim ESC

'Declare variables

Dim CR

Dim CmdString

Dim Buffer

Dim BufferSize

Dim iSerialPort

Dim iReturn

Dim CRLF

Dim LF

Dim NAK

Dim Byte

Dim String

ESC = Chr(27)

'Initialize variables

CR = Chr(13)

CRLF = Chr(13) & Chr(10)

LF = Chr(10)

NAK = Chr(21)

Byte = ""

String=""

LPrint(Chr(24))

'Reinitialize Printer

LPrint(ESC & "P#")

'Online Mode

LPrint(ESC & "F1")

'ASCII Chars

LPrint(ESC & "k3")

'Font 3

LPrint(ESC & "A0")

'Zero space between lines