home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC013.C < prev    next >
Encoding:
Text File  |  1988-05-15  |  787 b   |  19 lines
  1.  
  2. /************************************************************************/
  3. /* Use C library function to select text mode                           */
  4. /************************************************************************/
  5.  
  6. set_mode_x()
  7.         {
  8.         #define MONO    5
  9.         #define VMONO   7
  10.         union   REGS regs;
  11.         regs.h.ah = 0;                  /* Function = MODE SELECT       */
  12.         if (get_display_type() == MONO  /* Get display type             */
  13.           ||get_display_type() == VMONO)
  14.                 regs.h.al = 7;          /* With mono display use mode 7 */
  15.         else
  16.                 regs.h.al = 3;          /* With color display use mode 3*/
  17.         int86(0x10,®s, ®s);       /* Call INT 10H                 */
  18.         }
  19.