SCAR Code:
var i,i2,x:integer;
function F0(C1, C2: integer): boolean; external 'Beep@kernel32.dll stdcall' ;
Begin
f0(700,1000)
f0(950,1000)
f0(600,1000)
f0(700,1000)
f0(600,1000)
f0(40,1000)
f0(100,1000)
f0(40,1000)
f0(100,1000)
f0(40,1000)
for i:=12000 downto 2000 do begin
i:=i-44
f0(i,1)end;
for i:=0 to 7 do begin
f0(100,99)f0(200,99)f0(800,99)end;
for i:=0 to 7 do begin
f0(100,99)f0(200,99)f0(1600,99)end;
for i:=0 to 7 do begin
f0(100,99)f0(200,99)f0(700,99)end;
for i:=0 to 7 do begin
f0(100,99)f0(200,99)f0(1400,99)end;
for i:=0 to 7 do begin
f0(100,99)f0(200,99)f0(600,99)end;
sleep(99)
for i:=0 to 3 do begin
f0(100,9)f0(600,9)end;
sleep(99)
for i:=0 to 3 do begin
f0(100,9)f0(700,9)end;
sleep(99)
for i:=0 to 3 do begin
f0(100,9)f0(800,9)end;
sleep(99)
f0(40,4000)
for i2:=0 to 3 do begin
for i:=0 to 5 do begin
f0(100,9)f0(200,9)f0(800,9)end;
for i:=0 to 5 do begin
f0(100,9)f0(200,9)f0(1600,9)end;
for i:=0 to 5 do begin
f0(100,9)f0(200,9)f0(700,9)end;
for i:=0 to 5 do begin
f0(100,99)f0(200,9)f0(1400,9)end;
for i:=0 to 7 do begin
f0(100,9)f0(200,9)f0(600,9)end;
for i:=0 to 5 do begin
f0(100,9)f0(200,9)f0(700,9)end;
for i:=0 to 5 do begin
f0(100,9)f0(200,9)f0(800,9)end;
for i:=0 to 5 do begin
f0(100,9)f0(200,9)f0(1600,9)end;
end;
for i:=0 to 3 do begin
f0(40,99)sleep(400)end;
End.
windows