home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC014.C < prev    next >
Text File  |  1988-05-15  |  478b  |  14 lines
  1.  
  2. /************************************************************************/
  3. /* Set mode                                                             */
  4. /************************************************************************/
  5.  
  6. test_set_mode()
  7.         {
  8.         #define MONO    5
  9.         #define VMONO   7
  10.         if (get_display_type() == VMONO ||
  11.             get_display_type() == MONO) set_mode(7);
  12.         else                            set_mode(3);
  13.         }
  14.