home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / POKE.C < prev    next >
Encoding:
Text File  |  1985-01-24  |  1.2 KB  |  51 lines
  1. main()    /* poke.c -- demonstrates use of poke to effect monochrome*/
  2.             /* monochrome screen attributes*/
  3. {
  4.     int i;
  5. /*    color use: 753665L; monochrome use 720896L */
  6.     int attribute_byte;
  7.     int c;
  8.     long a=720897L;
  9.     cls();
  10.     puts("\n\nSelect your mode:");
  11.     puts("\t1 Blinking");
  12.     puts("\t2 Blinking and highlighted");
  13.     puts("\t3 Blinking and underlined");
  14.     puts("\t4 Blinking and reversed");
  15.     puts("\t5 Reversed video");
  16.     puts("\t6 Underlined");
  17.     puts("\t7 Highlighted");
  18.     puts("\t8 Highlighted and underlined");
  19.     puts("\tEsc to exit gracefully");
  20.  
  21.     if(( c = getchar()) != EOF)
  22.         switch(c)
  23.         {
  24.             case '1': attribute_byte = 212;
  25.                 break;
  26.             case '2': attribute_byte = 222;
  27.                 break;
  28.             case '3': attribute_byte = 129;
  29.                 break;
  30.             case '4': attribute_byte = 240;
  31.                 break;
  32.             case '5': attribute_byte = 112;
  33.                 break;
  34.             case '6': attribute_byte = 1;
  35.                 break;
  36.             case '7': attribute_byte = 95;
  37.                 break;
  38.             case '8': attribute_byte = 121;
  39.                 break;
  40.             case 27: exit();
  41.             default:
  42.                 puts("\nNot an acceptable answer. Run me again.");
  43.                     exit();
  44.         }
  45.  
  46.     cls();
  47.     puts("Why don't word processing porgrams use these features?");
  48.     for (i = 0; i < 53; i++, a += 2)
  49.         poke(a, attribute_byte);
  50. }
  51.