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
