Click above to get retro games delivered to your door ever month!

 setblink()          Set screen blink mode and high intensity background
------------------------------------------------------------------------------
 Declaration
   screen.hdr

 Syntax
   func logical setblink extern
   param value logical lBlink

 Arguments
   lBlink indicates if blink mode is set to on.

 Return
   Previous blink setting.

 Description
   This function is used to define if color attributes above 127 cause
   blinking characters (lBlink set to .t.), or if characters are displayed
   with a high intensity background color (on EGA and VGA adapters only).

 Example
   #define EXAMPLE_SCREEN
   #include example.hdr

   // output a blinking message in white on red
   
   proc Test_setblink
   vardef
      logical lBlink
   enddef
   __syscolor[ CLR_STD ] := CLR_HIINT + RED_WHITE
   ? "Now the text is blinking"
   wait
   lBlink := setblink( .f. )
   ? "Now we have high intensity"
   wait
   setblink( lBlink )
   wait
   endproc

   proc main
   Test_setblink()
   endproc