home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / TIMER.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  681b  |  35 lines
  1. {$m 1024,0,0}
  2. uses crt,dos;
  3. var
  4.  i,n:integer;
  5.  p:pointer;
  6. procedure bell;
  7. interrupt;
  8. var
  9.  j,k:integer;
  10. begin
  11.  i:=i*ord(i/1092<>n)+1;
  12.  for j:=1 to 8*ord(i=1) do
  13.  begin
  14.   for k:=800 downto 200 do sound(k);
  15.   delay(50); nosound; delay(150);
  16.  end;
  17.  meml[0:$70]:=ofs(p^)+65536*seg(p^);
  18.  inline($cd/$1c); {int 1ch}
  19.  meml[0:$70]:=ofs(bell)+65536*seg(bell);
  20. end;
  21. begin
  22.  val(paramstr(1),n,i);
  23.  if i<>0 then
  24.  begin
  25.   writeln('Program: TIMER ');
  26.   writeln('Autor: Pawel Rozenberg');
  27.   writeln('Podaj liczbe minut.');
  28.   sound(1000);delay(100);nosound;
  29.   halt(1);
  30.  end;
  31.  getintvec($1c,p);
  32.  setintvec($1c,@bell);
  33.  writeln('TIMER zainstalowany.');
  34.  keep(0);
  35. end.