home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / tricks / ledtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-12  |  781 b   |  29 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    LEDTEST.PAS                         *)
  3. (*           Demonstration zur Unit LED                   *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM LEDTest;
  6.  
  7. USES LED, DOS;
  8.  
  9. VAR
  10.   n : BYTE;
  11.  
  12. BEGIN
  13.   FOR n := 1 TO 2 DO BEGIN
  14.     Blink(TRUE, FALSE, FALSE, 3);
  15.     Blink(FALSE, TRUE, FALSE, 3);
  16.     Blink(FALSE, FALSE, TRUE, 3);
  17.   END;
  18.   FOR n := 10 DOWNTO 1 DO BEGIN
  19.     ZeitAn  := n * 10;
  20.     ZeitAus := n * 20;
  21.     Blink(TRUE, FALSE, FALSE, 1);
  22.     Blink(FALSE, TRUE, FALSE, 1);
  23.     Blink(FALSE, FALSE, TRUE, 1);
  24.   END;
  25. END.
  26. (* ------------------------------------------------------ *)
  27. (*               Ende von LEDTEST.PAS                     *)
  28.  
  29.