SUB BlinkOff

  ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  ' This routine disables blinking characters and instead allows high-
  ' intensity background colors.  To obtain a high-intensity background,
  ' you must set your backgound color normally (to a value from 0 to 7),
  ' and then add 16 to the foreground color, just as if you were making
  ' a blinking foreground.  Example:
  '
  '   To set a Dark Blue foreground onto a high-intensity White background,
  '   the following steps would be performed:
  '
  '     1. Call BlinkOff once.
  '     2. Set your background color to White (7).
  '     3. Set your foreground color to Dark Blue (1) plus 16 for the
  '        bright background.
  '     4. Issue a color statement with these values.
  '     5. Display any text you desire in these colors.
  ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ


  ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  ' We may need to make a BIOS call to set blink off (if EGA or VGA is
  ' present), so DIMension an object of RegType, that represents the
  ' CPU's registers, for use with the Interrupt routine.
  ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  DIM reg AS RegType


  ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  ' Check to see if an EGA or VGA is present.  If so, call BIOS function
  ' 1003h with register BX set to 0 (Blink OFF).  If EGA/VGA is NOT present
  ' (CGA is there), then send hex value 09h to port 3D8h, to turn off the
  ' blink attribute.
  ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  IF EgaPresent% THEN
    reg.ax = &H1003
    reg.bx = 0
    INTERRUPT &H10, reg, reg
  ELSE
    OUT &H3D8, 9
  END IF

END SUB