Index: /trunk/ab5.0/ablib/src/api_system.sbp
===================================================================
--- /trunk/ab5.0/ablib/src/api_system.sbp	(revision 555)
+++ /trunk/ab5.0/ablib/src/api_system.sbp	(revision 556)
@@ -933,9 +933,11 @@
 	WriteTotalTimeoutConstant As DWord
 End Type
+
 Type COMSTAT
- fCoBitFlds As Long 'See Comment in Win32API.Txt
- cbInQue As DWord
- cbOutQue As DWord
-End Type
+	fCoBitFlds As Long 'See Comment in Win32API.Txt
+	cbInQue As DWord
+	cbOutQue As DWord
+End Type
+
 Declare Function SetCommState Lib "kernel32" (hCommDev As HANDLE, ByRef dcb As DCB) As BOOL
 Declare Function SetCommTimeouts Lib "kernel32" (hFile As HANDLE ,ByRef pCommTimeouts As COMMTIMEOUTS) As BOOL
@@ -946,4 +948,10 @@
 Declare Function WaitCommEvent Lib "kernel32" (hFile As HANDLE, ByRef EvtMask As DWord, lpOverlapped As *OVERLAPPED)  As BOOL
 
+Const PURGE_TXABORT   =    &H0001
+Const PURGE_RXABORT   =    &H0002
+Const PURGE_TXCLEAR   =    &H0004
+Const PURGE_RXCLEAR   =    &H0008
+Declare Function PurgeComm Lib "kernel32" (hFile As HANDLE, dwFlags As DWord) As BOOL
+
 Declare Function OpenProcessToken Lib "advapi32" (ProcessHandle As HANDLE, DesiredAccess As DWord, ByRef TokenHandle As HANDLE) As BOOL
 Declare Function LookupPrivilegeValue Lib "advapi32" Alias _FuncName_LookupPrivilegeValue (lpSystemName As LPCTSTR, lpName As LPCTSTR, ByRef Luid As LUID) As Long