modem_bp.cpp

its creates virtual multi tasking i DOS

/*******************************************************
 *                                                     *
 *  Program : MODEM_BP     Language : Borland C++      *
 *                                                     *
 *  Modified : 20 nov 2003                             *
 *                                                     *
 *  Copyright (c) 1988,2003, ORITECH    V 5.1          *
 *  All rights reserved.                               *
 *                                                     *
 *******************************************************
 *                                                     *
 *  MODEM_BP.CPP     Demo EasyTask     DPMI16          *
 *                                                     *
 *******************************************************/


#include <stdlib.h>
#include <stdio.h>
#include <graphics.h>
#include <dos.h>
#include <conio.h>
#include <string.h>
#include <float.h> 
#include <math.h> 
#include <time.h>
#include <malloc.h>
#include "etlib.h"


#define mdirq 3
#define mdcom COM2

PMultiTask t1,t2; 
char so[128];

void drawwindow(int x1,int y1,int x2,int y2,char *titre)
{
  int n;
  
  window(x1,y1,x2,y2+1);
  clrscr();
  gotoxy(1,1);
  sprintf(so,"%c",201);  
  cprintf(so);
  for (n=x1+1;n<=x2-1;n++) 
  {
    sprintf(so,"%c",205);
    cprintf(so);
  }
  sprintf(so,"%c",187);
  cprintf(so);
  for (n=2;n<=y2-y1;n++)
  {
    gotoxy(1,n); 
    sprintf(so,"%c",186);
    cprintf(so);
    gotoxy(x2-x1+1,n); 
    sprintf(so,"%c",186);
    cprintf(so);
  }
  gotoxy(1,y2-y1+1);
  sprintf(so,"%c",200);
  cprintf(so);
  for (n=x1+1;n<=x2-1;n++) 
  {
    sprintf(so,"%c",205);
    cprintf(so);
  }
  sprintf(so,"%c",188);
  cprintf(so);
  gotoxy(((x2-x1) / 2)-(strlen(titre) / 2),1);
  sprintf(so,"%s",titre);
  cprintf(so);
  window(x1+1,y1+1,x2-1,y2-1);
}
  
void receive2(pvoid, pvoid)
{
  int err;
  
  pausemode(MTT);
  drawwindow(1,8,80,24,"RECEIVE MODEM COM2");
  do
  {
    sprintf(so,"%c",getserial(mdirq,1,pause,0,err));
    cprintf(so);   
    pause();
  } while (TRUE);
}

void emit(pvoid, pvoid)
{
  BOOL keyfunc,upper;
  char keychar;
  int err;
  
  pausemode(MTT);
  drawwindow(1,1,80,6,"EMIT COM2"); 
  taskdelay(1000); // *** reset modem delay
  writelnserial(mdirq,1,"AT?",pause,0,err); 
  upper = TRUE;
  do
  {
    areadkey(&keyfunc,&keychar,upper);
    if (keychar == 27) killalltasks();
    else putserial(mdirq,1,keychar,pause,0,err);
    sprintf(so,"%c",keychar);
    cprintf(so);
    if (keychar == 13) 
    {
      sprintf(so,"%c",10);
      cprintf(so);
    }
  } while (TRUE);
}

void main(void)
{
  int err;
  
  etker_init();
  etser_init();
  clrscr();
  //
  openserial(mdirq,1,256,256,mdcom,err);
  resetserial(mdirq,1,1200,7,1,MT_EVENPARITY,smode_dtr+smode_rts,err);
  //
  t1 = newtask(receive2,8000,1,MT_CHILD,NULL,0,NULL);
  t2 = newtask(emit,8000,1,MT_CHILD,NULL,0,NULL);
  waitnotask();
  //
  disposeserial();
}