home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TP003.ZIP / RVSONOFF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-23  |  534 b   |  18 lines
  1. {****************************************************************************}
  2.                                        {*  THESE TWO ROUTINES TURN ON AND   *}
  3. PROCEDURE RVSON;                       {*  OFF REVERSE VIDEO ON THE IBM PC  *}
  4. {5*}                                   {*************************************}
  5. BEGIN
  6.   TEXTCOLOR(0);
  7.   TEXTBACKGROUND(7);
  8. END;
  9.  
  10. PROCEDURE RVSOFF;
  11. {6*}
  12. BEGIN
  13.   TEXTCOLOR(7);
  14.   TEXTBACKGROUND(0);
  15. END;
  16.  
  17. {****************************************************************************}
  18.