home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC053.C < prev    next >
Encoding:
Text File  |  1988-05-25  |  966 b   |  21 lines
  1.  
  2. /************************************************************************/
  3. /* Check display type and if ok, set 43 line mode                       */
  4. /************************************************************************/
  5.  
  6. demo_43_lines()
  7.         {
  8.         int     i, mode;
  9.         if (get_scanlines() < 350)
  10.                 printf("Cannot use 43 lines with your display");
  11.         else
  12.                 {
  13.                 mode = get_mode();              /* Get current mode     */
  14.                 set_43_lines();                 /* Set 43 text mode     */
  15.                 for (i = 0; i < 43; i++)        /* Fill screen with text*/
  16.                         printf("\nThis is line %d in 43 line text mode",i);
  17.                 getchar();                      /* Wait for <Enter> key */
  18.                 set_mode(mode);                 /* Restore all by       */
  19.                 }                               /* setting mode         */
  20.         }
  21.