Komunikacja RS

Potrzebuję programu w c bądz c++ do komunikacji przez RS między dwoma komputerami, który by przykaładowo wysyłał i odbierał np. znak, czy prosty string. Jeśli ktoś robił coś podobnego i posiada kod źródłowy, byłbym wdzięczny za udostępnienie go. Z góry dziękuję.

#include<string.h>
#include<dos.h>
#include<stdio.h>
#include<conio.h>
void inicjuj()
{
outportb(0x3eb,0x80);
outportb(0x3e8,96);
outportb(0x3e9,0);
outportb(0x3eb,7);
}
void wyslij(char znak)
{
outportb(0x3e8,znak); //wyswylamy
char flagi=0;
do
{
flagi=inportb(0x3ed); //czekamy az powie ze wyslal
}while(!(flagi&0x20));
}
char odbior()
{
char flagi=0,znak;
do
{
flagi=inportb(0x3ed); //czytamy z rejestru stan modemu
}while(!(flagi&0x1));
znak=inportb(0x3e8);
return znak;
}
void main(void)
{
clrscr();
char zmienna;
char tabtemp[100];
inicjuj();
scanf("%s",&tabtemp);
// printf("%d",strlen(tabtemp));
for(int i=0; i<strlen(tabtemp); i++)
{
wyslij(tabtemp[i]);
// printf("wyslano %c \n",tabtemp[i]);
}
wyslij(10);
wyslij(13);
do
{
zmienna=odbior();
printf("%c",zmienna);
}while(1);
getch();
}

w zrodlach c/c++ masz moja biblioteczke do obslugi com'a - dziala na dos'ie windzie i unixie , w sordku sa zrodla :)

a po sieci blaka sie ksiazka o programowaniu rs i tam tez jest taki program

a czy istnieje podobny program w pascalu??