Howdy All...,

Here's some kewl sause from the Sunshine Coast of QLD.

{$G+,X+}

Uses Dos,Crt;

const
 ver = 'v.99b';

var x : integer;

begin
 Writeln(' PC-Speaker Tester ',ver,' (c) Pointless Produckions');
 repeat  
 randonmize;
 x := random(1000); 
 sound(x);
 delay(x);
 until keypressed;
  writeln('Opps, I forgot to include NOSOUND');
  writeln('Don''t you wish your Speaker wasn''t workin! :)');
end.
 
Ok... i've shared some of me own source... so can anyone give me source
to a TVFUZZ ????...  =)

                           ...No Carrier...    Stu! iNSTiNCT / DiE / NuKe Oz!

I was bored ok..!

--- Maximus 3.01