
{
***********************************************************
BLAISER.PAS		Blaiser Blast sound demo
***********************************************************
}
Program Blaiser_blast (input, output);
  Const
	speaker		=#61;
	timer		=#62;
	toggle_on	=#4f;
	toggle_off	=#4d;
	max_count	=250;
	scaler		=2;
   Var
	code,
	count		:word;

{$include:'portio.pas'}
  Begin
    Repeat    
      Write ('press enter to fire!');
      Readln;
      Portout (speaker, toggle_on);
      For count := 0 to max_count do
	[
	code := Sqr(count) Div scaler;
	Portout (timer, lobyte (code));
	Portout (timer, hibyte (code));
	];
      Portout (speaker, toggle_off);
    Until count = #ffff;
  End.
 

