попробуите разобраться с Microsoft communication control
может пригодиться

ну тогда лови мои потуги
извеняюсь за язык это фокс но чего уж есть

#DEFINE OPEN_EXISTING 3
#DEFINE GENERIC_READ 0x80000000
#DEFINE GENERIC_WRITE 0x40000000
#DEFINE FILE_FLAG_OVERLAPPED 0x40000000
#DEFINE INVALID_HANDLE_VALUE -1

LOCAL hPort, lnErr
hPort = CreateFile(lcPort, GENERIC_READ+GENERIC_WRITE , 0,0,;
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0)
IF hPort = INVALID_HANDLE_VALUE
lnErr = GetLastError()
RETURN "Error " + LTRIM(STR(lnErr)) + ". " + GetErrorMessage(lnErr)
ELSE
myStr='AT'+CHR(13)
ss=WriteFile(hPort,@myStr,5,1,0)
= CloseHandle(hPort)
RETURN "Ok"
ENDIF