program sinloop;
uses crt;

{--------------------------------------------------------------------------

This program prints a wave of stars on the left side of the screen.
                        by 

--------------------------------------------------------------------------}


VAR  x,y : integer;

begin
clrscr;
x := 1;

repeat

for y := 1 to x do write('*');
writeln;



until keypressed;


end.