Counter

Eines Tages begann unsere große (damals 4 Jahre) Tocher damit um unseren Kamin herum zu rennen und ich zählte laut mit, wenn eine Runde vollendet war. Das machte ihr großen Spaß, aber mir wurde es alsbald zu viel. Darum entwickelte ich einen Lichtsensor gesteuerten Rundenzähler, der noch dazu blinkte, wenn er zählte.

Code

program Counter;

uses RS232, CRT, Dos;

procedure Beep;
begin
  sound (4000);
  delay (20);
  nosound;
  sound (6000);
  delay (20);
  nosound;
  sound (4000);
  delay (20);
  nosound;
end;

procedure CounterMain;
var
  Counter  : LongInt;
  Hours    : Word;
  Minutes  : Word;
  Seconds  : Word;
  Secs100  : Word;
  Hours2   : Word;
  Minutes2 : Word;
  Seconds2 : Word;
  Secs1002 : Word;
begin
  ClrScr;
  SetPIN (DTR);
  ClearPIN (RTS);
  Counter  := 0;
  gotoxy (1, 1);
  writeln ('Z„hler : ', Counter:6);
  gotoxy (1, 2);
  writeln ('Zeit   : ', 0:6);
  repeat
    if not GetPIN (DSR) then begin
      GetTime (Hours, Minutes, Seconds, Secs100);
      SetPIN (RTS);
      inc (Counter);
      while not GetPIN (DSR) do;
      GetTime (Hours2, Minutes2, Seconds2, Secs1002);
      Beep;
      gotoxy (1, 1);
      writeln ('Zähler : ', Counter:6);
      gotoxy (1, 2);
      writeln ('Zeit   : ', (Seconds2*1000 + Secs1002) - (Seconds*1000 + Secs100):6, ' ms');
    end;
    ClearPIN (RTS);
  until Keypressed;
end;

begin
  CounterMain;
end.