Delphi & Pascal (česká wiki)
/******************************************************************************* * * * 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--------------------------------------*/