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