/* %Src=tst-kbd.c   */


/*  #define DEBUGGING */

/* #define TESTING 1  */

#include "stdlib.h"
#include "stdio.h"
#include "string.h"


#include "conio.h"

#include "..\xci\xci.h"
#include "..\base\tu.h"
#include "..\base\tf.h"

char *Prog_version = "tst-kbd (V-0.0)";

#include "..\base\tu.c"
#include "..\base\tf.c"

/*------------------------------------------------------------  Function prototypes  ----*/
  void Init_tst_kbd                                    (short argc, char *argv[]);
  void Get_keys (void);


/*------------------------*/
  int main (int   argc,
            char *argv[])
/*------------------------*/
{
   int       i;

/** BEGIN **/


   printf ("--- argc = %d\n", argc);
   for (i=0; i <argc ; i++)
       printf ("--- argv[%d] = %s\n", i, argv[i]);

   Init_tst_kbd (argc, argv);

   printf ("--- Starting tst-kbd.\n");

   for (i=0; i < argc ; i++)
       printf ("--- argv[%d] = %s\n", i, argv[i]);

   Get_keys();

   exit (0);
}


/*-----------------------------*/
   void Exunt (short Err_num,
               char     *Msg)
/*-----------------------------*/
{
   if ((Err_num != 0) && (Msg != NULL) && (*Msg != '\0'))
      printf ("*** ERR: %s\n", Msg);

   exit (Err_num);
}

/*-----------------------------------*/
  void Init_tst_kbd (short  argc,
                      char  *argv[])
/*-----------------------------------*/
{
   Init_tu  (argc, argv);
   Init_tf            ();

}

/*---------------------*/
    void Get_keys ()
/*---------------------*/
{
  long  i, j;
  int key;


/** BEGIN **/

   for (i=1 ; i < 320000 ; i++)
   {
      key = kbhit();
      printf ("%c", key);
   }


}