home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 09 / tricks / blnkill.pas next >
Encoding:
Pascal/Delphi Source File  |  1989-06-08  |  1.2 KB  |  46 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      BLNKILL.PAS                       *)
  3. (*  Die Routine demonstriert die Manipulation des 6.Bits  *)
  4. (*  an der Portadresse $3b8. Das Ergebnis ist ein         *)
  5. (*  "inverses Intensivattribut".                          *)
  6. (*           (c) 1989  Michael Plewe & TOOLBOX            *)
  7. (* ------------------------------------------------------ *)
  8. PROGRAM BlinkKiller;
  9.  
  10. USES Crt;
  11.  
  12. VAR c : CHAR;
  13.  
  14.   FUNCTION MonoScr : BOOLEAN;
  15.                    { Test, ob Monochromkarte vorhanden ist }
  16.   VAR VideoMode : BYTE ABSOLUTE $0040:$0049;
  17.   BEGIN
  18.     MonoScr := (VideoMode = 7);
  19.   END;
  20.  
  21.   PROCEDURE BlinkAttrOn;  { Bit setzen }
  22.   BEGIN
  23.     IF MonoScr THEN Port[$3b8] := Port[$3b8] OR $20;
  24.   END;
  25.  
  26.   PROCEDURE BlinkAttrOff; { Bit löschen }
  27.   BEGIN
  28.     IF MonoScr THEN Port[$3b8] := Port[$3b8] AND $fdf;
  29.   END;
  30.  
  31. BEGIN
  32.   ClrScr;
  33.   WriteLn('Hallo');  c := ReadKey;
  34.  
  35.   TextAttr := Black + White * 16;
  36.   BlinkAttrOff;
  37.   WriteLn('Hallo');  c := ReadKey;
  38.  
  39.   BlinkAttrOn;
  40.   WriteLn('Hallo');  c := ReadKey;
  41.  
  42.   TextAttr := White + Black * 16;
  43. END.
  44. (* ------------------------------------------------------ *)
  45. (*                 Ende von BLNKILL.PAS                   *)
  46.