// procedura wypisujaca na ekranie 1-20 wierszy, po 1-40 spacji z gwiazdką na końcu
// liczbę wierszy i spacji podaje użytkownik
// do wykorzystania jest tylko ECX
// procedura oblicza spacje, program glowny wiersze

program prog2;
#include("stdlib.hhf");


static
	spacje: int32 :=0;
	wiersze: int32 :=0;


//======================================================================
procedure proc2;
begin proc2;
	mov(0, ecx);
	mov(spacje, ecx);

	repeat
		stdout.put(" ");
		dec(ecx);
	until(ecx=0);

	stdout.put("*");
end proc2;
//======================================================================

begin prog2;
	stdout.put("Podaj ilosc spacji na wiersz (1-40): ");
	stdin.get(spacje);
	stdout.put("Podaj ilosc wierszy (1-20): ");
	stdin.get(wiersze);

	repeat
		call proc2;
		stdout.newln();
		dec(wiersze);
	until (wiersze=0);	


end prog2;