home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB11.ZIP / TESTVID.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-07-13  |  742 b   |  26 lines
  1. PROGRAM TestVid;
  2.  
  3. {
  4. Source: "Programming Quickies", TUG Lines Volume I Issue 1
  5. Author: Paul Klarreich
  6. Application: Turbo Pascal 1.0 on IBM PC and true compatibles
  7.  
  8.      Demonstrates the use of the screen Attribute byte located at
  9.      $0145 in the code segment.
  10.  
  11. }
  12.  
  13. VAR Attribute : BYTE ABSOLUTE CSEG:$0145;
  14.  
  15. BEGIN
  16.   Attribute := $70;                   { reverse video    }
  17.   WRITELN('This is in reverse video.');
  18.   Attribute := $07;                   { normal video     }
  19.   WRITELN('This is normal printing.');
  20.   Attribute := Attribute OR $80;      { turn on blinking }
  21.   WRITELN('This will blink on and off.');
  22.   Attribute := Attribute AND $7F;     { turn it off      }
  23.   WRITELN('Not blinking any more.');
  24.  END.
  25.  
  26.