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

A-4 Sample Application
Buffer = MemoryFree(Buffer) 'Deallocate the port
iReturn = SerialPortClose(iSerialPort)
iReturn = SerialPortFree(iSerialPort)
LPrint(Chr(12)) 'Form feed
MsgBox("Done") 'Finish up
If ClosePort() = false then
MsgBox("Close Failed")
EndIf