Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
/*******************************************************************************
*								             *
*                                Subor KEY.C                                 *
*									     *
*****************************************************************************/
 
#include <stdio.h>
#include <conio.h>
#include <dos.h>
 
#include "glob.h"
#include "video.h"
#include "key.h"
 
//************************************************************************//
// KEY                                                                    //
//                                                            30.10.1997  //
//************************************************************************//
 
unsigned int key(void)
{
   register int kl;
   while(!kbhit())
      tlac_cas();
   if((kl=getch())==0)
      kl=getch()<<8;
   return kl;
}
 
 
//************************************************************************//
// TLAC_CAS ked ma cas vypisuje na obrazovku aktualny cas                 //
//                                                            30.10.1997  //
//************************************************************************//
 
void tlac_cas(void)
{
 char pom[10];
 struct time t;
 
 gettime(&t);
 sprintf(pom,"%2d:%02d:%02d ",t.ti_hour,t.ti_min,t.ti_sec);
 tlac_retazec(_stlpcov-11,0,atributy[19],pom);
}
 
 
/*---------------------------------END--------------------------------------*/