home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / other / dosbel / dosbel.pas
Pascal/Delphi Source File  |  1987-11-08  |  1KB  |  68 lines
  1. var
  2.  i :integer;
  3.  
  4.  
  5.  
  6. procedure warning;       (* sound procedures for IBM only.. for cpm *)
  7.   begin                  (* change to write(^G) statements (use the imagination *)
  8.     while not keypressed do
  9.        begin
  10.          sound(660);
  11.          delay(150);
  12.          sound(440);
  13.          delay(100);
  14.          nosound;
  15.          delay(800);
  16.        end;
  17.   end;
  18.  
  19.  
  20. procedure alarm;
  21.  
  22. var
  23.   x: integer;
  24.   begin
  25.     while not keypressed do
  26.       begin
  27.         for x:=440 to 2000 do
  28.           sound(x);
  29.         for x:= 2000 downto 440 do
  30.           sound(x);
  31.       end;
  32.     nosound;
  33.  end;
  34.  
  35.  
  36. procedure bell;
  37.  
  38.   begin
  39.    write(^G);
  40.   end;
  41.  
  42.  
  43. procedure help;
  44.  begin
  45.    writeln(' W : warning- provides two-tone paced alarm until a key is pressed');
  46.    writeln(' A : siren alarm- continuous until keypressed');
  47.    writeln(' B : single bell');
  48.    writeln;
  49.    writeln(' Enter commandline selection with a space after the filename');
  50.    writeln(' example:  A>dosbel w');
  51.    writeln;
  52.    writeln('if dosbel is entered with no commandline, this help message appears');
  53.  end;
  54.  
  55. begin { main }
  56. Textcolor(LightGray);
  57.  if paramcount >0 then  (* paramcount and paramstr() are pre-defined in turbo 3.0 *)
  58.     begin
  59.        case upcase(paramstr(1)) of
  60.          'A' : alarm;
  61.          'B' : bell;
  62.          'W' : warning;
  63.         end;
  64.     end
  65.   else
  66.    help;
  67. end.
  68.