home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC047.C < prev    next >
Encoding:
Text File  |  1988-04-11  |  790 b   |  23 lines
  1.  
  2. /************************************************************************/
  3. /* Print 'Warning' in last line of the screen and make it blink         */
  4. /************************************************************************/
  5.  
  6. demo_text_blink()
  7.         {
  8.         #define ENABLE          1
  9.         #define DISABLE         0
  10.         #define BLINKING_BLACK  8
  11.         #define GRAY            7
  12.  
  13.         int     i;
  14.         static  char    warning[] = "Warning";
  15.  
  16.         text_blink(ENABLE);                     /* Enable text blinking */
  17.         for (i = 0; warning[i] != 0; i++)       /*Display string        */
  18.                 {
  19.                 write_char(warning[i],24,40+i);
  20.                 write_attribute(24,40+i, BLINKING_BLACK, GRAY);
  21.                 }
  22.         }
  23.