[Back to CRT SWAG index] [Back to Main SWAG index] [Original]

    (*
    From: GREG ESTABROOKS
    Subj: BLINK, COLOURS AND CHARACTERS
    *)

    PROGRAM BlinkBitDemo;           { Aug 31/93, Greg Estabrooks. }
    USES CRT;                       { Clrscr,TextAttr.            }
    VAR
       Loop1, Loop2, TextA : BYTE;

    PROCEDURE SetBlinkBit( OffOn :BOOLEAN ); ASSEMBLER;
                           { Routine to turn the blink bit on/off.}
    ASM
      Push AX                       { Save AX.                    }
      Mov AX,$1003                  { Video routine to toggle bit.}
      Mov BL,OffOn                  { Move OffOn value in BL.     }
      Int $10                       { Call video Interrupt.       }
      Pop AX                        { Restore AX.                 }
    END;{SetBlinkBit}

    BEGIN
      ClrScr;                       { Clear up screen clutter.    }
      TextA := 0;                   { Initiate color number.      }
      FOR Loop1 := 0 TO 15 DO       { Now draw color chart.       }
       BEGIN
        FOR Loop2 := 0 TO 15 DO
         BEGIN
           TextAttr := TextA;       { Set new color.              }
           Write(TextA:4);          { Write new color number.     }
           Inc(TextA);              { Move to next color.         }
         END;
         Writeln;                   { Move to the next line.      }
       END;
       Readln;                      { Pause for user.             }
       SetBlinkBit(FALSE);          { Turn off blink bit.         }
       Readln;                      { Pause for user.             }
       SetBlinkBit(TRUE);           { Turn blinkbit back on.      }
    END.{BlinkBitDemo}
    {*************************************************************}

[Back to CRT SWAG index] [Back to Main SWAG index] [Original]