home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / tricks / hellinve.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-12  |  975 b   |  32 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   HELLINVE.PAS                         *)
  3. (*          (c) 1990 Christian Büchel & TOOLBOX           *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM HellInvers;
  6.  
  7. USES Crt;
  8.  
  9. CONST
  10.   invers       = 112;
  11.   Port_6845    = $3B8;
  12.   Screen_On    =   8;
  13.   enable_blink =  32;
  14.  
  15. VAR
  16.   Dummy : CHAR;
  17.  
  18. BEGIN
  19.   ClrScr;
  20.   Port[port_6845] := Screen_On;           { blink disabled }
  21.   TextAttr := invers + blink;             { blink = heller }
  22.   WriteLn('Hell, heller, am hellsten');
  23.   TextAttr := invers;                     { normal invers  }
  24.   WriteLn('Dunkel und mehr...');
  25.   Dummy := ReadKey;
  26.   Port[Port_6845] := Screen_On + enable_blink;
  27.   TextAttr := invers + blink;
  28.   WriteLn('blinking --> erste Zeile blinkt auch...');
  29. END.
  30. (* ------------------------------------------------------ *)
  31. (*                Ende von HELLINVE.PAS                   *)
  32.