Modem Simulator

Hello

I just want to ask you if you can create a code whitch simulates a Modem on a COM Port.

Can someone help me creating the whole Code please?

Thanks alot

Heres the code


CSerial ser;
ser. Open (...);

bool bConnected = false;
do
{
ser. Write ('RING);
ser. Read (...);
if (readData == 'ATA') break;
} while (true);
if (bConnected)
{
ser. Write ('CONNECT);
}