OPENCONSOLE

FOR X=1 TO 5

	FOR Y=1 TO X
		
            PRINT"*",:'No line feed or carriage return after printing.

	NEXT Y

PRINT

NEXT X

PRINT:PRINT"Press any key to end."

DO:UNTIL INKEY$<>""

CLOSECONSOLE

END