home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c120 / 2.ddi / LIFEIO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-12  |  1.0 KB  |  68 lines
  1. #include <dos.h>
  2.  
  3. get_key()    /*& check keyboard and return char if found */
  4. {
  5.    int ch;
  6.  
  7.    if(kbhit())
  8.       return((ch=getch())?ch:128+getch());
  9.    else   /* $ if no key return 0 */
  10.       return(0);
  11. }
  12.  
  13.  
  14. scr_curtype(int t) /*& set cursor shape */
  15. {
  16.    union REGS rg;
  17.  
  18.    rg.h.ah=1;
  19.    rg.x.cx=t;
  20.  
  21.    int86(16,&rg,&rg);
  22. }
  23.  
  24. scr_rowcol(int r, int c)  /*& position cursor at r,c */
  25. {
  26.    union REGS rg;
  27.  
  28.    rg.h.ah=2;
  29.    rg.x.bx=0;
  30.    rg.x.dx=(r<<8)+c;
  31.  
  32.    int86(16,&rg,&rg);
  33. }
  34.  
  35. scr_curson()  /*& turn cursor on */
  36. {
  37.    union REGS rg;
  38.  
  39.    rg.h.ah=15;
  40.  
  41.    int86(16,&rg,&rg);  /* return video mode */
  42.  
  43.    if(rg.h.al==7)
  44.       scr_curtype(0x0c0d);
  45.    else
  46.       scr_curtype(0x0607);
  47. }
  48.  
  49. scr_cursoff()  /*& turn cursor off */
  50. {
  51.    scr_curtype(0x2000);
  52. }
  53.  
  54. scr_clr()   /*& clear the screen */
  55. {
  56.    union REGS rg;
  57.  
  58.    scr_rowcol(0,0);  /*$ position at top */
  59.    rg.h.ah=9;
  60.    rg.h.al=' ';
  61.    rg.x.bx=7;
  62.    rg.x.cx=2000;     /*$ write 2000 blanks */
  63.  
  64.    int86(16,&rg,&rg);
  65. }
  66.  
  67.  
  68.