Topspeed_JPI/JPI-1/Pas/FIRST.BAK

program first;

(* Program to demonstrate simple constant translation *)

const 
      Version = 1;
      Sub_version = 0;
      Product = 'Turbo Translator';
      Bell = #$07; (* Bell hex code *)


  procedure Siren;
  var
    Frequency: integer;
  begin
    for Frequency := 500 to 2000 do
    begin
      Delay(1);
      Sound(Frequency);
    end;
    for Frequency := 2000 downto 500 do
    begin
      Delay(1);
      Sound(Frequency);
    end;
    NoSound;
  end;

begin
      writeln; writeln;
      write('Welcome to ',Product,' version ');
      writeln(Version,'.',Sub_version);
      writeln(Bell, bell, BELL, bELL);
      writeln('The Programmers'' time saver');
      SIREN;
END.